blob: d28eea7b9dc35d8796c100e8b24158ed025fef2c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
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;
|