From: Ivan Kohler Date: Mon, 20 Feb 2012 08:30:21 +0000 (-0800) Subject: adding X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=da5a5c6d5546aad5bc92e3255eaa6d9710c67426 adding --- diff --git a/bin/19add b/bin/19add deleted file mode 100755 index 726cd66a0..000000000 --- a/bin/19add +++ /dev/null @@ -1,20 +0,0 @@ -#!/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/freeside1.9/$prefix/`dirname \$file`;", - "done ) && ", - "cd /home/$USER/freeside1.9/$prefix/ && ", - "cvs add @ARGV" -); - 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 <