diff options
Diffstat (limited to 'gorillanest.pl.fcgi')
| -rwxr-xr-x | gorillanest.pl.fcgi | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/gorillanest.pl.fcgi b/gorillanest.pl.fcgi deleted file mode 100755 index afba9be..0000000 --- a/gorillanest.pl.fcgi +++ /dev/null @@ -1,23 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; - -use Syntax::Keyword::Try; -use FCGI; - -use lib '.'; -BEGIN { require 'gorillanest.pl.cgi'; } - -while (1) { - try { - open STDERR, '>', LOG_FILE or die LOG_FILE . ": $!"; - my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, BARE_REQUEST ? 0 : FCGI::OpenSocket(SOCKET_FILE, SOCKET_MAX_CONNECTIONS)); - while($request->Accept() >= 0) { - master(); - } - } catch ($error) { - info("Crashed: $error"); - } - exit 1 unless (IMMORTAL); -} |
