use warnings;
use POSIX qw(strftime);
-use Date::Parse qw(strptime);
+use Date::Parse qw(str2time);
use Digest::SHA qw(sha1_hex);
use PublicInbox::Address;
use PublicInbox::Hval qw(ascii_html);
}
my $href = $base . mid_escape($mid) . '/';
my $date = $hdr->header('Date');
- my @t = eval { strptime($date) } if defined $date;
- @t = gmtime(time) unless scalar @t;
+ my $t = eval { str2time($date) } if defined $date;
+ my @t = gmtime(defined $t ? $t : time);
my $updated = feed_updated(@t);
my $title = $hdr->header('Subject');
}
$s .= "<entry><author><name>$name</name><email>$email</email>" .
"</author>$title$updated" .
+ qq(<link\nhref="$href"/>).
+ "<id>$uuid</id>$irt" .
qq{<content\ntype="xhtml">} .
qq{<div\nxmlns="http://www.w3.org/1999/xhtml">} .
qq(<pre\nstyle="white-space:pre-wrap">) .
PublicInbox::View::multipart_text_as_html($mime, $href) .
- '</pre>' .
- qq!</div></content><link\nhref="$href"/>!.
- "<id>$uuid</id>$irt</entry>";
+ '</pre></div></content></entry>';
}
sub feed_updated {