mirror of
https://github.com/mangosfour/server.git
synced 2025-12-15 19:37:02 +00:00
571f510ee4
(based on cipherCOM's repo commit d3d8934) Signed-off-by: VladimirMangos <vladimir@getmangos.com>
13 lines
250 B
Perl
Executable file
13 lines
250 B
Perl
Executable file
# $Id: cltime.pl 80826 2008-03-04 14:51:23Z wotte $
|
|
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;
|