X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=public-inbox.cgi;h=3c51c314ebe6c4452e84d8fbd3849357c559456f;hb=e022d3377fd2c50fd9931bf96394728958a90bf3;hp=b9b484be38b5eb584892fcdb3e3670f4b38e7cb0;hpb=48dc8ff5e67714985897047c189bdf019b796a60;p=public-inbox.git diff --git a/public-inbox.cgi b/public-inbox.cgi index b9b484be..3c51c314 100755 --- a/public-inbox.cgi +++ b/public-inbox.cgi @@ -12,10 +12,11 @@ use 5.008; use strict; use warnings; -use CGI qw(:cgi :escapeHTML -nosticky); # PSGI/FastCGI/mod_perl compat -use Encode qw(decode_utf8); +use CGI qw(:cgi -nosticky); # PSGI/FastCGI/mod_perl compat +use Encode qw(find_encoding); use PublicInbox::Config; use URI::Escape qw(uri_escape uri_unescape); +my $enc_utf8 = find_encoding('UTF-8'); our $LISTNAME_RE = qr!\A/([\w\.\-]+)!; our $pi_config; BEGIN { @@ -56,7 +57,7 @@ sub main { if ($cgi->request_method !~ /\AGET|HEAD\z/) { return r("405 Method Not Allowed"); } - my $path_info = decode_utf8($cgi->path_info); + my $path_info = $enc_utf8->decode($cgi->path_info); # top-level indices and feeds if ($path_info eq "/") { @@ -78,7 +79,7 @@ sub main { } elsif ($path_info =~ m!$LISTNAME_RE/f/(\S+)\.html\z!o) { invalid_list_mid(\%ctx, $1, $2) || get_full_html(\%ctx, $cgi); - # convenience redirect + # convenience redirects, order matters } elsif ($path_info =~ m!$LISTNAME_RE/(?:m|f)/(\S+)\z!o) { invalid_list_mid(\%ctx, $1, $2) || redirect_mid(\%ctx, $cgi); @@ -168,7 +169,7 @@ sub get_mid_html { return r404() unless $x; require PublicInbox::View; - my $mid_href = PublicInbox::View::ascii_html(uri_escape($ctx->{mid})); + my $mid_href = PublicInbox::Hval::ascii_html(uri_escape($ctx->{mid})); my $pfx = "../f/$mid_href.html"; require Email::MIME; [ "200 OK", {'Content-Type' => 'text/html'}, @@ -213,6 +214,6 @@ sub set_binmode { # no way to validate raw messages, mixed encoding is possible. binmode STDOUT; } else { # strict encoding for HTML and XML - binmode STDOUT, ':encoding(UTF-8)'; + binmode STDOUT, ':encoding(us-ascii)'; } }