initial import

1 files changed, 15 insertions, 0 deletions

diff --git a/public/dispatch.cgi b/public/dispatch.cgi
new file mode 100755
index 0000000..3bb7f2a
--- /dev/null
+++ b/public/dispatch.cgi
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+use Dancer ':syntax';
+use FindBin '$RealBin';
+use Plack::Runner;
+
+# For some reason Apache SetEnv directives dont propagate
+# correctly to the dispatchers, so forcing PSGI and env here 
+# is safer.
+set apphandler => 'PSGI';
+set environment => 'production';
+
+my $psgi = path($RealBin, '..', 'bin', 'app.pl');
+die "Unable to read startup script: $psgi" unless -r $psgi;
+
+Plack::Runner->run($psgi);