monthly.pl not y2k compliant

• Messages sorted by: [ date ][ thread ][ subject ][ author ]
• Previous message: S.Christopoulos: "problem in splitlog file"

	In the file monthly and monthly.pl I found the following code around
line 65:

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
if ($mon == 0) { $mon = 11; $year -= 1; }
else           { $mon -= 1; }

$LastMonth = $MoY[$mon];

$ArcName  =~ s/%M/$LastMonth$year/;

$ArcStats = '/dc/ud/www/documentroot/Admin/stats-19' . $year .
            '/' . $LastMonth . '.wwwstats.html';

	This should probably be replaced with:


($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
if ($mon == 0) { $mon = 11; $year -= 1; }
else           { $mon -= 1; }

$LastMonth = $MoY[$mon];

$year += 1900;
$ArcName  =~ s/%M/$LastMonth$year/;

$ArcStats = '/dc/ud/www/documentroot/Admin/stats-' . $year .
            '/' . $LastMonth . '.wwwstats.html';


	It will change the ArcName to a 4 digit year so that may affect
something else.  Otherwise, the ArcName for Jan 2000 will be 01100!


-Earle
-- 
Earle Ake       Manager, Internet Services       Earle.Ake@HCST.com
Hassler Communication Systems Technology, Inc.  http://www.hcst.net

• Previous message: S.Christopoulos: "problem in splitlog file"