X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/f3267a45a926414f2b97855ec4ea76e04f22e09f..37bb3836bf4e1890aaa1c5d76161f40587dd68d0:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index 6295de7..0754d85 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -106,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]}) { @@ -157,6 +157,11 @@ sub Html { my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x; + if (my $url = $meta->{canonical} // "/$file/$Request") { + $url = "https://sheet.shiar.nl$url"; + push @{ $meta->{raw} }, qq(); + } + PLP_START { # leading output say '';