charset: vertical legend if script columns cannot fit

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

index b8dac37ed30c9f043b50b9c6e5fa6fabaed83d82..d282f091ca452598092ca2b7034c691f5d57ccbb 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -47,10 +47,10 @@ BEGIN {
         our $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;
  }
  
-our $Request = decode_utf8($ENV{PATH_INFO} =~ s{^/}{}r);
+our $Request //= decode_utf8($ENV{PATH_INFO} =~ s{^/}{}r);
  
  our $style;
-our $showkeys = !exists $get{keys} ? undef :
+our $showkeys //= !exists $get{keys} ? undef :
         ($get{keys} ne '0' && ($get{keys} || 'always'));
  
  $header{content_type} = 'text/html; charset=utf-8';
@@ -78,7 +78,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.11", $_
+               $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.14", $_
         ) } @avail;
  }
  
@@ -99,6 +99,24 @@ sub checkmodified {
         $header{'Last-Modified'} = time2str($lastmod);
  }
  
+sub Data {
+       my ($filename) = @_;
+       my @data = eval {
+               open my $cache, '<:raw', "data/$filename.json"
+                       or return do "./$filename.inc.pl"; # silent fallback to original code
+               require JSON;
+               local $/; # slurp
+               return JSON::decode_json(readline $cache);
+       };
+       if ($! or $@ or !@data or !$data[0]) {
+               die ['Table data not found', $@ || $!];
+       }
+       if (@data == 1 and ref $data[0] eq 'HASH' and not %{$data[0]}) {
+               die ['Table data missing'];
+       }
+       return wantarray ? @data : $data[0]; # list compatibility like do does
+}
+
  sub Html {
         my ($meta) = @_;
  
@@ -115,6 +133,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 $_ = [$_]
@@ -123,6 +142,7 @@ 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} }, (
@@ -143,7 +163,7 @@ sub Html {
         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">', $_
@@ -196,22 +216,28 @@ EOT
  
  BEGIN {
         $PLP::ERROR = sub {
-               my ($text, $html) = @_;
-               warn $text;
+               my ($message, $html) = @_;
+               if (ref $message) {
+                       warn join ': ', @{$message};
+                       $html = shift @{$message};
+               }
+               else {
+                       warn $message;
+                       $message = [];
+               }
                 unless ($PLP::sentheaders) {
                         Html({nocache => 1});
                         say '<h1>Page unavailable</h1>';
                 }
-               Alert("<strong>Fatal error</strong>: $html.");
+               Alert("Fatal error: $html.", @{$message});
         };
  }
  
  sub showlink {
         my ($title, $href, $selected) = @_;
-       return sprintf(
-               !$href ? '%s' :
-               $selected ? '<strong>%s</strong>' : '<a href="%2$s">%s</a>',
-               EscapeHTML($title), EscapeHTML($href)
-       );
+       EscapeHTML($title);
+       return $title if not $href;
+       return "<strong>$title</strong>" if $selected;
+       return sprintf '<a href="%s">%s</a>', EscapeHTML($href), $title;
  }