X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/000df040648d4bb3fa11195fa068300352300b1b..47db6ae13df64092d401896ec476b9335e9ec807:/dispatcher.pl

diff --git a/dispatcher.pl b/dispatcher.pl
deleted file mode 120000
index 05c4a229e..000000000
--- a/dispatcher.pl
+++ /dev/null
@@ -1 +0,0 @@
-admin.pl
\ No newline at end of file
diff --git a/dispatcher.pl b/dispatcher.pl
new file mode 100755
index 000000000..a6364ab83
--- /dev/null
+++ b/dispatcher.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use strict;
+
+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.
+}
+
+use SL::Dispatcher;
+
+our $dispatcher = SL::Dispatcher->new('CGI');
+$dispatcher->pre_startup;
+$dispatcher->handle_request;
+
+1;