bin/23add

   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/freeside2.3/$prefix/`dirname \$file`;",
  15   "done ) && ",
  16   "cd /home/$USER/freeside2.3/$prefix/ && ",
  17   "git add @ARGV"
  18 );
  19