--- CVSROOT/loginfo.pl	2002/02/06 17:53:44	1.1
+++ CVSROOT/loginfo.pl	2008/10/22 22:18:41	1.8
@@ -119,6 +119,14 @@ my $diffmsg = '';
 
 foreach my $info (@modified_files_info) {
 	my ($file, $old, $new) = @$info;
+        if ($file =~ m|TexConvert/tt.dynamic|  ||
+	    $file =~ m|foxr/londtest| ||
+	    $file =~ m|purdue| ||
+            $file =~ m|vcu/| ||
+            $file =~ m|modules/[^/]+/private/| ) {
+		$diffmsg='Diffs for '.$file.' not shown.'."\n";
+		next;
+	}
 	open(LOG, "$cvs -Qn rdiff -r $old -r $new -u $file|") || die;
 	while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }
 	close(LOG);
@@ -129,6 +137,14 @@ foreach my $info (@modified_files_info)
 foreach my $file (@added_files) {
 	next if $file =~ /\.(gif|jpe|jpe?g|pdf|png|exe|class|tgz|tar.gz|jar)$/i
 		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";
 	open(LOG, "$cvs -Qn checkout -p -r1.1 $file |") || die;
 	while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }