about summary refs log tree commit homepage
path: root/lib/PublicInbox/Feed.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2014-04-17 20:10:38 +0000
committerEric Wong <e@80x24.org>2014-04-17 21:02:03 +0000
commit970da289a8ea3532538846905c7c01778066e1a9 (patch)
tree7923ba31b1d6ef721c33cc2cd607e1fb558693a5 /lib/PublicInbox/Feed.pm
parenteb4f0055a0a0ea45a29dee8511c0bcecd2f4d663 (diff)
downloadpublic-inbox-970da289a8ea3532538846905c7c01778066e1a9.tar.gz
Diffstat (limited to 'lib/PublicInbox/Feed.pm')
-rw-r--r--lib/PublicInbox/Feed.pm23
1 files changed, 16 insertions, 7 deletions
diff --git a/lib/PublicInbox/Feed.pm b/lib/PublicInbox/Feed.pm
index 0a652f6e..33406522 100644
--- a/lib/PublicInbox/Feed.pm
+++ b/lib/PublicInbox/Feed.pm
@@ -7,7 +7,7 @@ use XML::Atom::SimpleFeed;
 use Email::MIME;
 use Email::Address;
 use URI::Escape qw/uri_escape/;
-use Encode qw/encode decode/;
+use Encode qw/find_encoding/;
 use Encode::MIME::Header;
 use CGI qw(escapeHTML);
 use POSIX qw(strftime);
@@ -15,6 +15,9 @@ use Date::Parse qw(strptime);
 use constant DATEFMT => '%Y-%m-%dT%H:%M:%SZ';
 use PublicInbox::View;
 use Mail::Thread;
+my $enc_utf8 = find_encoding('utf8');
+my $enc_ascii = find_encoding('us-ascii');
+my $enc_mime = find_encoding('MIME-Header');
 
 # FIXME: workaround https://rt.cpan.org/Public/Bug/Display.html?id=22817
 
@@ -52,7 +55,7 @@ sub generate_html_index {
         my $top = $args->{top}; # bool
         local $ENV{GIT_DIR} = $args->{git_dir};
         my $feed_opts = get_feedopts($args);
-        my $title = escapeHTML($feed_opts->{description} || "");
+        my $title = xs_html($feed_opts->{description} || "");
         my @messages;
         each_recent_blob($max, sub {
                 my $str = `git cat-file blob $_[0]`;
@@ -146,8 +149,9 @@ sub utf8_header {
         my ($simple, $name) = @_;
         my $val = $simple->header($name);
         return "" unless defined $val;
-        $val =~ tr/\t\r\n / /s;
-        encode('utf8', decode('MIME-Header', $val));
+        $val =~ tr/\t\n / /s;
+        $val =~ tr/\r//d;
+        $enc_utf8->encode($enc_mime->decode($val));
 }
 
 sub feed_date {
@@ -220,9 +224,9 @@ sub dump_html_line {
                 my @from = Email::Address->parse($from);
                 $from = $from[0]->name;
                 (defined($from) && length($from)) or $from = $from[0]->address;
-                $from = escapeHTML($from);
-                $subj = escapeHTML($subj);
-                $args->[0] .= "<a href=\"$url.html\">`-&gt; $subj</a> $from\n";
+                $from = xs_html($from);
+                $subj = xs_html($subj);
+                $args->[0] .= "<a href=\"$url.html\">$subj</a> $from\n";
         } else {
                 $args->[0] .= "[ Message not available ]\n";
         }
@@ -230,4 +234,9 @@ sub dump_html_line {
         dump_html_line($self->next, $level, $args) if $self->next;
 }
 
+sub xs_html {
+        $enc_ascii->encode(escapeHTML($enc_utf8->decode($_[0])),
+                        Encode::HTMLCREF);
+}
+
 1;