X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9a4d89685edcb4399aa500d38de84b0101ad09b2..d47666a5217b7c6274f8b76fe99027c2923d1d25:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index e48cd2c..72a0eb8 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -4,8 +4,10 @@ use strict; 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; @@ -36,9 +38,33 @@ sub stylesheet { ) } @_; } +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 { /^Shiar_/ } values %INC), + $meta->{data} ? @{ $meta->{data} } : (), + ); + # default fallbacks $meta->{stylesheet} ||= [qw'light dark circus mono red terse']; $meta->{charset} ||= 'utf-8'; @@ -66,7 +92,8 @@ sub Html { # leading output $header{content_type} = "text/html; charset=$meta->{charset}"; print <<"EOT"; - + @@ -83,7 +110,7 @@ EOT # prepare trailing output PLP_END { print <<"EOT"; - +

EOT