gsvn-push

   1 #!/usr/bin/perl -w
   2 # $Id$
   3 use strict;
   4 require v5.10.0;
   5 our $VERSION = 'v0.1';
   6
   7 sub push_remote {
   8     my @remotes;
   9     open FI,"-|","git remote";
  10     while(<FI>) {
  11         chomp;
  12         push @remotes,$_ if($_);
  13     }
  14     close FI;
  15     if(@remotes) {
  16         foreach(@remotes) {
  17             my $url = `git config --get "remote.$_.url"`;
  18             chomp($url);
  19             #print "pushing to [$_] $url ...\n";
  20             if(system(qw/git push -v/,$_)==0) {
  21 #                return 1;
  22             }
  23             else {
  24                 print "pushing to $_ failed\n";
  25                 return undef;
  26             }
  27         }
  28         return 1;
  29     }
  30     else {
  31        print "NO remotes found, stop pushing\n";
  32        return undef;
  33     }
  34 }
  35
  36 my $NEED_COMMIT = `git diff`;
  37 chomp($NEED_COMMIT);
  38 my $idx = 1;
  39 my $total = 3;
  40 #$NEED_COMMIT ? 3 : 2;
  41
  42 print "[$idx/$total] git commit ", (@ARGV ? join(" ",@ARGV) : ""), "\n";
  43 if($NEED_COMMIT) {
  44     if (system(qw/git commit/,@ARGV) != 0) {
  45         die "[$idx/$total] git commit failed\n";
  46     }
  47 }
  48 else {
  49     system(qw/git commit/,@ARGV);
  50 }
  51 $idx++;
  52
  53
  54 print "[$idx/$total] git svn dcommit\n";
  55 if(system(qw/git svn dcommit/) != 0) {
  56     die "[$idx/$total] git svn dcommit failed\n";
  57 }
  58 $idx++;
  59
  60
  61 print "[$idx/$total] git push --all [remotes]\n";
  62 #system(qw/git remote -v/);
  63 if(!push_remote()) {
  64     die "[$idx/$total] git push --all [remotes] failed\n";
  65 }
  66 $idx++;
  67
  68
  69 exit 0;
  70
  71
  72
  73 __END__
  74
  75 =pod
  76
  77 =head1  NAME
  78
  79 git-svn-push - PERL script
  80
  81 =head1  SYNOPSIS
  82
  83 git-svn-push [options] ...
  84
  85 =head1  OPTIONS
  86
  87 =over 12
  88
  89 =item B<--version>
  90
  91 Print version infomation.
  92
  93 =item B<-h>,B<--help>
  94
  95 Print a brief help message and exits.
  96
  97 =item B<--manual>,B<--man>
  98
  99 View application manual
 100
 101 =item B<--edit-me>
 102
 103 Invoke 'editor' against the source
 104
 105 =back
 106
 107 =head1  DESCRIPTION
 108
 109 ___DESC___
 110
 111 =head1  CHANGELOG
 112
 113     2010-10-31  xiaoranzzz  <xiaoranzzz@myplace.hell>
 114
 115         * file created.
 116
 117 =head1  AUTHOR
 118
 119 xiaoranzzz <xiaoranzzz@myplace.hell>
 120
 121 =cut
 122
 123 #       vim:filetype=perl