X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=examples%2Fpublic-inbox.psgi;h=dcca3b09a3e1e30b324c32dfb1f5edb876b71184;hb=997e3033e58dfd101d5e5bb7491c609fde75099f;hp=acceba3deace399b6b801720600bc0e814301fcd;hpb=ac6f7081a484a053ddb60a2f8b6b6487664827ac;p=public-inbox.git diff --git a/examples/public-inbox.psgi b/examples/public-inbox.psgi index acceba3d..dcca3b09 100644 --- a/examples/public-inbox.psgi +++ b/examples/public-inbox.psgi @@ -1,29 +1,45 @@ #!/usr/bin/perl -w -# Copyright (C) 2014-2015 all contributors -# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt) +# Copyright (C) 2014-2016 all contributors +# License: GPL-3.0+ # Note: this is part of our test suite, update t/plack.t if this changes # Usage: plackup [OPTIONS] /path/to/this/file +# A startup command for development which monitors changes: +# plackup -I lib -o 127.0.0.1 -R lib -r examples/public-inbox.psgi use strict; use warnings; use PublicInbox::WWW; PublicInbox::WWW->preload; use Plack::Request; use Plack::Builder; -my $have_deflater = eval { require Plack::Middleware::Deflater; 1 }; my $www = PublicInbox::WWW->new; builder { enable 'Chunked'; - if ($have_deflater) { + eval { enable 'Deflater', - content_type => [ 'text/html', 'text/plain', - 'application/atom+xml' ]; - } + content_type => [ qw( + text/html + text/plain + application/atom+xml + )] + }; + $@ and warn +"Plack::Middleware::Deflater missing, bandwidth will be wasted\n"; # 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. # See Plack::Middleware::ReverseProxy documentation for details - enable 'ReverseProxy'; + eval { enable 'ReverseProxy' }; + $@ and warn +"Plack::Middleware::ReverseProxy missing,\n", +"URL generation for redirects may be wrong if behind a reverse proxy\n"; + + # Optional: Log timing information for requests to track performance. + # Logging to STDOUT is recommended since public-inbox-httpd knows + # how to reopen it via SIGUSR1 after log rotation. + # enable 'AccessLog::Timed', + # logger => sub { syswrite(STDOUT, $_[0]) }, + # format => '%t "%r" %>s %b %D'; enable 'Head'; sub { $www->call(@_) };