#!/usr/bin/perl

use strict;

use FCGI;
use SL::Dispatcher;
use SL::FCGIFixes;

SL::FCGIFixes::apply_fixes();

SL::Dispatcher::pre_startup();
my $request = FCGI::Request();
SL::Dispatcher::handle_request('FastCGI') while $request->Accept() >= 0;

1;