diff options
Diffstat (limited to 'CVSROOT/log_accum.pl')
| -rwxr-xr-x | CVSROOT/log_accum.pl | 8 |
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]; |