diff options
-rwxr-xr-x | Documentation/mknews.perl | 2 | ||||
-rw-r--r-- | lib/PublicInbox/WwwAtomStream.pm | 8 |
2 files changed, 4 insertions, 6 deletions
diff --git a/Documentation/mknews.perl b/Documentation/mknews.perl index 965c30c1..ba049d9e 100755 --- a/Documentation/mknews.perl +++ b/Documentation/mknews.perl @@ -131,7 +131,7 @@ sub atom_start { delete $astream->{emit_header}; my $ibx = $ctx->{-inbox}; my $title = PublicInbox::WwwAtomStream::title_tag($ibx->description); - my $updated = PublicInbox::WwwAtomStream::feed_updated(gmtime($mtime)); + my $updated = PublicInbox::WwwAtomStream::feed_updated($mtime); print $out <<EOF or die; <?xml version="1.0" encoding="us-ascii"?> <feed diff --git a/lib/PublicInbox/WwwAtomStream.pm b/lib/PublicInbox/WwwAtomStream.pm index c407e343..c494fa22 100644 --- a/lib/PublicInbox/WwwAtomStream.pm +++ b/lib/PublicInbox/WwwAtomStream.pm @@ -103,7 +103,7 @@ sub atom_header { qq(\nhref="$base_url"/>) . qq(<link\nrel="self"\nhref="$self_url"/>) . qq(<id>$page_id</id>) . - feed_updated(gmtime($mtime)); + feed_updated($mtime); } # returns undef or string @@ -125,9 +125,7 @@ sub feed_entry { $irt = ''; } my $href = $base . mid_href($mid) . '/'; - my $t = msg_timestamp($hdr); - my @t = gmtime(defined $t ? $t : time); - my $updated = feed_updated(@t); + my $updated = feed_updated(msg_timestamp($hdr)); my $title = $hdr->header('Subject'); $title = '(no subject)' unless defined $title && $title ne ''; @@ -158,7 +156,7 @@ sub feed_entry { } sub feed_updated { - '<updated>' . strftime('%Y-%m-%dT%H:%M:%SZ', @_) . '</updated>'; + '<updated>' . strftime('%Y-%m-%dT%H:%M:%SZ', gmtime(@_)) . '</updated>'; } 1; |