[LON-CAPA-cvs] cvs: CVSROOT / loginfo.pl

[raeburn]

raeburn		Wed Oct 22 22:18:42 2008 EDT

  Modified files:              
    /CVSROOT	loginfo.pl 
  Log:
  - Diffs for commits in modules/$user/private not included in mail to cvs list.
  - Exclude contents of new files added to areas for which diffs are excluded from mail to list.
  
  
Index: CVSROOT/loginfo.pl
diff -u CVSROOT/loginfo.pl:1.7 CVSROOT/loginfo.pl:1.8
--- CVSROOT/loginfo.pl:1.7	Thu Jul 17 23:18:24 2008
+++ CVSROOT/loginfo.pl	Wed Oct 22 22:18:41 2008
@@ -123,7 +123,7 @@
 	    $file =~ m|foxr/londtest| ||
 	    $file =~ m|purdue| ||
             $file =~ m|vcu/| ||
-            $file =~ m|raeburn/private| ) {
+            $file =~ m|modules/[^/]+/private/| ) {
 		$diffmsg='Diffs for '.$file.' not shown.'."\n";
 		next;
 	}
@@ -137,6 +137,14 @@
 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 .= $_; }