gsvn-init-repos

   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     my $PROGRAM_DIR = $0;
  10     $PROGRAM_DIR =~ s/[^\/\\]+$//;
  11     $PROGRAM_DIR = "./" unless($PROGRAM_DIR);
  12     unshift @INC,
  13         map "$PROGRAM_DIR$_",qw{modules lib ../modules ..lib};
  14 }
  15
  16 my %OPTS;
  17 my @OPTIONS = qw/help|h|? version|ver  manual|man dump|d/;
  18
  19 if(@ARGV)
  20 {
  21     require Getopt::Long;
  22     require MyPlace::Usage;
  23     Getopt::Long::GetOptions(\%OPTS,@OPTIONS);
  24     MyPlace::Usage::Process(\%OPTS,$VERSION);
  25 }
  26
  27 sub run {
  28     my $head = shift;
  29     print "[$head] ",join(" ",@_),"\n";
  30     system(@_) == 0;
  31 }
  32
  33 sub run_or_die {
  34     my $head = shift;
  35     die("[$head] fatal: ",join(" ",@_)," failed!\n") unless(run($head,@_));
  36 }
  37
  38 sub pull_remote {
  39     my($name,$url) = @_;
  40     run(qw/git remote add/,$name,$url);
  41     print "fetch [$name]$url ...\n";
  42     run_or_die(qw/git fetch -v/,$name);
  43 }
  44
  45 sub cat_file {
  46     my $file = shift;
  47     open FI,"<",$file or return undef;
  48     print <FI>;
  49     close FI;
  50     return 1;
  51 }
  52
  53 sub parse_config {
  54     my $MACRO = shift;
  55     my %config;
  56     foreach(@_) {
  57         chomp;
  58         if($MACRO) {
  59             foreach my $m_from (keys %{$MACRO}) {
  60                 my $m_to = $MACRO->{$m_from};
  61                 s/$m_from/$m_to/g;
  62             }
  63         }
  64         s/^\s+|\s+$//g;
  65         next unless($_);
  66         next if(m/^#/);
  67         if(m/^([^.=]+)\.([^=]+?)\s*=\s*(.+)$/) {
  68             $config{$1}->{$2} = $3;
  69             if($1 eq 'v') {
  70                 $MACRO->{"\\\$$2\\\$"} = $3;
  71             }
  72         }
  73         elsif(m/^([^=]+?)\s*=\s*(.+)$/) {
  74             $config{$1} = $2;
  75         }
  76         else {
  77             $config{$_} = 1;
  78         }
  79     }
  80     $config{MACRO} = $MACRO;
  81     return %config;
  82 }
  83
  84 my $F_DUMP = $OPTS{dump};
  85
  86 my $REPO_FILE = ".repos";
  87 my $REPO_PROP = "gsvn:repos";
  88 my $AUTHOR_FILE = ".authors";
  89
  90
  91 sub process {
  92     my $target = shift;
  93     $target =~ s/\/+$//;
  94     $target =~ s/^.+\///;
  95     $target = "." unless($target);
  96
  97     print "[$target] init project repos...\n";
  98
  99     my @CONFIG_DATA;
 100     if (-f $REPO_FILE) {
 101         open FI,"<",$REPO_FILE or die("$!\n");
 102         @CONFIG_DATA = <FI>;
 103         close FI;
 104     }
 105     elsif(-d ".svn" or -d ".SVN") {
 106         print STDERR "[$target] reading $REPO_PROP...\n";
 107         @CONFIG_DATA = split("\n",qx/git svn propget gsvn:repos ./);
 108     }
 109
 110     my %CONFIG = parse_config({'\$target\$'=>$target},@CONFIG_DATA);
 111     if($F_DUMP) {
 112         use Data::Dumper;
 113         print Data::Dumper->Dump([\%CONFIG],['*CONFIG']);
 114         exit 0;
 115     }
 116     elsif(!%CONFIG) {
 117         print "[$target] init stopped, no repos config data found\n";
 118     }
 119     else {
 120         if($CONFIG{user} and $CONFIG{user} =~ m/\s*([^<]+)\s*<([^>]+)>/) {
 121             my($name,$email) = ($1,$2);
 122             run_or_die($target,qw/git config user.name/,$name);
 123             $email =~ s/#/@/;
 124             run_or_die($target,qw/git config user.email/,$email);
 125         }
 126         if($CONFIG{authors}) {
 127             print "[$target] writting $AUTHOR_FILE ...\n";
 128             open FO,">",$AUTHOR_FILE or die("$!\n");
 129             foreach my $id (keys %{$CONFIG{authors}}) {
 130                 my $mapto = $CONFIG{authors}->{$id};
 131                 $mapto =~ s/#/@/;
 132                 print FO "$id = $mapto\n";
 133             }
 134             close FO;
 135 #            cat_file($AUTHOR_FILE);
 136 #            print "[$target] add $AUTHOR_FILE to .gitignore ...\n";
 137 #            open FO,">>",".gitignore" or die("$!\n");
 138 #            print FO $AUTHOR_FILE,"\n";
 139 #            close FO;
 140 #            cat_file(".gitignore");
 141             run_or_die($target,qw/git config svn.authorsfile/,$AUTHOR_FILE);
 142         }
 143         if($CONFIG{git}) {
 144             print "[$target] fetching git repositories ...\n";
 145             foreach my $reponame (keys %{$CONFIG{git}}) {
 146                 my $url = $CONFIG{git}->{$reponame};
 147                 run($target,qw/git remote add/,$reponame,$url);
 148                 print "[$target] fetching [$reponame] $url ...\n";
 149                 run_or_die($target,qw/git fetch/,$reponame);
 150             }
 151         }
 152     }
 153 }
 154
 155
 156 use Cwd qw/getcwd/;
 157 my $cwd = getcwd();
 158
 159 if(@ARGV) {
 160     foreach my $wd (@ARGV) {
 161         chdir $wd or die("$!: $wd\n");
 162         process($wd);
 163         chdir $cwd;
 164     }
 165 }
 166 else {
 167     process($cwd);
 168 }
 169
 170
 171
 172 __END__
 173
 174 =pod
 175
 176 =head1  NAME
 177
 178 gsvn-pull-remote - PERL script
 179
 180 =head1  SYNOPSIS
 181
 182 gsvn-pull-remote [options] ...
 183
 184 =head1  OPTIONS
 185
 186 =over 12
 187
 188 =item B<--version>
 189
 190 Print version infomation.
 191
 192 =item B<-h>,B<--help>
 193
 194 Print a brief help message and exits.
 195
 196 =item B<--manual>,B<--man>
 197
 198 View application manual
 199
 200 =item B<--edit-me>
 201
 202 Invoke 'editor' against the source
 203
 204 =back
 205
 206 =head1  DESCRIPTION
 207
 208 ___DESC___
 209
 210 =head1  CHANGELOG
 211
 212     2010-11-02  xiaoranzzz  <xiaoranzzz@myplace.hell>
 213
 214         * file created.
 215
 216 =head1  AUTHOR
 217
 218 xiaoranzzz <xiaoranzzz@myplace.hell>
 219
 220 =cut
 221
 222 #       vim:filetype=perl