7 # These need to come before the Billig modules, so that exit is properly redirected.
9 use CGI::Emulate::PSGI;
14 # Older versions of File::pushd (used by CGI::Compile) have a performance trap
15 # that's hard to pin down. Warn about it.
17 if ($File::pushd::VERSION < 1.005) {
18 print STDERR "WARNING: You are using a version of File::pushd older than 1.005. This will work, but it has performance implications.\n";
19 print STDERR "Do not run in production!\n\n";
22 my $cgi = CGI::Compile->compile('/srv/analysis.sesse.net/www/analysis.pl');
23 my $handler = CGI::Emulate::PSGI->handler($cgi);
27 return &$handler($env);