gorillanest.pl.fcgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/env perl

use strict;
use warnings;

use Syntax::Keyword::Try;
use FCGI;

BEGIN { require 'gorillanest.pl.cgi'; }

our $request = FCGI::Request();

try {
    while($request->Accept() >= 0) {
		master();
    }
} catch ($error) {
    info("Crashed: $error");
}