X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/dc6b482b5e7e1d3d35b5193fc820c5e1afc29a6e..e0e53e7a8da59b93975a32bb8daf50898b9808ae:/common.inc.plp?ds=inline
diff --git a/common.inc.plp b/common.inc.plp
index b1cf2d1..5f7cb25 100644
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -27,7 +27,7 @@ BEGIN {
$PLP::ERROR = sub {
my ($text, $html) = @_;
warn $text;
- unless ($PLP::sentheaders and $PLP::sentheaders->[0] !~ m{/PLP\.pm\z}) {
+ unless ($PLP::sentheaders and $PLP::sentheaders->[0] !~ m{/PLP\.pm$}) {
Html({nocache => 1});
say '
Page unavailable
';
}
@@ -59,7 +59,7 @@ sub stylesheet {
my $cookie = CGI::Cookie->new(
-name => 'style',
-value => $setstyle || '',
- -path => '/', # site-wide; current page is confusing to most users
+ -path => '/', # site-wide
-expires => $setstyle ? '+5y' : '-1d',
) or die "empty object returned\n";
AddCookie($cookie->as_string);
@@ -121,9 +121,8 @@ sub Html {
push @{ $meta->{raw} }, (
'',
'',
- !$showkeys ? ''
- : $showkeys eq 'ghost' ? ''
- : (),
+ !$showkeys ? '' :
+ $showkeys eq 'ghost' ? '' : (),
'',
) if $meta->{keys};
@@ -132,7 +131,8 @@ sub Html {
say '';
say '';
say '';
- say sprintf '', $header{content_type};
+ say sprintf '', $_
+ for $header{content_type};
say sprintf '%s', $meta->{title};
say sprintf '', EscapeHTML($_)
for join(' ', @{ $meta->{description} }) || ();
@@ -166,8 +166,9 @@ sub Html {
version $meta->{version}
created by Shiar â¢
- AGPLv3
+ AGPLv3
EOT
say sprintf '⢠%.3fs', Time::HiRes::tv_interval($Time) if $Dev and $Time;
say '';
@@ -179,6 +180,7 @@ EOT
sub showlink {
my ($title, $href, $selected) = @_;
return sprintf(
+ !$href ? '%s' :
$selected ? '%s' : '%s',
EscapeHTML($title), EscapeHTML($href)
);