diff options
Diffstat (limited to 'bin/21commit')
-rwxr-xr-x | bin/21commit | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/bin/21commit b/bin/21commit deleted file mode 100755 index 211c0ed18..000000000 --- a/bin/21commit +++ /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/freeside2.1/$prefix; cvs update @ARGV ) && ", - "cvs diff -u @ARGV | ( cd /home/$USER/freeside2.1/$prefix; patch -p0 ) ", - " && ( ( cvs commit -m $desc @ARGV & ); ", - "( sleep 1;cd /home/$USER/freeside2.1/$prefix; cvs commit -m $desc @ARGV & ) )" -); - |