X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/33e3013acbef27ba49fa091389ed8bf4096fa860..c220aefcb516eca666444356555d21599f1e3a87:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index c6b0c84..ec6b0bf 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -8,7 +8,6 @@ use open ':std' => ':utf8'; use File::stat 'stat'; use HTTP::Date; -use Shiar_Sheet::KeySigns qw(%sign); $PLP::ERROR = sub { my ($text, $html) = @_; @@ -90,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 @@ -99,8 +98,7 @@ sub Html { # leading output $header{content_type} = "text/html; charset=$meta->{charset}"; print <<"EOT"; - + @@ -119,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