WebGUI 2.3.0 release

This commit is contained in:
JT Smith 2001-10-29 00:12:00 +00:00
parent 794b4a319c
commit d2a9e59fab
36 changed files with 2715 additions and 1425 deletions

View file

@ -132,7 +132,23 @@ sub humanToEpoch {
#-------------------------------------------------------------------
sub setToEpoch {
my @date = localtime(time());
my ($month, $day, $year) = split(/\//,$_[0]);
if (int($year) < 2038 && int($year) > 1900) {
$year = int($year);
} else {
$year = $date[5]+1900;
}
if (int($month) < 13 && int($month) > 0) {
$month = int($month);
} else {
$month = $date[4]++;
}
if (int($day) < 32 && int($day) > 0) {
$day = int($day);
} else {
$day = $date[3];
}
return humanToEpoch($year.'-'.$month.'-'.$day.' 00:00:00');
}