Get dates right in log lookup

diff --git a/webstump/scripts/html_output.pl b/webstump/scripts/html_output.pl
index 1c5fd4d96145bec85bbcfd738b952e809b093f13..1f4a15d14e24c1c488c4381d047d2dea39142503 100644 (file)
--- a/webstump/scripts/html_output.pl
+++ b/webstump/scripts/html_output.pl
@@ -704,7 +704,7 @@ and are often quoted in message headers in [square brackets].<p>
       return 0 unless @vals >= 5;
       my $subj= pop @vals;
       my ($group,$dir,$act,$reason,$timet) = @vals;
       return 0 unless @vals >= 5;
       my $subj= pop @vals;
       my ($group,$dir,$act,$reason,$timet) = @vals;

-      my $date= $timet ? (strftime "%Y-%M-%d %H:%M:%S GMT", gmtime $timet)
+      my $date= $timet ? (strftime "%Y-%m-%d %H:%M:%S GMT", gmtime $timet)

           : "(unknown)";
       return 0 unless $group eq $request{'newsgroup'};
       return 0 unless $subj =~ m,/(\d+)$,;
           : "(unknown)";
       return 0 unless $group eq $request{'newsgroup'};
       return 0 unless $subj =~ m,/(\d+)$,;


@@ -721,7 +721,8 @@ and are often quoted in message headers in [square brackets].<p>
       print "</table>" if $sofar;
       print "\n";
   } else {
       print "</table>" if $sofar;
       print "\n";
   } else {

-      print "Reference not found.";
+      print "Reference not found.".
+          "  (Perhaps message has expired, or is still in the queue?)";

   }
   &end_html;
 }
   }
   &end_html;
 }