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;