bin/32add

   1 #!/usr/bin/perl
   2
   3 use Cwd;
   4 use String::ShellQuote;
   5
   6 my $USER = $ENV{USER};
   7
   8 my $dir = getcwd;
   9 ( my $prefix = $dir ) =~ s(^/home/$USER/freeside/?)() or die $dir; #eventually from anywhere
  10
  11 system join('',
  12   "git add @ARGV ; ",
  13   "( for file in @ARGV; do ",
  14      "cp -i \$file /home/$USER/freeside3/$prefix/`dirname \$file`;",
  15      "cp -i \$file /home/$USER/freeside2.3/$prefix/`dirname \$file`;",
  16   "done ) && ",
  17   "cd /home/$USER/freeside3/$prefix/ && ",
  18   "git add @ARGV; ",
  19   "cd /home/$USER/freeside2.3/$prefix/ && ",
  20   "git add @ARGV"
  21 );
  22