#!/usr/bin/perl -w # Copyright (C) 2016-2021 all contributors # License: AGPL-3.0+ # # Standalone HTTP server for public-inbox. use strict; use v5.10.1; use PublicInbox::Daemon; BEGIN { for (qw(Plack::Builder Plack::Util)) { eval("require $_") or die "E: Plack is required for $0\n"; } Plack::Builder->import; require PublicInbox::HTTP; require PublicInbox::HTTPD; } my %httpds; # per-listen-FD mapping for HTTPD->{env}->{SERVER_} 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 '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(@_) }; }; } %httpds = (); # invalidate cache }; PublicInbox::Daemon::run('0.0.0.0:8080', $refresh, sub ($$$) { # Listener->{post_accept} my ($client, $addr, $srv, $tls_wrap) = @_; my $fd = fileno($srv); my $h = $httpds{$fd} //= PublicInbox::HTTPD->new($srv, $app, $client); PublicInbox::HTTP->new($client, $addr, $h), });