diff options
author | Eric Wong <e@80x24.org> | 2016-06-30 18:59:12 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-06-30 19:03:08 +0000 |
commit | d766499de41c8409d10d377bb0faaad1413028b9 (patch) | |
tree | fe6e9d35d999110db94fc523894d1165df8ecd4a /lib/PublicInbox | |
parent | 645b5c06e789ddc9d97e76c1d4445ae9b7022599 (diff) | |
download | public-inbox-d766499de41c8409d10d377bb0faaad1413028b9.tar.gz |
Oops :x I really need to whip check-inbox.perl into shape or at least start running it, again. Fixes: e29518088b3f ("view: fix up some HTML injection via Message-ID vectors")
Diffstat (limited to 'lib/PublicInbox')
-rw-r--r-- | lib/PublicInbox/View.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm index 11d8dd53..140cfeed 100644 --- a/lib/PublicInbox/View.pm +++ b/lib/PublicInbox/View.pm @@ -138,8 +138,8 @@ sub index_entry { $rv .= "From: "._hdr_names($hdr, 'From').' @ '._msg_date($hdr)." UTC"; my $upfx = $ctx->{-upfx}; my $mhref = $upfx . $mid->as_href . '/'; - $rv .= qq{ (<a\nhref="$mhref/">permalink</a> / }; - $rv .= qq{<a\nhref="$mhref/raw">raw</a>)\n}; + $rv .= qq{ (<a\nhref="$mhref">permalink</a> / }; + $rv .= qq{<a\nhref="${mhref}raw">raw</a>)\n}; $rv .= ' '.join('; +', @tocc) . "\n" if @tocc; my $mapping = $ctx->{mapping}; |