diff options
Diffstat (limited to 'perl/fcgi.pl')
| -rwxr-xr-x | perl/fcgi.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl/fcgi.pl b/perl/fcgi.pl index f3701e0..823cd86 100755 --- a/perl/fcgi.pl +++ b/perl/fcgi.pl @@ -12,8 +12,9 @@ BEGIN { require 'cgi.pl'; } while (1) { try { my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, BARE_REQUEST ? 0 : FCGI::OpenSocket(SOCKET_FILE, SOCKET_MAX_CONNECTIONS)); + my ($data, $routes, $routes_cache) = GN::init(); while($request->Accept() >= 0) { - GN::cgi(); + GN::cgi($data, $routes, $routes_cache); } } catch ($error) { info("Crashed: $error"); |
