X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=kopf.pl;h=28ab157168c9a95df4c8ca0ff2cbd5a1eaa432db;hb=4c5ca4c0d455af2d7f7809a6f02f2d15d86f04a6;hp=001ac988a528e0f5e75a44103489c098888f5e76;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git

diff --git a/kopf.pl b/kopf.pl
index 001ac988a..28ab15716 100755
--- a/kopf.pl
+++ b/kopf.pl
@@ -1,17 +1,34 @@
 #!/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 "lx-erp.conf"; };
+eval { require "config/lx-erp.conf"; };
+eval { require "config/lx-erp-local.conf"; } if (-f "config/lx-erp-local.conf");
 
 $form = new Form;
 
-eval { require("$userspath/$form->{login}.conf"); };
+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"; };