[freeside-commits] freeside/bin 21add, NONE, 1.1 21commit, NONE, 1.1 21diff, NONE, 1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail.420.am:/tmp/cvs-serv22294

Added Files:
	21add 21commit 21diff 
Log Message:
adding 21 tools

--- NEW FILE: 21diff ---
#!/usr/bin/perl

my $file = shift;

chomp(my $dir = `pwd`);
$dir =~ s/freeside\//freeside2.1\//;

#$cmd = "diff -u $file $dir/$file";
$cmd = "diff -u $dir/$file $file";
print "$cmd\n";
system($cmd);


--- NEW FILE: 21add ---
#!/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/freeside2.19/$prefix/`dirname \$file`;",
  "done ) && ",
  "cd /home/$USER/freeside2.19/$prefix/ && ",
  "cvs add @ARGV"
);


--- NEW FILE: 21commit ---
#!/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 & ) )"
);