projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
check_name erweitert um ein no_select flag. siehe perldoc bin/mozilla/arap.pl
[kivitendo-erp.git]
/
kopf.pl
diff --git
a/kopf.pl
b/kopf.pl
index
001ac98
..
b01c42a
100755
(executable)
--- a/
kopf.pl
+++ b/
kopf.pl
@@
-1,17
+1,36
@@
#!/usr/bin/perl
#
#!/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;
use SL::LXDebug;
-$lxdebug = LXDebug->new();
+
our
$lxdebug = LXDebug->new();
+use SL::Auth;
use SL::Form;
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;
-eval { require "lx-erp.conf"; };
+our $auth = SL::Auth->new();
+if (!$auth->session_tables_present()) {
+ _show_error('login/auth_db_unreachable');
+}
+$auth->expire_sessions();
+$auth->restore_session();
-
$form = new Form
;
+
our %myconfig = $auth->read_user($form->{login})
;
-
eval { require("$userspath/$form->{login}.conf"); }
;
+
our $locale = new Locale "$myconfig{countrycode}", "kopf"
;
-
$locale = new Locale "$myconfig{countrycode}", "kopf"
;
+
delete $form->{password}
;
eval { require "bin/mozilla/kopf.pl"; };
eval { require "bin/mozilla/kopf.pl"; };