Commit b3337061 authored by peter's avatar peter
Browse files

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

Remove debugging output again.. (which proved that getlogin returns the
wrong value sometimes..)
parent f0a45724
#!/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 !!!
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment