X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5ea095893fafdce2fa34e33cbc1d73ba1c65f167..b97ebd969b2e520d3e65509c0f892edacae70520:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index d6ef393..e4cc5f9 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -8,10 +8,17 @@ use open ':std' => ':utf8'; use File::stat 'stat'; use HTTP::Date; +use Encode qw( decode_utf8 ); + +sub Alert { + my ($title, $debug) = @_; + $title .= ": $debug" if $Dev and defined $debug; + say "

$title

\n"; +} $PLP::ERROR = sub { my ($text, $html) = @_; - print '

Fatal error: '.$html."

\n\n"; + Alert("Fatal error: $html."); warn $text; }; @@ -20,6 +27,11 @@ BEGIN { our $Time = [Time::HiRes::gettimeofday]; } +# user request +our $Dev = $ENV{HTTP_HOST} =~ /\bdev\./; +our ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x; +our $Request = decode_utf8($ENV{PATH_INFO} =~ s{^/}{}r); + our $style; our $showkeys = !exists $get{keys} ? undef : ($get{keys} ne '0' && ($get{keys} || 'always')); @@ -54,7 +66,7 @@ sub stylesheet { } sub checkmodified { - my $lastmod; + my $lastmod = 0; for (@_) { my $mod = stat $_ or next; $mod = $mod->mtime or next; @@ -99,20 +111,14 @@ sub Html { '', ) if $meta->{keys}; - # other vars - my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./; - my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x; - # leading output $header{content_type} = "text/html; charset=$meta->{charset}"; - print <<"EOT"; - - - - - -$meta->{title} -EOT + say ''; + say ''; + say ''; + say ''; + say sprintf '', $header{content_type}; + say sprintf '%s', $meta->{title}; say sprintf '', EscapeHTML($_) for join(' ', @{ $meta->{description} }) || (); say sprintf '', EscapeHTML($_) @@ -122,7 +128,9 @@ EOT say for stylesheet($meta->{stylesheet}); say for map { @{$_} } $meta->{raw} || (); say '' if $Dev; - say qq{\n\n}; + say ''; + say ''; + say sprintf '', $file; # development version indicator printf '

beta

', join('; ',