20 lines
270 B
Perl
Executable File
20 lines
270 B
Perl
Executable File
#!/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");
|
|
}
|