dispatcher.fpl

#!/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;