]> Sergey Matveev's repositories - public-inbox.git/blob - examples/public-inbox.psgi
fixup Plack-related requires
[public-inbox.git] / examples / public-inbox.psgi
1 #!/usr/bin/perl -w
2 # Copyright (C) 2014-2016 all contributors <meta@public-inbox.org>
3 # License: GPL-3.0+ <https://www.gnu.org/licenses/gpl-3.0.txt>
4 # Note: this is part of our test suite, update t/plack.t if this changes
5 # Usage: plackup [OPTIONS] /path/to/this/file
6 # A startup command for development which monitors changes:
7 #       plackup -I lib -o 127.0.0.1 -R lib -r examples/public-inbox.psgi
8 use strict;
9 use warnings;
10 use PublicInbox::WWW;
11 PublicInbox::WWW->preload;
12 use Plack::Builder;
13 my $www = PublicInbox::WWW->new;
14 builder {
15         enable 'Chunked';
16         eval {
17                 enable 'Deflater',
18                         content_type => [ qw(
19                                 text/html
20                                 text/plain
21                                 application/atom+xml
22                                 )]
23         };
24         $@ and warn
25 "Plack::Middleware::Deflater missing, bandwidth will be wasted\n";
26
27         # Enable to ensure redirects and Atom feed URLs are generated
28         # properly when running behind a reverse proxy server which
29         # sets X-Forwarded-For and X-Forwarded-Proto request headers.
30         # See Plack::Middleware::ReverseProxy documentation for details
31         eval { enable 'ReverseProxy' };
32         $@ and warn
33 "Plack::Middleware::ReverseProxy missing,\n",
34 "URL generation for redirects may be wrong if behind a reverse proxy\n";
35
36         # Optional: Log timing information for requests to track performance.
37         # Logging to STDOUT is recommended since public-inbox-httpd knows
38         # how to reopen it via SIGUSR1 after log rotation.
39         # enable 'AccessLog::Timed',
40         #       logger => sub { syswrite(STDOUT, $_[0]) },
41         #       format => '%t "%r" %>s %b %D';
42
43         enable 'Head';
44         sub { $www->call(@_) };
45 }