use File::stat 'stat';
use HTTP::Date;
+use Encode qw( decode_utf8 );
+
+sub Alert {
+ my ($title, $debug) = @_;
+ $title .= ": <em>$debug</em>" if $Dev and defined $debug;
+ say "<p class=error>$title</p>\n";
+}
$PLP::ERROR = sub {
my ($text, $html) = @_;
- print '<p class="error"><strong>Fatal error</strong>: '.$html."</p>\n\n";
+ Alert("<strong>Fatal error</strong>: $html.");
warn $text;
};
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'));
'<script type="text/javascript" src="/keys.js?1.6"></script>',
) 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";
-<!DOCTYPE html>
-<html lang="en">
-
-<head>
-<meta http-equiv="content-type" content="$header{content_type}">
-<title>$meta->{title}</title>
-EOT
+ say '<!DOCTYPE html>';
+ say '<html lang="en">';
+ say '';
+ say '<head>';
+ say sprintf '<meta http-equiv="content-type" content="%s">', $header{content_type};
+ say sprintf '<title>%s</title>', $meta->{title};
say sprintf '<meta name="description" content="%s">', EscapeHTML($_)
for join(' ', @{ $meta->{description} }) || ();
say sprintf '<meta name="keywords" content="%s">', EscapeHTML($_)
say for stylesheet($meta->{stylesheet});
say for map { @{$_} } $meta->{raw} || ();
say '<meta name="robots" content="noindex">' if $Dev;
- say qq{</head>\n\n<body id="$file">};
+ say '</head>';
+ say '';
+ say sprintf '<body id="%s">', $file;
# development version indicator
printf '<p style="%s">beta</p>', join('; ',