--- CVSROOT/loginfo.pl	2008/02/11 20:00:15	1.6
+++ CVSROOT/loginfo.pl	2008/11/26 18:54:53	1.9
@@ -25,6 +25,7 @@ my $cvsroot    = $ENV{CVSROOT}."/";
 # remove double trailing slash
 $cvsroot =~ s/\/\/$/\//;
 my $cvsusers   = "/repository/CVSROOT/cvsusers";
+my $cvshost = "source.lon-capa.org";
 
 # get the id of this process group for use in figuring out
 # whether this is the last directory with checkins or not
@@ -33,8 +34,7 @@ my $id = getpgrp();
 # the command line looks something like this for a normal commit:
 #  ("user@example.com", "cvsuser",
 #   "module changedfile,1.1,1.2 addedfile,NONE,1.1 removedfile,1.1,NONE")
-my $mailfrom = shift;
-my $mailto = $mailfrom;
+my $mailto = shift;
 my $envaddr = $mailto;
 
 my $cvsuser = shift;
@@ -122,7 +122,8 @@ foreach my $info (@modified_files_info)
         if ($file =~ m|TexConvert/tt.dynamic|  ||
 	    $file =~ m|foxr/londtest| ||
 	    $file =~ m|purdue| ||
-            $file =~ m|vcu/| ) {
+            $file =~ m|vcu/| ||
+            $file =~ m|modules/[^/]+/private/| ) {
 		$diffmsg='Diffs for '.$file.' not shown.'."\n";
 		next;
 	}
@@ -136,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 .= $_; }
@@ -186,7 +195,7 @@ if (open FD, $cvsusers) {
 	close(FD);
 }
 
-$from ||= "$cvsuser <$mailfrom>";
+$from ||= "$cvsuser <$cvsuser\@$cvshost>";
 
 # "Reply-to: $mailto\n".
 # "Date: ".localtime()."\n".