Commit f0a45724 authored by peter's avatar peter
Browse files

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.
parent 050bc94a
#!/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];
......
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