X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e8e8d5a7167d69ba8ccc16dab1ab39c40899a5b8..c220aefcb516eca666444356555d21599f1e3a87:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index 963b8a6..ec6b0bf 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -8,7 +8,11 @@ use open ':std' => ':utf8'; use File::stat 'stat'; use HTTP::Date; -use Shiar_Sheet::KeySigns qw(%sign); + +$PLP::ERROR = sub { + my ($text, $html) = @_; + print '

Fatal error: '.$html."

\n\n"; +}; our $style; our $showkeys = !exists $get{keys} ? undef : @@ -85,7 +89,7 @@ sub Html { # flatten arrays ref $_ eq 'ARRAY' and $_ = join ' ', @$_ for $meta->{description}; ref $_ eq 'ARRAY' and $_ = join ', ', @$_ for $meta->{keywords}; - ref $_ eq 'ARRAY' and $_ = join "\n", @$_ for $meta->{rawstyle}, $meta->{raw}; + ref $_ eq 'ARRAY' and $_ = join "\n", @$_ for $meta->{raw}; ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet}; # other vars @@ -94,8 +98,7 @@ sub Html { # leading output $header{content_type} = "text/html; charset=$meta->{charset}"; print <<"EOT"; - + @@ -114,11 +117,11 @@ EOT print <<"EOT";

sheet.shiar.nl/$file.plp + rel="source" title="Written in Perl">plp $meta->{version} - created by $sign{sep} - Shiar • + AGPLv3