[gentoo-commits] CVSROOT commit in /: checkoutlist cvslogholder.pl

[Robin H. Johnson (robbat2)]

robbat2     08/12/03 04:23:28

  Modified:             checkoutlist
  Added:                cvslogholder.pl
  Log:
  Add new script for better loginfo handling.

Revision  Changes    Path
1.13                 checkoutlist

file : http://sources.gentoo.org/viewcvs.py/CVSROOT/checkoutlist?rev=1.13&view=markup
plain: http://sources.gentoo.org/viewcvs.py/CVSROOT/checkoutlist?rev=1.13&content-type=text/plain
diff : http://sources.gentoo.org/viewcvs.py/CVSROOT/checkoutlist?r1=1.12&r2=1.13

Index: checkoutlist
===================================================================
RCS file: /var/cvsroot/CVSROOT/checkoutlist,v
retrieving revision 1.12
retrieving revision 1.13
diff -p -w -b -B -u -u -r1.12 -r1.13
--- checkoutlist	17 Sep 2008 21:30:55 -0000	1.12
+++ checkoutlist	3 Dec 2008 04:23:28 -0000	1.13
@@ -24,3 +24,4 @@ commitlog-infra.pl
 commitlog-portage.pl
 readers
 val-tags
+cvslogholder.pl



1.1                  cvslogholder.pl

file : http://sources.gentoo.org/viewcvs.py/CVSROOT/cvslogholder.pl?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewcvs.py/CVSROOT/cvslogholder.pl?rev=1.1&content-type=text/plain

Index: cvslogholder.pl
===================================================================
#!/usr/bin/perl
# This script provides temporary capture and replay of loginfo stdin, so that
# we can run multiple processing scripts.
# robbat2@g.o, 2008/12/02
#
# Example use:
# ALL ( cvslogholder.pl --capture %c %r %p %{sVv} ; \
#		cvslogholder.pl --display %c %r %p %{sVv} | script1 ; \
#		cvslogholder.pl --display %c %r %p %{sVv} | script2 ; \
#		cvslogholder.pl --cleanup %c %r %p %{sVv} )
use strict;
use warnings;
use Digest::SHA1 qw(sha1_hex);
use Getopt::Long;

my $LOGDIR = '/mnt/cvstmpdir/';
my $USER = $ENV{'USER'};

my $CMD_CAPTURE = 0;
my $CMD_DISPLAY = 0;
my $CMD_CLEANUP = 0;
my $CMD_HELP = 0;

my $result = GetOptions( 
	"capture" => \$CMD_CAPTURE, 
	"display" => \$CMD_DISPLAY,
	"cleanup" => \$CMD_CLEANUP,
);

unless($CMD_CAPTURE + $CMD_DISPLAY + $CMD_CLEANUP == 1 and @ARGV > 0) {
	print STDERR "You must specify exactly one mode and arguments.\n";
	exit(1);
}

my $args = (join(' ', (map { sprintf( "'%s'",$_); } @ARGV)));
#printf "args: %s\n", $args;
my $argchecksum = sha1_hex($args);
#printf "argchecksum: %s\n", $argchecksum;

my $basename = sprintf("%s/cvslog-%s-%s",$LOGDIR, $USER, $argchecksum);
#printf "basename: $basename";

my $argfile = $basename.".args";
my $logfile = $basename.".log";

if($CMD_CAPTURE == 1) {
	if(-f $argfile) {
		print STDERR "argfile $argfile already exists. Serious error!\n";
		exit(2);
	}
	
	if(-f $logfile) {
		print STDERR "logfile $logfile already exists. Serious error!\n";
		exit(2);
	}
	
	open ARGFILE,">", $argfile or die "Unable to create $argfile.";
	print ARGFILE join('',map { sprintf("%s\n", $_); } @ARGV);
	close ARGFILE;
	
	
	open LOGFILE,">", $logfile or die "Unable to create $logfile.";
	while(<STDIN>) {
		print LOGFILE $_;
	}
	close LOGFILE;
} elsif($CMD_DISPLAY) {
	open LOGFILE,"<", $logfile or die "Unable to find $logfile";
	while(<LOGFILE>) {
		print $_;
	}
	close LOGFILE;
} elsif($CMD_CLEANUP) {
	unlink $logfile;
	unlink $argfile;
}