X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c0b45d8bc967cae8e54c03702e16f52222884867..2cf450feb990920919389510c5f9ba40ef087474:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index db5177b..33fad39 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -12,6 +12,7 @@ use HTTP::Date; $PLP::ERROR = sub { my ($text, $html) = @_; print '

Fatal error: '.$html."

\n\n"; + warn $text; }; BEGIN { @@ -101,6 +102,7 @@ sub Html { ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet}; # other vars + my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./; my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x; # leading output @@ -117,12 +119,12 @@ sub Html { EOT - print $_, "\n" for $meta->{stylesheet} || (); - print $_, "\n" for $meta->{raw} || (); - print qq{\n\n\n}; + say for $meta->{stylesheet} || (); + say for $meta->{raw} || (); + say '' if $Dev; + say qq{\n\n}; - # dev indicator - my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./; + # development version indicator printf '

beta

', join('; ', 'position: fixed', 'right: 1em',