X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/36266207701530f9b615f5b06b86f29b1178fa34..cf8d01da2735d21735d562e73009546d64125d4a:/font.plp diff --git a/font.plp b/font.plp index d4d7deb..ec61202 100644 --- a/font.plp +++ b/font.plp @@ -10,17 +10,17 @@ Html({ script block symbol sign mark reference table )], stylesheet => [qw( light dark mono circus red )], - data => [qw( unicode-cover.inc.pl )], + data => [qw( data/unicode-cover.inc.pl )], }); if ($font) { - my ($fontmeta, @cover) = do "ttfsupport/$font.inc.pl"; - $fontmeta or die "Unknown font $font\n"; + my ($fontmeta, @cover) = do "data/font/$font.inc.pl"; + $fontmeta or Abort("Unknown font $font", '404 font not found'); my $map = eval { $get{map} or return; - my $groupinfo = do 'unicode-cover.inc.pl' or die $@ || $!; + my $groupinfo = do 'data/unicode-cover.inc.pl' or die $@ || $!; my ($cat, $name) = split m{/}, $get{map}, 2 or die "invalid map\n"; if (!$name) { @@ -39,7 +39,7 @@ if ($font) { } return \@map; }; - die $@ if $@; + Abort($@, '404 invalid query') if $@; require Unicode::UCD; @@ -52,7 +52,7 @@ if ($font) { return $_->[0]->[0] for Unicode::UCD::charblock(ucfirst) || (); # block die "Unknown offset query '$_'\n"; }; - die $@ if $@; + Abort($@, '400 invalid offset') if $@; say "