kivitendo/kopf.pl @ d6369b1f
| 4dbb0995 | Moritz Bunkus | #!/usr/bin/perl
|
||
#
|
||||
| 3f65b4fb | Moritz Bunkus | BEGIN {
|
||
| 56e52e62 | Moritz Bunkus | 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.
|
||||
| 3f65b4fb | Moritz Bunkus | }
|
||
| 4dbb0995 | Moritz Bunkus | use SL::LXDebug;
|
||
$lxdebug = LXDebug->new();
|
||||
| 8c7e4493 | Moritz Bunkus | use SL::Auth;
|
||
| 4dbb0995 | Moritz Bunkus | use SL::Form;
|
||
| ce1ee6bf | Moritz Bunkus | use SL::Locale;
|
||
| 4dbb0995 | Moritz Bunkus | |||
| 8c7e4493 | Moritz Bunkus | eval { require "config/lx-erp.conf"; };
|
||
eval { require "config/lx-erp-local.conf"; } if (-f "config/lx-erp-local.conf");
|
||||
| 4dbb0995 | Moritz Bunkus | |||
$form = new Form;
|
||||
| 8c7e4493 | Moritz Bunkus | 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});
|
||||
| 4dbb0995 | Moritz Bunkus | |||
$locale = new Locale "$myconfig{countrycode}", "kopf";
|
||||
| 8c7e4493 | Moritz Bunkus | delete $form->{password};
|
||
| 4dbb0995 | Moritz Bunkus | eval { require "bin/mozilla/kopf.pl"; };
|