CVSROOT/loginfo.pl - diff

Return to loginfo.pl CVS log

Up to [LON-CAPA] / CVSROOT

version 1.2, 2002/11/15 16:25:20	version 1.7, 2008/07/17 23:18:24
Line 94 my (@added_files, @removed_files, @modif	Line 94 my (@added_files, @removed_files, @modif
while (<FC>) {	while (<FC>) {
chop;	chop;
my ($file, $old, $new) = split(",");	my ($file, $old, $new) = split(",");
if ($file =~ m\|TexConvert/tt.dynamic\|) { next; }
if($old eq "NONE") {	if($old eq "NONE") {
push @added_files, $file;	push @added_files, $file;
} elsif($new eq "NONE") {	} elsif($new eq "NONE") {
Line 120 my $diffmsg = '';	Line 119 my $diffmsg = '';

foreach my $info (@modified_files_info) {	foreach my $info (@modified_files_info) {
my ($file, $old, $new) = @$info;	my ($file, $old, $new) = @$info;
	if ($file =~ m\|TexConvert/tt.dynamic\| \|\|
	$file =~ m\|foxr/londtest\| \|\|
	$file =~ m\|purdue\| \|\|
	$file =~ m\|vcu/\| \|\|
	$file =~ m\|raeburn/private\| ) {
	$diffmsg='Diffs for '.$file.' not shown.'."\n";
	next;
	}
open(LOG, "$cvs -Qn rdiff -r $old -r $new -u $file\|") \|\| die;	open(LOG, "$cvs -Qn rdiff -r $old -r $new -u $file\|") \|\| die;
while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }	while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }
close(LOG);	close(LOG);