dispatcher.fpl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 use FCGI;
   6 use SL::Dispatcher;
   7
   8 SL::Dispatcher::pre_startup();
   9 my $request = FCGI::Request();
  10 SL::Dispatcher::handle_request('FastCGI') while $request->Accept() >= 0;
  11
  12 1;