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 | |
parent | 046bc9bac3b7918ae3235769432d3a994e06224c (diff) |
adding
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/19add | 20 | ||||
-rwxr-xr-x | bin/19commit | 26 | ||||
-rwxr-xr-x | bin/19diff | 12 | ||||
-rwxr-xr-x | bin/cvs2cl | 2 |
4 files changed, 0 insertions, 60 deletions
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 <<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 & ) )" -); - diff --git a/bin/19diff b/bin/19diff deleted file mode 100755 index dcc516536..000000000 --- a/bin/19diff +++ /dev/null @@ -1,12 +0,0 @@ -#!/usr/bin/perl - -my $file = shift; - -chomp(my $dir = `pwd`); -$dir =~ s/freeside\//freeside1.9\//; - -#$cmd = "diff -u $file $dir/$file"; -$cmd = "diff -u $dir/$file $file"; -print "$cmd\n"; -system($cmd); - diff --git a/bin/cvs2cl b/bin/cvs2cl deleted file mode 100755 index 1c1bfb097..000000000 --- a/bin/cvs2cl +++ /dev/null @@ -1,2 +0,0 @@ -#!/bin/sh -cvs2cl -F trunk |