|
#!/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"; };
|