X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2Fpr0n.psgi;fp=perl%2Fpr0n.psgi;h=6a015dc3e31e690537fda846466b9f6f913f981e;hp=0000000000000000000000000000000000000000;hb=09260885c52013320acd21d7ce262e12def7301f;hpb=12202fec705ed63d7b9245abd877062990851efa

diff --git a/perl/pr0n.psgi b/perl/pr0n.psgi
new file mode 100644
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;
+}