#!/usr/bin/perl -w
# Copyright (C) 2016-2019 all contributors
# License: AGPL-3.0+
#
# Standalone HTTP server for public-inbox.
use strict;
use warnings;
use Plack::Util;
use PublicInbox::Daemon;
use PublicInbox::HTTP;
use PublicInbox::HTTPD;
use Plack::Builder;
my %httpds;
my $app;
my $refresh = sub {
if (@ARGV) {
eval { $app = Plack::Util::load_psgi(@ARGV) };
if ($@) {
die $@,
"$0 runs in /, command-line paths must be absolute\n";
}
} else {
require PublicInbox::WWW;
my $www = PublicInbox::WWW->new;
$www->preload;
$app = builder {
eval {
enable 'Deflater',
content_type => [ qw(
text/html
text/plain
application/atom+xml
)]
};
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(@_) };
};
}
};
PublicInbox::Daemon::run('0.0.0.0:8080', $refresh,
sub ($$$) { # post_accept
my ($client, $addr, $srv) = @_;
my $fd = fileno($srv);
my $h = $httpds{$fd} ||= PublicInbox::HTTPD->new($srv, $app);
PublicInbox::HTTP->new($client, $addr, $h),
});