I don't know. The problem is that the date search is based on the "epoch date" of the server, which began on 1 January 1970. I didn't think even the birthdate conversion would work.
One thing that might work would be to completely revamp the date search routines so that it was looking for a number, instead of a date. If the dates were converted to a yyyymmdd format, the search routine could just look at those as numbers.
One thing I haven't looked at a lot is the search routines. Hang on a bit and I'll take a look.
Hmmmmm. Maybe we could do something with the date_to_unix subroutine. Are you willing to try something? I have no idea if it will work, so be sure to save your old script.
Here goes:
Code:
sub date_to_unix {
# --------------------------------------------------------
# This routine must take your date format and return the time a la UNIX time().
# Some things to be careful about..
# int your values just in case to remove spaces, etc.
# catch the fatal error timelocal will generate if you have a bad date..
# don't forget that the month is indexed from 0!
#
my ($date) = $_[0];
my (%months) = ("Jan" => 0, "Feb" => 1, "Mar" => 2, "Apr" => 3, "May" => 4, "Jun" => 5,
"Jul" => 6, "Aug" => 7, "Sep" => 8, "Oct" => 9, "Nov" => 10,"Dec" => 11);
my ($time);
my ($day, $mon, $year) = split(/-/, $_[0]);
unless ($day and $mon and $year) { return undef; }
unless (defined($months{$mon})) { return undef; }
$time = int($year) . ($months{$mon} + 1) . int($day);
return ($time);
}
It should work (famous last words!
), but I just don't know for sure.
------------------
JPD
