1 files changed, 47 insertions, 0 deletions
diff --git a/examples/repobrowse.psgi b/examples/repobrowse.psgi
new file mode 100644
index 00000000..faf8c331
--- /dev/null
+++ b/examples/repobrowse.psgi
@@ -0,0 +1,47 @@
+#!/usr/bin/perl -w
+# Copyright (C) 2015-2016 all contributors <meta@public-inbox.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+#
+# standalone repobrowse example PSGI
+#
+# Note: this is part of our test suite, update t/*.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/repobrowse.psgi
+use strict;
+use warnings;
+use PublicInbox::Repobrowse;
+use Plack::Builder;
+my $repobrowse = PublicInbox::Repobrowse->new;
+
+builder {
+        # Chunked middleware conflicts with Starman:
+        # https://github.com/miyagawa/Starman/issues/23
+        # enable 'Chunked';
+        eval {
+                enable 'Deflater',
+                        content_type => [ '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
+        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 { $repobrowse->call(@_) }
+}