X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=public-inbox.cgi;h=3bc6eca3c574fbe31e67a07141c10a0269c7b2c8;hp=56040676f6ae1142a1b133a3ce2c8a80c741af81;hb=d444d9aebc6e401333968ec697c48fb23214a1ea;hpb=f286304f47685f6530462439b95951e2af86051f

diff --git a/public-inbox.cgi b/public-inbox.cgi
index 56040676..3bc6eca3 100755
--- a/public-inbox.cgi
+++ b/public-inbox.cgi
@@ -15,10 +15,12 @@ use warnings;
 use PublicInbox::Config;
 use URI::Escape qw(uri_escape_utf8 uri_unescape);
 our $LISTNAME_RE = qr!\A/([\w\.\-]+)!;
+our $NO_SCRIPT_NAME; # for prettier redirects with mod_perl2
 our $pi_config;
 BEGIN {
 	$pi_config = PublicInbox::Config->new;
 	# TODO: detect and reload config as needed
+	$NO_SCRIPT_NAME = 1 if $ENV{NO_SCRIPT_NAME};
 	if ($ENV{MOD_PERL}) {
 		require CGI;
 		no warnings;
@@ -36,6 +38,7 @@ if ($ENV{PI_PLACKUP}) {
 	# so nuke it since CGI.pm functions without it.
 	require CGI;
 	delete $ENV{REQUEST_URI};
+	$ENV{SCRIPT_NAME} = '' if $NO_SCRIPT_NAME;
 	my $req = CGI->new;
 	my $ret = main($req, $req->request_method);
 	binmode STDOUT;