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

[Ivan,,,]

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

Modified Files:
	21commit 
Added Files:
	231add 231commit 23add 23commit 23diff 
Log Message:
2.3 branch

--- NEW FILE: 23commit ---
#!/usr/bin/perl

# usage: 23commit '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.3/$prefix; cvs update @ARGV ) && ",
  "cvs diff -u @ARGV | ( cd /home/$USER/freeside2.3/$prefix; patch -p0 ) ",
  " && ( ( cvs commit  -m $desc @ARGV & ); ",
  "( sleep 1;cd /home/$USER/freeside2.3/$prefix; cvs commit -m $desc @ARGV & ) )"
);


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


Index: 21commit
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/21commit,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- 21commit	5 Nov 2010 21:31:40 -0000	1.1
+++ 21commit	21 Jul 2011 17:53:55 -0000	1.2
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# usage: 19commit 'log message' filename filename ...
+# usage: 21commit 'log message' filename filename ...
 
 use Cwd;
 use String::ShellQuote;

--- NEW FILE: 231commit ---
#!/usr/bin/perl

# usage: 231commit '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.3/$prefix; cvs update @ARGV ) && ",
  "( cd /home/$USER/freeside2.1/$prefix; cvs update @ARGV ) && ",
  "cvs diff -u @ARGV | ( cd /home/$USER/freeside2.3/$prefix; patch -p0 ) ",
  " && cvs diff -u @ARGV | ( cd /home/$USER/freeside2.1/$prefix; patch -p0 ) ",
  " && ( ( cvs commit  -m $desc @ARGV & ); ",
  "( sleep 1;cd /home/$USER/freeside2.3/$prefix; cvs commit -m $desc @ARGV & ) ); "
  "( sleep 1;cd /home/$USER/freeside2.1/$prefix; cvs commit -m $desc @ARGV & ) )"
);


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

my $file = shift;

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

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


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