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

[Ivan,,,]

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

Added Files:
	19add 19commit 19diff 
Log Message:
these are useful

--- NEW FILE: 19diff ---
#!/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);


--- NEW FILE: 19add ---
#!/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"
);


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