public/dispatch.cgi

   1 #!/usr/bin/env perl
   2 use Dancer ':syntax';
   3 use FindBin '$RealBin';
   4 use Plack::Runner;
   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', 'ncip_dancing.pl');
  13 die "Unable to read startup script: $psgi" unless -r $psgi;
  14
  15 Plack::Runner->run($psgi);