From 98ec20127d450d4f8223a9a57fab9cbdb8e1dcb6 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 13 Jun 2011 16:27:11 +0200
Subject: initial import

---
 public/dispatch.fcgi | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 public/dispatch.fcgi

(limited to 'public/dispatch.fcgi')

diff --git a/public/dispatch.fcgi b/public/dispatch.fcgi
new file mode 100755
index 0000000..8c42e3a
--- /dev/null
+++ b/public/dispatch.fcgi
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+use Dancer ':syntax';
+use FindBin '$RealBin';
+use Plack::Handler::FCGI;
+
+# 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');
+my $app = do($psgi);
+die "Unable to read startup script: $@" if $@;
+my $server = Plack::Handler::FCGI->new(nproc => 5, detach => 1);
+
+$server->run($app);
-- 
cgit v1.2.3