|
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
use FCGI;
|
|
use SL::Dispatcher;
|
|
use SL::FCGIFixes;
|
|
|
|
our $dispatcher = SL::Dispatcher->new('FastCGI');
|
|
$dispatcher->pre_startup_setup;
|
|
SL::FCGIFixes::apply_fixes();
|
|
$dispatcher->pre_startup_checks;
|
|
|
|
my $request = FCGI::Request();
|
|
$dispatcher->handle_request($request) while $request->Accept() >= 0;
|
|
|
|
1;
|