version 1.104, 2003/04/20 11:42:59
|
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=0 if ($month<0); |
$month=1 if ($month<=0); |
$day=0 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); |
} |
} |
|
|