common: decode utf8 path request
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 30 Mar 2017 12:34:48 +0000 (14:34 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 24 Apr 2017 18:25:53 +0000 (20:25 +0200)
Support unicode input.

charset.plp
common.inc.plp
source.plp

index 4c01b78..fcd647d 100644 (file)
@@ -24,7 +24,6 @@ my $glyphs = Shiar_Sheet::FormatChar->new;
 my @nibble = (0..9, 'A'..'F');
 my $nibsize = 1;
 
-use Encode qw(decode resolve_alias);
 # generate character table(s)
 # (~16x faster than decoding in loop;
 #  substr strings is twice as fast as splitting to an array)
@@ -71,7 +70,7 @@ my @request = map {
                        @nibble = (map { $_.0, $_.8 } 0 .. 7);
                        $nibsize = 8;
                }
-               elsif ($row{set} = resolve_alias($input)) {
+               elsif ($row{set} = Encode::resolve_alias($input)) {
                        if ($row{set} eq 'Internal') {
                                $row{table} = ' ' x ($endpoint < 255 ? 640 : 8192);
                                $row{set} = 'Unicode BMP';
@@ -85,7 +84,7 @@ my @request = map {
                                        or printf "<p class=error>Table data could not be read: <em>%s</em>.</p>\n", $@ || $!;
                        }
                        else {
-                               $row{table} = decode($row{set}, pack 'C*', $row{offset} .. $endpoint);
+                               $row{table} = Encode::decode($row{set}, pack 'C*', $row{offset} .. $endpoint);
                        }
                }
                else {
index 0a010d2..81f91b5 100644 (file)
@@ -8,6 +8,7 @@ use open ':std' => ':utf8';
 
 use File::stat 'stat';
 use HTTP::Date;
+use Encode qw( decode_utf8 );
 
 $PLP::ERROR = sub {
        my ($text, $html) = @_;
@@ -23,7 +24,7 @@ BEGIN {
 # user request
 our $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;
 our ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x;
-our $Request = $ENV{PATH_INFO} =~ s{^/}{}r;
+our $Request = decode_utf8($ENV{PATH_INFO} =~ s{^/}{}r);
 
 our $style;
 our $showkeys = !exists $get{keys} ? undef :
index 38af1fa..56193fb 100644 (file)
@@ -67,7 +67,6 @@ else {
        }
        -r $source or die "Requested file not found\n";
 
-       require Encode;
        if (eval { require Text::VimColor and Text::VimColor->VERSION(0.12) }) {
                delete $Text::VimColor::SYNTAX_TYPE{Underlined};
                my %TYPETAG = (
@@ -84,7 +83,7 @@ else {
                say '<pre>';
                foreach (@$parsed) {
                        my ($type, $contents) = @{$_};
-                       $contents = Encode::decode_utf8($contents);
+                       $contents = decode_utf8($contents);
                        my $tag = $type && ($TYPETAG{$type} || 'span');
                        my $arg = '';
                        print "<$tag$arg class=\"sy-\l$type\">" if $tag;
@@ -109,7 +108,7 @@ else {
        }
        else {
                say '<pre>';
-               print EscapeHTML(Encode::decode_utf8(ReadFile($source)));
+               print EscapeHTML(decode_utf8(ReadFile($source)));
                say '</pre>';
        }