modified date algorithium

This commit is contained in:
petitta%netscape.com 1999-04-07 19:15:23 +00:00
parent 1b80858287
commit ce623d963a

View File

@ -13,8 +13,13 @@ if ($len < 2) {
$mday = 0 . $mday
}
$len = length($hour);
if ($len < 2) {
$hour = 0 . $hour
}
$year = $year + 1900;
$Blddate = $year . $mon . $mday . $hour;
$Blddate = $year . "-" . $mon . "-" . $mday . "-" . $hour;
open (BDATE, ">c:\\CCKScripts\\bdate.bat") || die "cannot open c:\\CCKScripts\\bdate.bat: $!";
print BDATE "set BuildID=$Blddate\n";