kivitendo/dispatcher.fpl @ 23f79a87
| a4e48368 | Sven Schöling | #!/usr/bin/perl
|
||
use strict;
|
||||
use FCGI;
|
||||
| 94899fc9 | Moritz Bunkus | use SL::Dispatcher;
|
||
| f5bc2335 | Moritz Bunkus | use SL::FCGIFixes;
|
||
SL::FCGIFixes::apply_fixes();
|
||||
| a4e48368 | Sven Schöling | |||
| 23f79a87 | Moritz Bunkus | my $dispatcher = SL::Dispatcher->new('FastCGI');
|
||
$dispatcher->pre_startup;
|
||||
| 94899fc9 | Moritz Bunkus | my $request = FCGI::Request();
|
||
| 23f79a87 | Moritz Bunkus | $dispatcher->handle_request($request) while $request->Accept() >= 0;
|
||
| a4e48368 | Sven Schöling | |||
1;
|