aboutsummaryrefslogtreecommitdiff
path: root/perl/fcgi.pl
diff options
context:
space:
mode:
Diffstat (limited to 'perl/fcgi.pl')
-rwxr-xr-xperl/fcgi.pl3
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");