X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=kopf.pl;h=05c4a229e0359f9b0c7f63ffb74d9cb5a41c9090;hb=e2b32763e326289482fdbaffbe8dd90056f272e4;hp=b01c42a10d89623d22c6879202ad67ca1f3da735;hpb=092f37509348da1e5901dab2cc2ffb4cdf4c2004;p=kivitendo-erp.git

diff --git a/kopf.pl b/kopf.pl
deleted file mode 100755
index b01c42a10..000000000
--- a/kopf.pl
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl
-#
-
-use strict;
-
-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;
-our $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");
-
-our $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});
-
-our $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
index 000000000..05c4a229e
--- /dev/null
+++ b/kopf.pl
@@ -0,0 +1 @@
+admin.pl
\ No newline at end of file