kopf.pl

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