Move from mod_perl to being a PSGI app.

[pr0n] / perl / pr0n.psgi

diff --git a/perl/pr0n.psgi b/perl/pr0n.psgi
new file mode 100644 (file)
index 0000000..6a015dc
--- /dev/null
+++ b/perl/pr0n.psgi
@@ -0,0 +1,16 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use lib qw(.);
+
+use Plack::Request;
+use Plack::Response;
+use Sesse::pr0n::pr0n;
+
+sub {
+       my $env = shift;
+       my $req = Plack::Request->new($env);
+       my $res = Sesse::pr0n::pr0n::handler($req);
+       return $res->finalize;
+}