fix date output
Submitted by: Robert Bonomi
This commit is contained in:
parent
21c6df4d64
commit
8c3904654c
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=35399
1 changed files with 2 additions and 2 deletions
|
@ -15,7 +15,7 @@
|
|||
# Disclaimer:
|
||||
# This is pretty ugly in places.
|
||||
#
|
||||
# $FreeBSD: www/en/cgi/search.cgi,v 1.26 2005/10/24 20:59:01 wosch Exp $
|
||||
# $FreeBSD: www/en/cgi/search.cgi,v 1.27 2006/03/24 01:51:18 kuriyama Exp $
|
||||
|
||||
|
||||
$server_root = '/usr/local/www';
|
||||
|
@ -248,7 +248,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 + ($1 > 69 ? 1900 : 2000), $mo = $months[$2 - 1], $dy = $3);
|
||||
print "Lines: <em>$lines</em>; ";
|
||||
print "${dy}-${mo}-${yr}; ";
|
||||
print "Archive: <em>$file</em>";
|
||||
|
|
Loading…
Reference in a new issue