svn-clone

   1 #!/usr/bin/perl -w
   2 # $Id$
   3 use strict;
   4 require v5.10.0;
   5 our $VERSION = 'v0.1';
   6
   7 BEGIN
   8 {
   9     our $PROGRAM_DIR = $ENV{XR_PERL_SOURCE_DIR};
  10     unless($PROGRAM_DIR) {
  11         $PROGRAM_DIR = $0;
  12         $PROGRAM_DIR =~ s/[^\/\\]+$//;
  13         $PROGRAM_DIR =~ s/\/+$//;
  14         $PROGRAM_DIR = "." unless($PROGRAM_DIR);
  15     }
  16     unshift @INC,
  17         map "$PROGRAM_DIR/$_",qw{modules lib ../modules ..lib};
  18 }
  19
  20 my %OPTS;
  21 my @OPTIONS = qw/help|h|? version|ver edit-me manual|man/;
  22
  23 if(@ARGV)
  24 {
  25     require Getopt::Long;
  26     require MyPlace::Usage;
  27     Getopt::Long::GetOptions(\%OPTS,@OPTIONS);
  28     MyPlace::Usage::Process(\%OPTS,$VERSION);
  29 }
  30 else
  31 {
  32     require MyPlace::Usage;
  33     MyPlace::Usage::PrintHelp();
  34     exit 0;
  35 }
  36
  37 sub run {
  38     my $exit = system(@_);
  39     die("fatal error: $! while executing [",join(" ",@_),"]\n") if($exit);
  40     return 1;
  41 }
  42
  43 my $SOURCE = shift;
  44 my $DEST = shift;
  45 my $source_user = shift;
  46 my $sync_user = shift;
  47 use Cwd qw/getcwd/;
  48 my $is_localsource = 1;
  49 my $is_localdest = 1;
  50
  51 my $cwd = getcwd;
  52 if(!$DEST) {
  53     $DEST = $cwd;
  54 }
  55 elsif($DEST =~ m/:\/\//) {
  56     $is_localdest = undef;
  57 }
  58 elsif($DEST =~ m/\//) {
  59 }
  60 else {
  61     $DEST = $cwd . '/' . $DEST;
  62 }
  63 if($SOURCE =~ m/:\/\//) {
  64     $is_localsource = undef;
  65 }
  66 elsif($SOURCE =~ m/\//) {
  67 }
  68 else {
  69     $SOURCE = $cwd . '/' . $SOURCE;
  70 }
  71
  72 my $SOURCE_URL = $is_localsource ? 'file://' .  $SOURCE : $SOURCE;
  73 my $DEST_URL;
  74 if($is_localdest) {
  75     $DEST_URL = 'file://' . $DEST;
  76     if(! -d $DEST) {
  77         print STDERR "creating local repository $DEST...\n";
  78         run(qw/svnadmin create/,$DEST);
  79         my $hook = "$DEST/hooks/pre-revprop-change";
  80         print STDERR "creating pre-revprop-change hook in $DEST...\n";
  81         open FO,'>',$hook or die("fatal error\n");
  82         print FO "#!/bin/sh\nexit 0\n";
  83         close FO;
  84         run(qw/chmod a+x/,$hook);
  85     }
  86 }
  87 else {
  88     $DEST_URL = $DEST;
  89 }
  90
  91 my @svnsync;
  92 if($source_user and $sync_user) {
  93     @svnsync = ('svnsync','--source-username',$source_user,'--sync-username',$sync_user);
  94 }
  95 elsif($source_user) {
  96     @svnsync = ('svnsync','--username',$source_user);
  97 }
  98 else {
  99     @svnsync = ('svnsync');
 100 }
 101 print STDERR "initializing svnsync...\n";
 102 print STDERR "from\t$SOURCE_URL\n";
 103 print STDERR "to  \t$DEST_URL\n";
 104 run(@svnsync,'init',$DEST_URL,$SOURCE_URL);
 105 print STDERR "start syncing...\n";
 106 run(@svnsync,'sync',$DEST_URL);
 107 exit 0;
 108
 109
 110
 111 __END__
 112
 113 =pod
 114
 115 =head1  NAME
 116
 117 svn-clone - clone subversion repository
 118
 119 =head1  SYNOPSIS
 120
 121 svn-clone [options] <SOURCE_REPO> [DEST_REPO]
 122
 123 =head1  OPTIONS
 124
 125 =over 12
 126
 127 =item B<--version>
 128
 129 Print version infomation.
 130
 131 =item B<-h>,B<--help>
 132
 133 Print a brief help message and exits.
 134
 135 =item B<--manual>,B<--man>
 136
 137 View application manual
 138
 139 =item B<--edit-me>
 140
 141 Invoke 'editor' against the source
 142
 143 =back
 144
 145 =head1  DESCRIPTION
 146
 147 ___DESC___
 148
 149 =head1  CHANGELOG
 150
 151     2010-11-19 03:13  xiaoranzzz  <xiaoranzzz@myplace.hell>
 152
 153         * file created.
 154
 155 =head1  AUTHOR
 156
 157 xiaoranzzz <xiaoranzzz@myplace.hell>
 158
 159 =cut
 160
 161 #       vim:filetype=perl