In the links.cfg file, under the sub date_to_unix function, it says:
$day = int($day); $year = $year - 1900;
and in the sub unix_to_date, it says:
my ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $tz) = localtime $time;
my @months = qw!Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec!;
$year = $year + 1900;
return "$day-$months[$mon]-$year";
Do I need to chane the 1900 to 2000 ???
------------------
--Sanguinarius
The Real Vampire Directory
www.sanguinarius.org/cgi-bin/links/pages/
Quote:
exists $months{$mon} or return undef; $day = int($day); $year = $year - 1900;
and in the sub unix_to_date, it says:
Quote:
my $time = shift; my ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $tz) = localtime $time;
my @months = qw!Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec!;
$year = $year + 1900;
return "$day-$months[$mon]-$year";
Do I need to chane the 1900 to 2000 ???
------------------
--Sanguinarius
The Real Vampire Directory
www.sanguinarius.org/cgi-bin/links/pages/