Vergessene locale-Läufe.
[kivitendo-erp.git] / kopf.pl
1 #!/usr/bin/perl
2 #
3
4 BEGIN {
5   unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
6   push    @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
7 }
8
9 use SL::LXDebug;
10 $lxdebug = LXDebug->new();
11
12 use SL::Auth;
13 use SL::Form;
14 use SL::Locale;
15
16 eval { require "config/lx-erp.conf"; };
17 eval { require "config/lx-erp-local.conf"; } if (-f "config/lx-erp-local.conf");
18
19 $form = new Form;
20
21 our $auth     = SL::Auth->new();
22 if (!$auth->session_tables_present()) {
23   _show_error('login/auth_db_unreachable');
24 }
25 $auth->expire_sessions();
26 $auth->restore_session();
27
28 our %myconfig = $auth->read_user($form->{login});
29
30 $locale = new Locale "$myconfig{countrycode}", "kopf";
31
32 delete $form->{password};
33
34 eval { require "bin/mozilla/kopf.pl"; };