diff options
author | Ivan Kohler <ivan@freeside.biz> | 2012-02-20 00:30:21 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2012-02-20 00:30:21 -0800 |
commit | da5a5c6d5546aad5bc92e3255eaa6d9710c67426 (patch) | |
tree | 222df21d3527d22ebb990b5483cc8e64ac3291d1 /bin/19commit | |
parent | 046bc9bac3b7918ae3235769432d3a994e06224c (diff) |
adding
Diffstat (limited to 'bin/19commit')
-rwxr-xr-x | bin/19commit | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/bin/19commit b/bin/19commit deleted file mode 100755 index 0b4cd05db..000000000 --- a/bin/19commit +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl - -# usage: 19commit 'log message' filename filename ... - -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 - -my $desc = shell_quote(shift @ARGV); # -m - -die "no files!" unless @ARGV; - -#warn "$prefix"; - -#print <<END; -system join('', - "( cd /home/$USER/freeside1.9/$prefix; cvs update @ARGV ) && ", - "cvs diff -u @ARGV | ( cd /home/$USER/freeside1.9/$prefix; patch -p0 ) ", - " && ( ( cvs commit -m $desc @ARGV & ); ", - "( sleep 1;cd /home/$USER/freeside1.9/$prefix; cvs commit -m $desc @ARGV & ) )" -); - |