$gmt =~ /\A(?:UTC|GMT)\z/i or die "GM invalid: $gmt";
$gmt = 1;
}
- my @now = $gmt ? gmtime : localtime;
my ($YYYY, $MM, $DD);
if (bytes::length($date) == 8) { # RFC 3977 allows YYYYMMDD
($YYYY, $MM, $DD) = unpack('A4A2A2', $date);
} else { # legacy clients send YYMMDD
- ($YYYY, $MM, $DD) = unpack('A2A2A2', $date);
+ my $YY;
+ ($YY, $MM, $DD) = unpack('A2A2A2', $date);
+ my @now = $gmt ? gmtime : localtime;
my $cur_year = $now[5] + 1900;
- if ($YYYY > $cur_year) {
- $YYYY += int($cur_year / 1000) * 1000 - 100;
- }
+ my $cur_cent = int($cur_year / 100) * 100;
+ $YYYY = (($YY + $cur_cent) > $cur_year) ?
+ ($YY + 1900) : ($YY + $cur_cent);
}
if ($gmt) {
timegm($ss, $mm, $hh, $DD, $MM - 1, $YYYY);
my $m = join(' ', @_);
my $ts = PublicInbox::NNTP::parse_time(@_);
my @t = gmtime($ts);
- my ($d, $t);
- if (length($date) == 8) {
- ($d, $t) = split(' ', strftime('%Y%m%d %H%M%S', @t));
- } else {
- ($d, $t) = split(' ', strftime('%g%m%d %H%M%S', @t));
+ my ($d, $t) = split(' ', strftime('%Y%m%d %H%M%S', @t));
+ if (length($date) != 8) { # Net::NNTP uses YYMMDD :<
+ $d =~ s/^[0-9]{2}//;
}
is_deeply([$d, $t], [$date, $time], "roundtripped: $m");
$ts;
my $x1 = time_roundtrip(qw(20141109 060606 GMT));
my $x2 = time_roundtrip(qw(141109 060606 GMT));
my $x3 = time_roundtrip(qw(930724 060606 GMT));
-
+ my $x5 = time_roundtrip(qw(710101 000000));
+ my $x6 = time_roundtrip(qw(720101 000000));
SKIP: {
- skip('YYMMDD test needs updating', 2) if (time > 0x7fffffff);
+ skip('YYMMDD test needs updating', 6) if (time > 0x7fffffff);
# our world probably ends in 2038, but if not we'll try to
# remember to update the test then
is($x1, $x2, 'YYYYMMDD and YYMMDD parse identically');
is(strftime('%Y', gmtime($x3)), '1993', '930724 was in 1993');
+
+ my $epoch = time_roundtrip(qw(700101 000000 GMT));
+ is($epoch, 0, 'epoch parsed correctly');
+ ok($x6 > $x5, '1972 > 1971');
+ ok($x5 > $epoch, '1971 > Unix epoch');
}
}