diff options
author | Eric Wong <e@80x24.org> | 2014-04-28 21:46:44 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2014-04-28 21:46:44 +0000 |
commit | 132d287d0a1a88dcb84d2a4dbeae7afd5a8dddbe (patch) | |
tree | 29add21c6f814278a1260b0804d663eacae3e41b /public-inbox.cgi | |
parent | 8c26cf88b9d03c63c0210fd0432ecb105852be62 (diff) | |
download | public-inbox-132d287d0a1a88dcb84d2a4dbeae7afd5a8dddbe.tar.gz |
We should be adding automated tests for this, soon.
Diffstat (limited to 'public-inbox.cgi')
-rwxr-xr-x | public-inbox.cgi | 9 |
1 files changed, 7 insertions, 2 deletions
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'); } |