multibox part 2.

[kivitendo-erp.git] / kopf.pl

diff --git a/kopf.pl b/kopf.pl
deleted file mode 100755 (executable)
index 28ab157168c9a95df4c8ca0ff2cbd5a1eaa432db..0000000000000000000000000000000000000000
--- a/kopf.pl
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl
-#
-
-BEGIN {
-  unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
-  push    @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
-}
-
-use SL::LXDebug;
-$lxdebug = LXDebug->new();
-
-use SL::Auth;
-use SL::Form;
-use SL::Locale;
-
-eval { require "config/lx-erp.conf"; };
-eval { require "config/lx-erp-local.conf"; } if (-f "config/lx-erp-local.conf");
-
-$form = new Form;
-
-our $auth     = SL::Auth->new();
-if (!$auth->session_tables_present()) {
-  _show_error('login/auth_db_unreachable');
-}
-$auth->expire_sessions();
-$auth->restore_session();
-
-our %myconfig = $auth->read_user($form->{login});
-
-$locale = new Locale "$myconfig{countrycode}", "kopf";
-
-delete $form->{password};
-
-eval { require "bin/mozilla/kopf.pl"; };

diff --git a/kopf.pl b/kopf.pl
new file mode 120000 (symlink)
index 0000000000000000000000000000000000000000..05c4a229e0359f9b0c7f63ffb74d9cb5a41c9090
--- /dev/null
+++ b/kopf.pl
@@ -0,0 +1 @@
+admin.pl
\ No newline at end of file