From 132d287d0a1a88dcb84d2a4dbeae7afd5a8dddbe Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Mon, 28 Apr 2014 21:46:44 +0000
Subject: cgi: wrap self_uri calls for Plack::Request

We should be adding automated tests for this, soon.
---
 public-inbox.cgi | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'public-inbox.cgi')

diff --git a/public-inbox.cgi b/public-inbox.cgi
index 7da73754..54ff0159 100755
--- a/public-inbox.cgi
+++ b/public-inbox.cgi
@@ -182,14 +182,19 @@ sub get_full_html {
 		[ PublicInbox::View->as_html(Email::MIME->new($$x))] ];
 }
 
+sub self_url {
+	my ($cgi) = @_;
+	ref($cgi) eq 'CGI' ? $cgi->self_url : $cgi->uri->as_string;
+}
+
 sub redirect_list_index {
 	my ($ctx, $cgi) = @_;
-	do_redirect($cgi->self_url . "/");
+	do_redirect(self_url($cgi) . "/");
 }
 
 sub redirect_mid {
 	my ($ctx, $cgi) = @_;
-	my $url = $cgi->self_url;
+	my $url = self_url($cgi);
 	$url =~ s!/f/!/m/!;
 	do_redirect($url . '.html');
 }
-- 
cgit v1.2.3-24-ge0c7