#!/usr/bin/perl -w # Copyright (C) 2016-2018 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; PublicInbox::WWW->preload; my $www = PublicInbox::WWW->new; $app = builder { eval { enable 'Deflater', 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(@_) }; }; } }; 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), });