summaryrefslogtreecommitdiff
path: root/ACE/bin/cltime.pl
blob: a962a20912a138524b3811815e1839e6d3c55cf6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
# $Id$
use strict;

my($name)  = shift;
my($email)  = shift;
my($entry) = scalar(gmtime());

my($tz) = 'UTC';
$entry =~ s/(:\d\d\s+)(.*)(\d\d\d\d)$/$1$tz $3/;

$entry .= "  $name <$email>";

print $entry;