diff options
author | Eric Wong <e@80x24.org> | 2014-04-24 00:21:21 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2014-04-24 00:21:21 +0000 |
commit | 483a67ca0613a75bb80ea4c1201cb2d5f2cf063d (patch) | |
tree | b46b775c6eb619708789734cebf7d349589428bb /lib/PublicInbox/View.pm | |
parent | dc4a8227f8949694e4fc3f40bb0278d4b4713381 (diff) | |
download | public-inbox-483a67ca0613a75bb80ea4c1201cb2d5f2cf063d.tar.gz |
This helps us keep track of escaping which needs to be done for various levels.
Diffstat (limited to 'lib/PublicInbox/View.pm')
-rw-r--r-- | lib/PublicInbox/View.pm | 24 |
1 files changed, 8 insertions, 16 deletions
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm index 355d346a..ecd49156 100644 --- a/lib/PublicInbox/View.pm +++ b/lib/PublicInbox/View.pm @@ -3,6 +3,7 @@ package PublicInbox::View; use strict; use warnings; +use PublicInbox::Hval; use URI::Escape qw/uri_escape/; use CGI qw/escapeHTML/; use Encode qw/find_encoding/; @@ -135,16 +136,6 @@ sub add_text_body_full { $s; } -sub trim_message_id { - my ($mid) = @_; - $mid =~ s/\A\s*<//; - $mid =~ s/>\s*\z//; - my $html = ascii_html($mid); - my $href = ascii_html(uri_escape($mid)); - - ($html, $href); -} - sub ascii_html { $enc_ascii->encode(escapeHTML($_[0]), Encode::HTMLCREF); } @@ -178,17 +169,18 @@ sub headers_to_html_header { my $mid = $simple->header('Message-ID'); if (defined $mid) { - my ($html, $href) = trim_message_id($mid); - $rv .= "Message-ID: <$html> "; - unless ($full_pfx) { - $href = "../m/$href"; - } + $mid = PublicInbox::Hval->new_msgid($mid); + $rv .= 'Message-ID: <' . $mid->as_html . '> '; + my $href = $mid->as_href; + $href = "../m/$href" unless $full_pfx; $rv .= "(<a href=\"$href.txt\">original</a>)\n"; } my $irp = $simple->header('In-Reply-To'); if (defined $irp) { - my ($html, $href) = trim_message_id($irp); + $irp = PublicInbox::Hval->new_msgid($irp); + my $html = $irp->as_html; + my $href = $irp->as_href; $rv .= "In-Reply-To: <"; $rv .= "<a href=\"$href.html\">$html</a>>\n"; } |