dispatcher.fpl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 use FCGI;
   6 use SL::Dispatcher;
   7 use SL::FCGIFixes;
   8
   9 our $dispatcher = SL::Dispatcher->new('FastCGI');
  10 $dispatcher->pre_startup_setup;
  11 SL::FCGIFixes::apply_fixes();
  12 $dispatcher->pre_startup_checks;
  13
  14 my $request = FCGI::Request();
  15 $dispatcher->handle_request($request) while $request->Accept() >= 0;
  16
  17 1;