#!/usr/bin/env perl
-# Copyright (C) 2014-2016 all contributors <meta@public-inbox.org>
+# Copyright (C) 2014-2019 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
#
# Stupid script to make HTML from preformatted, utf-8 text versions,
use PublicInbox::Hval qw(ascii_html);
my $str = eval { local $/; <> };
-my $title = $ENV{TITLE};
-($title) = ($str =~ /\A([^\n]+)/) unless $title;
+my ($title) = ($str =~ /\A([^\n]+)/);
$title = ascii_html($title);
my $l = PublicInbox::Linkify->new;
$str = $l->linkify_1($str);
qq(<meta\nhttp-equiv="Content-Type"\ncontent="text/html; charset=utf-8"\n/>),
"<title>$title</title>",
"</head><body><pre>", $str , '</pre></body></html>';
+STDOUT->flush;
+
+# keep mtime on website consistent so clients can cache
+if (-f STDIN && -f STDOUT) {
+ my @st = stat(STDIN);
+ utime($st[8], $st[9], \*STDOUT);
+}