use warnings;
no warnings 'qw'; # you know what you doing
no warnings 'uninitialized'; # save some useless checks for more legible code
-use open IO => ':utf8';
+use open ':std' => ':utf8';
+use File::stat 'stat';
+use HTTP::Date;
use Shiar_Sheet::KeySigns qw(%sign); # dependant on $get{ascii}
our $style;
return join "\n", map { sprintf(
'<link rel="%s" type="text/css" media="all" href="%s" title="%s">',
- $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css", $_
+ $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.5", $_
) } @_;
}
+sub checkmodified {
+ my $lastmod;
+ for (@_) {
+ my $mod = stat $_ or next;
+ $mod = $mod->mtime or next;
+ $lastmod = $mod if $mod gt $lastmod;
+ }
+
+ for ($ENV{HTTP_IF_MODIFIED_SINCE} || ()) {
+ next if str2time($_) < $lastmod;
+ $header{status} = '304 Same old';
+ exit;
+ }
+
+ $header{'Last-Modified'} = time2str($lastmod);
+}
+
sub Html {
my ($meta) = @_;
+ # announce and check data modification
+ checkmodified(
+ $ENV{SCRIPT_FILENAME},
+ (grep { /\bShiar_/ } values %INC),
+ $meta->{data} ? @{ $meta->{data} } : (),
+ );
+
# default fallbacks
$meta->{stylesheet} ||= [qw'light dark circus mono red terse'];
$meta->{charset} ||= 'utf-8';
# leading output
$header{content_type} = "text/html; charset=$meta->{charset}";
print <<"EOT";
-<!DOCTYPE HTML>
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
+ "http://www.w3.org/TR/html4/loose.dtd">
<html lang="en">
<head>
# prepare trailing output
PLP_END {
print <<"EOT";
-<footer><p>
- <a href="/" rel="home">sheet.shiar.nl</a>/$file.<a href="/source/$file.plp"
+<p class="footer">
+ <a href="/" rel="start">sheet.shiar.nl</a>/$file.<a href="/source/$file.plp"
rel="code" title="Written in Perl">plp</a>
<a href="http://git.shiar.nl/sheet.git/history/HEAD:/$file.plp"
rel="vcs-git" title="Git repository">$meta->{version}</a>
created by <a href="http://shiar.nl/" rel="author">Shiar</a> $sep
<a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="copyright"
title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>
-</p></footer>
+</p>
</html>
EOT