changeset 100:19148729b491

Updated the formatting of date++time on comments
author Steve Kemp <steve@steve.org.uk>
date Wed, 12 Dec 2007 17:38:04 +0000
parents cd27fd555272
children b67757b6fdae
files bin/chronicle
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/bin/chronicle	Wed Dec 12 17:33:22 2007 +0000
+++ b/bin/chronicle	Wed Dec 12 17:38:04 2007 +0000
@@ -1633,7 +1633,17 @@
         if ( $file =~ /^(.*)\.([^.]+)$/ )
         {
             $date = $2;
+
+            if ( $date =~ /(.*)-([0-9:]+)/ )
+            {
+                my $d = $1;
+                my $t = $2;
+
+                $d =~ s/-/ /g;
+                $date = "Submitted at $t on $d";
+            }
         }
+
         open( COMMENT, "<", $file )
           or next;