Revision 092f3750
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| kopf.pl | ||
|---|---|---|
| 1 | 1 |
#!/usr/bin/perl |
| 2 | 2 |
# |
| 3 | 3 |
|
| 4 |
use strict; |
|
| 5 |
|
|
| 4 | 6 |
BEGIN {
|
| 5 | 7 |
unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML). |
| 6 | 8 |
push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version. |
| 7 | 9 |
} |
| 8 | 10 |
|
| 9 | 11 |
use SL::LXDebug; |
| 10 |
$lxdebug = LXDebug->new(); |
|
| 12 |
our $lxdebug = LXDebug->new();
|
|
| 11 | 13 |
|
| 12 | 14 |
use SL::Auth; |
| 13 | 15 |
use SL::Form; |
| ... | ... | |
| 16 | 18 |
eval { require "config/lx-erp.conf"; };
|
| 17 | 19 |
eval { require "config/lx-erp-local.conf"; } if (-f "config/lx-erp-local.conf");
|
| 18 | 20 |
|
| 19 |
$form = new Form; |
|
| 21 |
our $form = new Form;
|
|
| 20 | 22 |
|
| 21 | 23 |
our $auth = SL::Auth->new(); |
| 22 | 24 |
if (!$auth->session_tables_present()) {
|
| ... | ... | |
| 27 | 29 |
|
| 28 | 30 |
our %myconfig = $auth->read_user($form->{login});
|
| 29 | 31 |
|
| 30 |
$locale = new Locale "$myconfig{countrycode}", "kopf";
|
|
| 32 |
our $locale = new Locale "$myconfig{countrycode}", "kopf";
|
|
| 31 | 33 |
|
| 32 | 34 |
delete $form->{password};
|
| 33 | 35 |
|
Auch abrufbar als: Unified diff
kopf strict