X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=dispatcher.pl;h=a6364ab83f26dfe2d7eeac29358b8337bc6b4ce7;hb=HEAD;hp=05c4a229e0359f9b0c7f63ffb74d9cb5a41c9090;hpb=000df040648d4bb3fa11195fa068300352300b1b;p=kivitendo-erp.git

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;