blob: 2692877baeb8b41d2804239002a7e8492b6e434b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/env perl
use strict;
use warnings;
use Syntax::Keyword::Try;
use FCGI;
use lib '.';
# BEGIN { require 'config.pl'; }
BEGIN { require 'gorillanest.pl.cgi'; }
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();
}
} catch ($error) {
info("Crashed: $error");
}
|
