X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/56e52e62aa29100c6369274dcf805d5cb99bf315..40d52f50:/kopf.pl diff --git a/kopf.pl b/kopf.pl index 5ee9f2ffc..28ab15716 100755 --- a/kopf.pl +++ b/kopf.pl @@ -9,15 +9,26 @@ BEGIN { 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"; };