Test updated

[mfinanz.git] / dispatcher.pl

diff --git a/dispatcher.pl b/dispatcher.pl
deleted file mode 120000 (symlink)
index 05c4a229e0359f9b0c7f63ffb74d9cb5a41c9090..0000000000000000000000000000000000000000
--- 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 (executable)
index 0000000000000000000000000000000000000000..a6364ab83f26dfe2d7eeac29358b8337bc6b4ce7
--- /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;