X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9a4d89685edcb4399aa500d38de84b0101ad09b2..451bf471d1e1b84e74eae3683a433f2d4a979d13:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index e48cd2c..41e0e28 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 { /\bShiar_/ } 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,15 +110,15 @@ EOT # prepare trailing output PLP_END { print <<"EOT"; - +

EOT