dispatcher.fpl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 BEGIN {
   6   unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
   7   push    @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
   8   push    @INC, "SL";               # FCGI won't find modules that are not properly named. Help it by inclduging SL
   9 }
  10
  11 use FCGI;
  12 use SL::Dispatcher;
  13
  14 SL::Dispatcher::pre_startup();
  15 my $request = FCGI::Request();
  16 SL::Dispatcher::handle_request('FastCGI') while $request->Accept() >= 0;
  17
  18 1;