public/dispatch.fcgi

   1 #!/usr/bin/env perl
   2 use Dancer ':syntax';
   3 use FindBin '$RealBin';
   4 use Plack::Handler::FCGI;
   5
   6 # For some reason Apache SetEnv directives dont propagate
   7 # correctly to the dispatchers, so forcing PSGI and env here
   8 # is safer.
   9 set apphandler => 'PSGI';
  10 set environment => 'production';
  11
  12 my $psgi = path($RealBin, '..', 'bin', 'app.pl');
  13 my $app = do($psgi);
  14 die "Unable to read startup script: $@" if $@;
  15 my $server = Plack::Handler::FCGI->new(nproc => 5, detach => 1);
  16
  17 $server->run($app);