index: release v1.18 with only altgr index linked

[sheet.git] / common.inc.plp
diff --git a/common.inc.plp b/common.inc.plp

index 898e8bbcd5dd24774d6a32f166f14dae0def9fee..a634733cba704de18de8e56605a78a796f8109c9 100644 (file)
--- 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(
                 '<link rel="%s" type="text/css" media="all" href="%s" title="%s">',
-               $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.13", $_
+               $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.18", $_
         ) } @avail;
  }
  
@@ -108,7 +106,7 @@ sub Data {
                 local $/; # slurp
                 return JSON::decode_json(readline $cache);
         };
-       if ($! or $@ or !@data or !$data[0]) {
+       if ($@ or !@data or !$data[0]) {
                 die ['Table data not found', $@ || $!];
         }
         if (@data == 1 and ref $data[0] eq 'HASH' and not %{$data[0]}) {
@@ -133,6 +131,7 @@ sub Html {
         # default fallbacks
         $meta->{stylesheet} ||= [qw( light dark circus mono red )];
         $meta->{charset} ||= 'utf-8';
+       $meta->{lang} ||= 'en';
  
         # convert options to arrays
         ref $_ eq 'ARRAY' or $_ = [$_]
@@ -141,27 +140,33 @@ 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} }, (
                 '<link rel="stylesheet" type="text/css" media="monochrome" href="/mono.css?1.11" title="light">',
         );
  
-       # optional amends
-       push @{ $meta->{raw} }, (
-               '<!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->',
-               '<!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]-->',
-               !$showkeys ? '<style> .no {visibility:hidden} </style>' :
-               $showkeys eq 'ghost' ? '<style> .no, .alias {opacity:.5} </style>' : (),
-               '<script type="text/javascript" src="/keys.js?1.6" async></script>',
-       ) if $meta->{keys};
+       if (my $img = $meta->{image}) {
+               my $proto = sprintf('http%s://', !!$ENV{HTTPS} && 's');
+               my $url = "$proto$ENV{HTTP_HOST}/$img";
+               push @{ $meta->{raw} }, (
+                       qq(<meta property="og:image" content="$url" />),
+               );
+       }
  
         my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x;
  
+       $meta->{canonical} //= "/$file" . ($Request ne '' && "/$Request");
+       if (my $url = $meta->{canonical}) {
+               $url = "https://sheet.shiar.nl$url";
+               push @{ $meta->{raw} }, qq(<link rel="canonical" href="$url" />);
+       }
+
         PLP_START {
                 # leading output
                 say '<!DOCTYPE html>';
-               say '<html lang="en">';
+               say qq(<html lang="$meta->{lang}">);
                 say '';
                 say '<head>';
                 say sprintf '<meta http-equiv="content-type" content="%s">', $_