The following minor tweak adds a tiny bit of debug info so that

I can see how 'hsu' is getting attributed with some of my commits.

1 files changed, 4 insertions, 4 deletions

diff --git a/CVSROOT/log_accum.pl b/CVSROOT/log_accum.pl
index cd5698522703..6794784afa48 100755
--- a/CVSROOT/log_accum.pl
+++ b/CVSROOT/log_accum.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: log_accum.pl,v 1.7 1995/07/15 12:59:04 rgrimes Exp $
+# $Id: log_accum.pl,v 1.8 1995/07/15 14:01:54 rgrimes Exp $
 #
 # Perl filter to handle the log messages from the checkin of files in
 # a directory.  This script will group the lists of files by log
@@ -162,9 +162,10 @@ sub build_header {
     delete $ENV{'TZ'};
     local($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
     $version = '';
-    $header = sprintf("%-8s  %s  %02d/%02d/%02d %02d:%02d:%02d",
+    $login = getlogin || (getpwuid($<))[0] || die("Unknown user $<.\n");
+    $header = sprintf("%-8s  %s  %02d/%02d/%02d %02d:%02d:%02d (%s/%d/%s)",
 		       $login, $version, $year%100, $mon+1, $mday,
-		       $hour, $min, $sec);
+		       $hour, $min, $sec, getlogin, $<, (getpwuid($<))[0]);
 }
 
 # !!! Mailing-list and history file mappings here !!!
@@ -279,7 +280,6 @@ sub mail_notification {
 #
 $id = getpgrp();
 $state = $STATE_NONE;
-$login = getlogin || (getpwuid($<))[0] || die("Unknown user $<.\n");
 @files = split(' ', $ARGV[0]);
 @path = split('/', $files[0]);
 $repository = @path[0];