diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-06-04 14:03:12 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-06-04 14:03:12 -0700 |
commit | 6a5a5eae620f0c98eb5c18c24d9c989879508292 (patch) | |
tree | 6b3b9be4a3b2459870031611518d2640ad1bfc15 /bin/43add | |
parent | 0592d8e1ad7c8cab286b43743765fd1435cfac84 (diff) |
ivan's stupid multi-branch tools, don't use them
Diffstat (limited to 'bin/43add')
-rwxr-xr-x | bin/43add | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/bin/43add b/bin/43add new file mode 100755 index 0000000..90d5935 --- /dev/null +++ b/bin/43add @@ -0,0 +1,22 @@ +#!/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('', + "git add @ARGV ; ", + "( for file in @ARGV; do ", + "cp -i \$file /home/$USER/freeside4/$prefix/`dirname \$file`;", + "cp -i \$file /home/$USER/freeside3/$prefix/`dirname \$file`;", + "done ) && ", + "cd /home/$USER/freeside4/$prefix/ && ", + "git add @ARGV; ", + "cd /home/$USER/freeside3/$prefix/ && ", + "git add @ARGV" +); + |