Fix year up to year 2899

This commit is contained in:
Wolfram Schneider 2000-10-28 18:20:39 +00:00
parent ac2951802b
commit 1b587bb8cf
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8223

View file

@ -15,7 +15,7 @@
# Disclaimer:
# This is pretty ugly in places.
#
# $FreeBSD: www/en/cgi/search.cgi,v 1.16 2000/04/03 08:45:51 phantom Exp $
# $FreeBSD: www/en/cgi/search.cgi,v 1.17 2000/10/10 19:40:43 wosch Exp $
$server_root = '/usr/local/www';
@ -251,7 +251,7 @@ sub docdone {
# print "<input type=\"checkbox\" name=\"rf\" value=\"$docnum\">";
print "Score: <em>$score</em>; ";
$_ = $date;
/(..)(..)(..)/ && ($yr = $1 + 1900, $mo = $months[$2 - 1], $dy = $3);
/(...?)(..)(..)/ && ($yr = $1 + 1900, $mo = $months[$2 - 1], $dy = $3);
print "Lines: <em>$lines</em>; ";
print "${dy}-${mo}-${yr}; ";
print "Archive: <em>$file</em>";