From: Eric Wong <e@80x24.org>
Date: Tue, 15 Apr 2014 07:06:45 +0000 (+0000)
Subject: cgi: correct links to folded quotes
X-Git-Tag: v1.0.0~1247
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=d95eccbe97f1a48b76c8a80fc81d88a291676cdc;hp=7aab828b54dd4bf9adc455940599a9a0ae6fafb6;p=public-inbox.git

cgi: correct links to folded quotes

Lightly tested, but this seems to work OK.
---

diff --git a/public-inbox.cgi b/public-inbox.cgi
index 374b03d4..1fb96e75 100755
--- a/public-inbox.cgi
+++ b/public-inbox.cgi
@@ -15,7 +15,7 @@ use warnings;
 use CGI qw(:cgi :escapeHTML -nosticky); # PSGI/FastCGI/mod_perl compat
 use Encode qw(decode_utf8);
 use PublicInbox::Config;
-use URI::Escape qw(uri_unescape);
+use URI::Escape qw(uri_escape uri_unescape);
 use Digest::SHA qw(sha1_hex);
 our $LISTNAME_RE = qr!\A(?:/.*?)?/([\w\.\-]+)!;
 our $pi_config;
@@ -172,9 +172,7 @@ sub get_mid_html {
 	my $x = mid2blob($ctx);
 	return r404() unless $x;
 
-	my $pfx = $cgi->self_url;
-	$pfx =~ s!/m/.+\z!/!; # FIXME: this is not robust
-
+	my $pfx = "../f/" . uri_escape($ctx->{mid}) . ".html";
 	require PublicInbox::View;
 	require Email::MIME;
 	[ "200 OK", {'Content-Type' => 'text/html'},