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 SL::Dispatcher::pre_startup();
  12 my $request = FCGI::Request();
  13 SL::Dispatcher::handle_request('FastCGI') while $request->Accept() >= 0;
  14
  15 1;