projects
/
kivitendo-erp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
e5c8ca9ddb90ef9e60686ed581ec2d3273479dd2
[kivitendo-erp.git]
/
dispatcher.fpl
1
#!/usr/bin/perl
2
3
use strict;
4
5
use FCGI;
6
use SL::Dispatcher;
7
use SL::FCGIFixes;
8
9
SL::FCGIFixes::apply_fixes();
10
11
my $dispatcher = SL::Dispatcher->new('FastCGI');
12
$dispatcher->pre_startup;
13
14
my $request = FCGI::Request();
15
$dispatcher->handle_request($request) while $request->Accept() >= 0;
16
17
1;