svndump

   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 sub create_repo {
  43     my $DEST = shift;
  44     if(! -d $DEST) {
  45         print STDERR "creating local repository $DEST...\n";
  46         run(qw/svnadmin create/,$DEST);
  47         my $hook = "$DEST/hooks/pre-revprop-change";
  48         print STDERR "creating pre-revprop-change hook in $DEST...\n";
  49         open FO,'>',$hook or die("fatal error\n");
  50         print FO "#!/bin/sh\nexit 0\n";
  51         close FO;
  52         run(qw/chmod a+x/,$hook);
  53     }
  54 }
  55
  56
  57 my $action = shift;
  58 my $dst = shift;
  59 unless($dst) {
  60     $dst = $action;
  61     $action = 'load';
  62 }
  63
  64 if($action eq 'load') {
  65     create_repo($dst);
  66     run('svnadmin','load',$dst);
  67 }
  68 else {
  69     run('svnadmin',$action,$dst,@ARGV);
  70 }
  71
  72
  73
  74 __END__
  75
  76 =pod
  77
  78 =head1  NAME
  79
  80 svndump - PERL script
  81
  82 =head1  SYNOPSIS
  83
  84 svndump [options] ...
  85
  86 =head1  OPTIONS
  87
  88 =over 12
  89
  90 =item B<--version>
  91
  92 Print version infomation.
  93
  94 =item B<-h>,B<--help>
  95
  96 Print a brief help message and exits.
  97
  98 =item B<--manual>,B<--man>
  99
 100 View application manual
 101
 102 =item B<--edit-me>
 103
 104 Invoke 'editor' against the source
 105
 106 =back
 107
 108 =head1  DESCRIPTION
 109
 110 ___DESC___
 111
 112 =head1  CHANGELOG
 113
 114     2010-11-21 03:48  xiaoranzzz  <xiaoranzzz@myplace.hell>
 115
 116         * file created.
 117
 118 =head1  AUTHOR
 119
 120 xiaoranzzz <xiaoranzzz@myplace.hell>
 121
 122 =cut
 123
 124 #       vim:filetype=perl