For the moment, prefer the getpwuid($<) value over getlogin..

Remove debugging output again.. (which proved that getlogin returns the
wrong value sometimes..)

CVSROOT/log_accum.pl

 #!/usr/bin/perl -w
 #
-# $Id: log_accum.pl,v 1.8 1995/07/15 14:01:54 rgrimes Exp $
+# $Id: log_accum.pl,v 1.9 1995/10/31 20:05:12 peter 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,10 +162,11 @@ sub build_header {
     delete $ENV{'TZ'};
     local($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
     $version = '';
-    $login = getlogin || (getpwuid($<))[0] || die("Unknown user $<.\n");
-    $header = sprintf("%-8s  %s  %02d/%02d/%02d %02d:%02d:%02d (%s/%d/%s)",
+    #$login = getlogin || (getpwuid($<))[0] || die("Unknown user $<.\n");
+    $login = (getpwuid($<))[0] || die("Unknown user $<.\n");
+    $header = sprintf("%-8s  %s  %02d/%02d/%02d %02d:%02d:%02d",
 		       $login, $version, $year%100, $mon+1, $mday,
-		       $hour, $min, $sec, getlogin, $<, (getpwuid($<))[0]);
+		       $hour, $min, $sec);
 }
 
 # !!! Mailing-list and history file mappings here !!!