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+)$,;
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;
}