X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/23f79a876613fabf7f4aa2de230788ebeb840de9..393cef65daf67853ed468b4778b7c738773d48f1:/dispatcher.fpl

diff --git a/dispatcher.fpl b/dispatcher.fpl
index e5c8ca9dd..9b7c98b7d 100755
--- a/dispatcher.fpl
+++ b/dispatcher.fpl
@@ -2,16 +2,22 @@
 
 use strict;
 
-use FCGI;
+BEGIN {
+  use FindBin;
+
+  unshift(@INC, $FindBin::Bin . '/modules/override'); # Use our own versions of various modules (e.g. YAML).
+  push   (@INC, $FindBin::Bin);                       # '.' will be removed from @INC soon.
+  push   (@INC, $FindBin::Bin . '/modules/fallback'); # Only use our own versions of modules if there's no system version.
+}
+
 use SL::Dispatcher;
 use SL::FCGIFixes;
+use SL::LXDebug;
 
+our $dispatcher = SL::Dispatcher->new('FastCGI');
+$dispatcher->pre_startup_setup;
 SL::FCGIFixes::apply_fixes();
-
-my $dispatcher = SL::Dispatcher->new('FastCGI');
-$dispatcher->pre_startup;
-
-my $request = FCGI::Request();
-$dispatcher->handle_request($request) while $request->Accept() >= 0;
+$dispatcher->pre_startup_checks;
+$dispatcher->handle_all_requests;
 
 1;