aboutsummaryrefslogtreecommitdiff
path: root/gorillanest.pl.fcgi
diff options
context:
space:
mode:
Diffstat (limited to 'gorillanest.pl.fcgi')
-rwxr-xr-xgorillanest.pl.fcgi6
1 files changed, 4 insertions, 2 deletions
diff --git a/gorillanest.pl.fcgi b/gorillanest.pl.fcgi
index d44df66..a9d77c0 100755
--- a/gorillanest.pl.fcgi
+++ b/gorillanest.pl.fcgi
@@ -6,11 +6,13 @@ use warnings;
use Syntax::Keyword::Try;
use FCGI;
+use lib '.';
BEGIN { require 'gorillanest.pl.cgi'; }
-our $request = FCGI::Request();
-
try {
+ open STDERR, '>', LOG_FILE or die LOG_FILE . ": $!";
+ my $sock = FCGI::OpenSocket(SOCKET_FILE, 100);
+ my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, $sock);
while($request->Accept() >= 0) {
master();
}