CVSROOT/loginfo.pl - diff

Return to loginfo.pl CVS log

Up to [LON-CAPA] / CVSROOT

version 1.3, 2002/11/15 16:34:16	version 1.7, 2008/07/17 23:18:24
Line 119 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\|) { $diffmsg='Diffs for '.$file.' not shown.'."\n";next; }	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);