From d72f41647a08d0940b2c69ca0ab9f975fd773b5b Mon Sep 17 00:00:00 2001
From: Emil Williams
Date: Thu, 21 Aug 2025 01:01:39 +0000
Subject: Hide Everything, Hyde!

---
 perl/fcgi.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 perl/fcgi.pl

(limited to 'perl/fcgi.pl')

diff --git a/perl/fcgi.pl b/perl/fcgi.pl
new file mode 100755
index 0000000..0f3dff8
--- /dev/null
+++ b/perl/fcgi.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Syntax::Keyword::Try;
+use FCGI;
+
+use lib qw(perl);
+BEGIN { require 'cgi.pl'; }
+
+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);
+}
-- 
cgit v1.2.3