gsvn-host

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