diff options
| author | William R. Otte <wotte@dre.vanderbilt.edu> | 2008-03-04 14:51:23 +0000 |
|---|---|---|
| committer | William R. Otte <wotte@dre.vanderbilt.edu> | 2008-03-04 14:51:23 +0000 |
| commit | 99aa8c60282c7b8072eb35eb9ac815702f5bf586 (patch) | |
| tree | bda96bf8c3a4c2875a083d7b16720533c8ffeaf4 /ACE/bin/cltime.pl | |
| parent | c4078c377d74290ebe4e66da0b4975da91732376 (diff) | |
| download | ATCD-99aa8c60282c7b8072eb35eb9ac815702f5bf586.tar.gz | |
undoing accidental deletion
Diffstat (limited to 'ACE/bin/cltime.pl')
| -rwxr-xr-x | ACE/bin/cltime.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/ACE/bin/cltime.pl b/ACE/bin/cltime.pl new file mode 100755 index 00000000000..a962a20912a --- /dev/null +++ b/ACE/bin/cltime.pl @@ -0,0 +1,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; |