2 # Copyright (C) 2016-2019 all contributors <meta@public-inbox.org>
3 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
5 # Standalone HTTP server for public-inbox.
9 use PublicInbox::Daemon;
10 use PublicInbox::HTTP;
11 use PublicInbox::HTTPD;
17 eval { $app = Plack::Util::load_psgi(@ARGV) };
20 "$0 runs in /, command-line paths must be absolute\n";
23 require PublicInbox::WWW;
24 my $www = PublicInbox::WWW->new;
27 # Perl 5.16.3 leaks in our "push" response code path
28 # (e.g. Qspawn) due to something in
29 # Plack::Util::response_cb, regardless of whether the
30 # client is sending Accept-Encoding:gzip requests.
31 # perl5180delta documents many leak fixes, so assume
32 # 5.18+ is safe for now and bump the check as-need:
33 $] >= 5.018000 and eval {
42 eval { enable 'ReverseProxy' };
44 "Plack::Middleware::ReverseProxy missing,\n",
45 "URL generation for redirects may be wrong if behind a reverse proxy\n";
48 sub { $www->call(@_) };
53 PublicInbox::Daemon::run('0.0.0.0:8080', $refresh,
54 sub ($$$) { # post_accept
55 my ($client, $addr, $srv) = @_;
56 my $fd = fileno($srv);
57 my $h = $httpds{$fd} ||= PublicInbox::HTTPD->new($srv, $app);
58 PublicInbox::HTTP->new($client, $addr, $h),