From 433def7bdb93ae29c0fb15fd0645391253d254a9 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Wed, 21 Apr 2010 15:05:47 +0100 Subject: [PATCH] Get dates right in log lookup --- webstump/scripts/html_output.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/webstump/scripts/html_output.pl b/webstump/scripts/html_output.pl index 1c5fd4d..1f4a15d 100644 --- 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].

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+)$,; @@ -721,7 +721,8 @@ and are often quoted in message headers in [square brackets].

print "" 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; } -- 2.30.2