dispatcher.fpl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 BEGIN {
   6   use FindBin;
   7
   8   unshift(@INC, $FindBin::Bin . '/modules/override'); # Use our own versions of various modules (e.g. YAML).
   9   push   (@INC, $FindBin::Bin);                       # '.' will be removed from @INC soon.
  10   push   (@INC, $FindBin::Bin . '/modules/fallback'); # Only use our own versions of modules if there's no system version.
  11 }
  12
  13 use SL::Dispatcher;
  14 use SL::FCGIFixes;
  15 use SL::LXDebug;
  16
  17 our $dispatcher = SL::Dispatcher->new('FastCGI');
  18 $dispatcher->pre_startup_setup;
  19 SL::FCGIFixes::apply_fixes();
  20 $dispatcher->pre_startup_checks;
  21 $dispatcher->handle_all_requests;
  22
  23 1;