www: fix for running under mount paths

[public-inbox.git] / lib / PublicInbox / Inbox.pm

diff --git a/lib/PublicInbox/Inbox.pm b/lib/PublicInbox/Inbox.pm
index 5d9fdb36b1fc66af10f4ecfc6e564f5d4d8d1f4f..4bcab96f61469df0ff22a806f64741e12d1d281d 100644 (file)
--- a/lib/PublicInbox/Inbox.pm
+++ b/lib/PublicInbox/Inbox.pm
@@ -64,6 +64,7 @@ sub cloneurl {
        $self->{cloneurl} = \@url;
 }
 
+# TODO: can we remove this?
 sub footer_html {
        my ($self) = @_;
        my $footer = $self->{footer};
@@ -73,4 +74,23 @@ sub footer_html {
        $self->{footer} = $footer;
 }
 
+sub base_url {
+       my ($self, $prq) = @_; # Plack::Request
+       if (defined $prq) {
+               my $url = $prq->base->as_string;
+               $url .= '/' if $url !~ m!/\z!; # for mount in Plack::Builder
+               $url .= $self->{name} . '/';
+       } else {
+               # either called from a non-PSGI environment (e.g. NNTP/POP3)
+               $self->{-base_url} ||= do {
+                       my $url = $self->{url};
+                       # expand protocol-relative URLs to HTTPS if we're
+                       # not inside a web server
+                       $url = "https:$url" if $url =~ m!\A//!;
+                       $url .= '/' if $url !~ m!/\z!;
+                       $url;
+               };
+       }
+}
+
 1;