aboutsummaryrefslogtreecommitdiff
path: root/gorillanest.pl.fcgi
diff options
context:
space:
mode:
Diffstat (limited to 'gorillanest.pl.fcgi')
-rwxr-xr-xgorillanest.pl.fcgi23
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);
-}