diff options
author | Eric Wong <e@80x24.org> | 2016-07-02 07:56:38 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-07-02 07:57:29 +0000 |
commit | 193e9a586d49fb111fd201f491b1ad0be4e386b3 (patch) | |
tree | 02d5d074777dce9a2557d59622841cc7754c49f0 /lib/PublicInbox/WWW.pm | |
parent | 2375cc488f2b1ea314452067a196a576558f7b57 (diff) | |
download | public-inbox-193e9a586d49fb111fd201f491b1ad0be4e386b3.tar.gz |
Lighter and ever-so-slightly faster! Most importantly, this won't do non-obvious stuff behind our backs like trying to parse a POST request body for a query string param.
Diffstat (limited to 'lib/PublicInbox/WWW.pm')
-rw-r--r-- | lib/PublicInbox/WWW.pm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm index 940e1c51..54253086 100644 --- a/lib/PublicInbox/WWW.pm +++ b/lib/PublicInbox/WWW.pm @@ -13,7 +13,6 @@ package PublicInbox::WWW; use 5.008; use strict; use warnings; -use Plack::Request; use PublicInbox::Config; use PublicInbox::Hval; use URI::Escape qw(uri_escape_utf8 uri_unescape); @@ -40,9 +39,7 @@ sub run { sub call { my ($self, $env) = @_; - my $cgi = Plack::Request->new($env); - my $ctx = { cgi => $cgi, env => $env, www => $self, - pi_config => $self->{pi_config} }; + my $ctx = { env => $env, www => $self, pi_config => $self->{pi_config} }; # we don't care about multi-value my %qp = map { @@ -267,10 +264,11 @@ sub footer { my $urls; my @urls = @{$obj->cloneurl}; my %seen = map { $_ => 1 } @urls; - my $cgi = $ctx->{cgi}; - my $http = $cgi->base->as_string . $obj->{name}; + my $env = $ctx->{env}; + my $http = $obj->base_url($env); + chop $http; $seen{$http} or unshift @urls, $http; - my $ssoma_url = PublicInbox::Hval::prurl($ctx->{env}, SSOMA_URL); + my $ssoma_url = PublicInbox::Hval::prurl($env, SSOMA_URL); if (scalar(@urls) == 1) { $urls = "URL for <a\nhref=\"" . $ssoma_url . qq(">ssoma</a> or <b>git clone --mirror $urls[0]</b>); @@ -329,7 +327,6 @@ sub get_thread_mbox { sub get_thread_atom { my ($ctx) = @_; searcher($ctx) or return need_search($ctx); - $ctx->{self_url} = $ctx->{cgi}->uri->as_string; require PublicInbox::Feed; PublicInbox::Feed::generate_thread_atom($ctx); } |