version 1.11, 2006/05/23 18:34:40
|
version 1.12, 2006/05/26 15:37:14
|
Line 629 sub process_date {
|
Line 629 sub process_date {
|
if ($timestr !~ /:/) { |
if ($timestr !~ /:/) { |
$timestamp = ''; |
$timestamp = ''; |
} else { |
} else { |
my @entries = split/:/,$timestr; |
my @entries = split(/:/,$timestr); |
for (my $j=0; $j<@entries; $j++) { |
for (my $j=0; $j<@entries; $j++) { |
if ( length($entries[$j]) > 1 ) { |
if ( length($entries[$j]) > 1 ) { |
$entries[$j] =~ s/^0//; |
$entries[$j] =~ s/^0//; |
Line 668 sub process_date {
|
Line 668 sub process_date {
|
$entries[2] = 29; |
$entries[2] = 29; |
} |
} |
if ($entries[2] == 29) { |
if ($entries[2] == 29) { |
unless ($entries[0]%4 == 0) { |
if ($entries[0]%4 != 0) { |
$entries[2] == 28; |
$entries[2] == 28; |
} |
} elsif ( $entries[0]%100 == 0 |
|
&& $entries[0]%400 != 0) { |
|
$entries[2] == 28; |
|
} |
} |
} |
} |
} |
$timestamp = timelocal($entries[5],$entries[4],$entries[3],$entries[2],$entries[1],$entries[0]); |
$timestamp = timelocal($entries[5],$entries[4],$entries[3],$entries[2],$entries[1],$entries[0]); |