aboutsummaryrefslogtreecommitdiff
path: root/gorillanest.pl.fcgi
diff options
context:
space:
mode:
authorEmil Williams2025-08-21 01:01:39 +0000
committerEmil Williams2025-08-21 01:01:39 +0000
commitd72f41647a08d0940b2c69ca0ab9f975fd773b5b (patch)
tree910e88dc5101c6541c3d1404823d94133884c233 /gorillanest.pl.fcgi
parent658f9c0c0fcce6a6371fbdaf8f74a5ca4265c9a9 (diff)
downloadgorillanest-d72f41647a08d0940b2c69ca0ab9f975fd773b5b.tar.xz
gorillanest-d72f41647a08d0940b2c69ca0ab9f975fd773b5b.tar.zst
Hide Everything, Hyde!
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);
-}