svn-add-keyword

   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 edit-me manual|man/;
  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 else
  27 {
  28     require MyPlace::Usage;
  29     MyPlace::Usage::PrintHelp();
  30 }
  31
  32 my ($keyword,@files)=@ARGV;
  33 unless(@files)
  34 {
  35     @files=($keyword);
  36     $keyword="Id";
  37 }
  38 foreach(@files) {
  39     system("svn","add",$_);
  40     system("svn","propset","svn:keywords",$keyword,$_);
  41 }
  42
  43
  44
  45 __END__
  46
  47 =pod
  48
  49 =head1  NAME
  50
  51 svn-add-keyword - set svn:keywords to file
  52
  53 =head1  SYNOPSIS
  54
  55 svn-add-keyword [options] (file | keyword file1 [file2 ...])
  56
  57 =head1  OPTIONS
  58
  59 =over 12
  60
  61 =item B<--version>
  62
  63 Print version infomation.
  64
  65 =item B<-h>,B<--help>
  66
  67 Print a brief help message and exits.
  68
  69 =item B<--manual>,B<--man>
  70
  71 View application manual
  72
  73 =item B<--edit-me>
  74
  75 Invoke 'editor' against the source
  76
  77 =back
  78
  79 =head1  DESCRIPTION
  80
  81 Set svn:keywords to files, make them under 'Version Control' if not
  82
  83 =head1  CHANGELOG
  84
  85     Sun Jun  6 01:24:09 2010  xiaoranzzz  <xiaoranzzz@myplace.hell>
  86
  87         * file created.
  88
  89 =head1  AUTHOR
  90
  91 xiaoranzzz <xiaoranzzz@myplace.hell>
  92
  93 =cut
  94
  95