CVSROOT/loginfo.pl - diff

Return to loginfo.pl CVS log

Up to [LON-CAPA] / CVSROOT

version 1.5, 2007/08/18 00:36:56	version 1.8, 2008/10/22 22:18:41
Line 121 foreach my $info (@modified_files_info)	Line 121 foreach my $info (@modified_files_info)
my ($file, $old, $new) = @$info;	my ($file, $old, $new) = @$info;
if ($file =~ m\|TexConvert/tt.dynamic\| \|\|	if ($file =~ m\|TexConvert/tt.dynamic\| \|\|
$file =~ m\|foxr/londtest\| \|\|	$file =~ m\|foxr/londtest\| \|\|
$file =~ m\|purdue\| ) {	$file =~ m\|purdue\| \|\|
	$file =~ m\|vcu/\| \|\|
	$file =~ m\|modules/[^/]+/private/\| ) {
$diffmsg='Diffs for '.$file.' not shown.'."\n";	$diffmsg='Diffs for '.$file.' not shown.'."\n";
next;	next;
}	}
Line 135 foreach my $info (@modified_files_info)	Line 137 foreach my $info (@modified_files_info)
foreach my $file (@added_files) {	foreach my $file (@added_files) {
next if $file =~ /\.(gif\|jpe\|jpe?g\|pdf\|png\|exe\|class\|tgz\|tar.gz\|jar)$/i	next if $file =~ /\.(gif\|jpe\|jpe?g\|pdf\|png\|exe\|class\|tgz\|tar.gz\|jar)$/i
or $file !~ /\./;	or $file !~ /\./;
	if ($file =~ m\|TexConvert/tt.dynamic\| \|\|
	$file =~ m\|foxr/londtest\| \|\|
	$file =~ m\|purdue\| \|\|
	$file =~ m\|vcu/\| \|\|
	$file =~ m\|modules/[^/]+/private/\| ) {
	$diffmsg='Contents of added file: '.$file.' not shown.'."\n";
	next;
	}
$diffmsg .= "\nIndex: $file\n+++ $file\n";	$diffmsg .= "\nIndex: $file\n+++ $file\n";
open(LOG, "$cvs -Qn checkout -p -r1.1 $file \|") \|\| die;	open(LOG, "$cvs -Qn checkout -p -r1.1 $file \|") \|\| die;
while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }	while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }