version 1.103, 2003/04/20 11:35:05
|
version 1.105, 2003/04/20 11:44:46
|
Line 104 my @months=('000','Jan',"Feb","Mar","Apr
|
Line 104 my @months=('000','Jan',"Feb","Mar","Apr
|
sub NewEnough { |
sub NewEnough { |
my ($a) = @_; |
my ($a) = @_; |
my ($year, $month, $day) = split('-', $a); |
my ($year, $month, $day) = split('-', $a); |
|
$month=1 if ($month<=0); |
|
$day=1 if ($day<0); |
return (time - timelocal(0, 0, 0, $day, $month -1, $year) < $TMSECS); |
return (time - timelocal(0, 0, 0, $day, $month -1, $year) < $TMSECS); |
} |
} |
|
|