diff options
Diffstat (limited to 'bin/231add')
-rwxr-xr-x | bin/231add | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/bin/231add b/bin/231add new file mode 100755 index 000000000..ee9f8a456 --- /dev/null +++ b/bin/231add @@ -0,0 +1,23 @@ +#!/usr/bin/perl + +use Cwd; +use String::ShellQuote; + +my $USER = $ENV{USER}; + +my $dir = getcwd; +( my $prefix = $dir ) =~ s(^/home/$USER/freeside/?)() or die $dir; #eventually from anywhere + +system join('', + #"cvs add @ARGV && ", + "cvs add @ARGV ; ", + "( for file in @ARGV; do ", + "cp -i \$file /home/$USER/freeside2.3/$prefix/`dirname \$file`;", + "cp -i \$file /home/$USER/freeside2.1/$prefix/`dirname \$file`;", + "done ) && ", + "cd /home/$USER/freeside2.3/$prefix/ && ", + "cvs add @ARGV", + "cd /home/$USER/freeside2.1/$prefix/ && ", + "cvs add @ARGV" +); + |