Revision 092f3750
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| kopf.pl | ||
|---|---|---|
|
#!/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;
|
||
|
$lxdebug = LXDebug->new();
|
||
|
our $lxdebug = LXDebug->new();
|
||
|
|
||
|
use SL::Auth;
|
||
|
use SL::Form;
|
||
| ... | ... | |
|
eval { require "config/lx-erp.conf"; };
|
||
|
eval { require "config/lx-erp-local.conf"; } if (-f "config/lx-erp-local.conf");
|
||
|
|
||
|
$form = new Form;
|
||
|
our $form = new Form;
|
||
|
|
||
|
our $auth = SL::Auth->new();
|
||
|
if (!$auth->session_tables_present()) {
|
||
| ... | ... | |
|
|
||
|
our %myconfig = $auth->read_user($form->{login});
|
||
|
|
||
|
$locale = new Locale "$myconfig{countrycode}", "kopf";
|
||
|
our $locale = new Locale "$myconfig{countrycode}", "kopf";
|
||
|
|
||
|
delete $form->{password};
|
||
|
|
||
Auch abrufbar als: Unified diff
kopf strict