gsvn-commit

   1 #!/usr/bin/perl -w
   2 # $Id$
   3 use strict;
   4 require v5.10.0;
   5 our $VERSION = 'v0.1';
   6
   7 my $idx = 1;
   8 my $total = 2;
   9
  10 print "[$idx/$total] git commit ", (@ARGV ? join(" ",@ARGV) : ""), "\n";
  11 my $NEED_COMMIT = `git diff`;
  12 chomp($NEED_COMMIT);
  13 if($NEED_COMMIT) {
  14     if (system(qw/git commit/,@ARGV) != 0) {
  15         die "[$idx/$total] git commit failed\n";
  16     }
  17 }
  18 else {
  19     system(qw/git commit/,@ARGV);
  20 }
  21 $idx++;
  22 print "[$idx/$total] git svn dcommit\n";
  23 if(system(qw/git svn dcommit/) != 0) {
  24     die "[$idx/$total] git svn dcommit failed\n";
  25 }
  26 exit 0;
  27
  28
  29 __END__
  30
  31 =pod
  32
  33 =head1  NAME
  34
  35 git-svn-commit - PERL script
  36
  37 =head1  SYNOPSIS
  38
  39 git-svn-commit [options] ...
  40
  41 =head1  OPTIONS
  42
  43 =over 12
  44
  45 =item B<--version>
  46
  47 Print version infomation.
  48
  49 =item B<-h>,B<--help>
  50
  51 Print a brief help message and exits.
  52
  53 =item B<--manual>,B<--man>
  54
  55 View application manual
  56
  57 =item B<--edit-me>
  58
  59 Invoke 'editor' against the source
  60
  61 =back
  62
  63 =head1  DESCRIPTION
  64
  65 ___DESC___
  66
  67 =head1  CHANGELOG
  68
  69     2010-10-31  xiaoranzzz  <xiaoranzzz@myplace.hell>
  70
  71         * file created.
  72
  73 =head1  AUTHOR
  74
  75 xiaoranzzz <xiaoranzzz@myplace.hell>
  76
  77 =cut
  78
  79 #       vim:filetype=perl