X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/b5b60a0ee0f90c2895e1e4e27926840ea29c2be7..26a71f36c68773b18095911e99be7294cbd66f39:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index 6ea1197..2976cbe 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -50,8 +50,6 @@ BEGIN { our $Request //= decode_utf8($ENV{PATH_INFO} =~ s{^/}{}r); our $style; -our $showkeys //= !exists $get{keys} ? undef : - ($get{keys} ne '0' && ($get{keys} || 'always')); $header{content_type} = 'text/html; charset=utf-8'; @@ -78,7 +76,7 @@ sub stylesheet { return map { sprintf( '', - $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.13", $_ + $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.14", $_ ) } @avail; } @@ -142,21 +140,13 @@ sub Html { # document headers before output $header{content_type} = "text/html; charset=$meta->{charset}" unless $PLP::sentheaders; + exit if $ENV{REQUEST_METHOD} eq 'HEAD'; unshift @{ $meta->{raw} }, stylesheet($meta->{stylesheet}); push @{ $meta->{raw} }, ( '', ); - # optional amends - push @{ $meta->{raw} }, ( - '', - '', - !$showkeys ? '' : - $showkeys eq 'ghost' ? '' : (), - '', - ) if $meta->{keys}; - my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x; PLP_START {