]> Sergey Matveev's repositories - public-inbox.git/blobdiff - script/public-inbox.cgi
t/multi-mid: skip properly w/o DBD::SQLite
[public-inbox.git] / script / public-inbox.cgi
index ee9510c1f012757163076cf8b991af64f78ac6d8..c766483a208cacb4dceec28e8c80795447591ed6 100755 (executable)
@@ -1,16 +1,17 @@
 #!/usr/bin/perl -w
-# Copyright (C) 2014-2016 all contributors <meta@public-inbox.org>
+# Copyright (C) 2014-2020 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ or later <https://www.gnu.org/licenses/agpl-3.0.txt>
 #
 # Enables using PublicInbox::WWW as a CGI script
 use strict;
-use warnings;
-use Plack::Loader;
-use Plack::Builder;
-use Plack::Request;
-use Plack::Handler::CGI;
-use PublicInbox::WWW;
-BEGIN { PublicInbox::WWW->preload if $ENV{MOD_PERL} }
+BEGIN {
+       for (qw(Plack::Builder Plack::Handler::CGI)) {
+               eval("require $_") or die "E: Plack is required for $0\n";
+       }
+       Plack::Builder->import;
+       require PublicInbox::WWW;
+       PublicInbox::WWW->preload if $ENV{MOD_PERL};
+}
 my $www = PublicInbox::WWW->new;
 my $have_deflater = eval { require Plack::Middleware::Deflater; 1 };
 my $app = builder {
@@ -22,7 +23,7 @@ my $app = builder {
 
        # Enable to ensure redirects and Atom feed URLs are generated
        # properly when running behind a reverse proxy server which
-       # sets X-Forwarded-For and X-Forwarded-Proto request headers.
+       # sets the X-Forwarded-Proto request header.
        # See Plack::Middleware::ReverseProxy documentation for details
        # enable 'ReverseProxy';