httpd: allow running if ReverseProxy is missing

Not everybody will be running this behind a ReverseProxy;
but it's probably the likely configuration.  Anyways,
warn about this and also about Deflater being missing.

1 files changed, 15 insertions, 9 deletions

diff --git a/script/public-inbox-httpd b/script/public-inbox-httpd
index 6109af01..19315bb4 100755
--- a/script/public-inbox-httpd
+++ b/script/public-inbox-httpd
@@ -24,18 +24,24 @@ my $refresh = sub {
                 PublicInbox::WWW->preload;
                 my $www = PublicInbox::WWW->new;
                 $app = eval {
-                        my $deflate_types = eval {
-                                require Plack::Middleware::Deflater;
-                                [ 'text/html', 'text/plain',
-                                        'application/atom+xml' ]
-                        };
                         builder {
                                 enable 'Chunked';
-                                if ($deflate_types) {
+                                eval {
                                         enable 'Deflater',
-                                                content_type => $deflate_types
-                                }
-                                enable 'ReverseProxy';
+                                                content_type => [ qw(
+                                                        text/html
+                                                        text/plain
+                                                        application/atom+xml
+                                                        )]
+                                };
+                                $@ and warn
+"Plack::Middleware::Deflater missing, bandwidth will be wasted\n";
+
+                                eval { enable 'ReverseProxy' };
+                                $@ and warn
+"Plack::Middleware::ReverseProxy missing,\n",
+"URL generation for redirects may be wrong if behind a reverse proxy\n";
+
                                 enable 'Head';
                                 sub { $www->call(@_) };
                         };