X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b6c43cc2c8ee0aabb2c84a79625a982e0e3f94b4..829781346b75bdd66e4c964e8bce3b84cf8ed3fc:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index 879381d..cabdc90 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -77,6 +77,8 @@ sub Html { $meta->{stylesheet} ||= [qw'light dark circus mono red terse']; $meta->{charset} ||= 'utf-8'; + ref $_ eq 'ARRAY' or $_ = [$_] for $meta->{raw}; + # optional amends push @{ $meta->{raw} }, ( '', @@ -113,6 +115,15 @@ EOT print $_, "\n" for $meta->{raw} || (); print qq{\n\n\n}; + # dev indicator + printf '

beta

', join('; ', + 'position: fixed', + 'right: 1em', + 'opacity: .5', + 'border: 1ex solid red', + 'border-width: 1ex 0', + ) if $ENV{HTTP_HOST} =~ /\bdev\./; + # prepare trailing output PLP_END { print <<"EOT";