Revision ed7bfc4a
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| SL/Dispatcher.pm | ||
|---|---|---|
|
require "config/lx-erp-local.conf";
|
||
|
} if -f "config/lx-erp-local.conf";
|
||
|
|
||
|
read_config 'config/lx_office.conf' => %::lx_office_conf;
|
||
|
_decode_recursively(\%::lx_office_conf);
|
||
|
|
||
|
eval {
|
||
|
package main;
|
||
|
require "bin/mozilla/common.pl";
|
||
| ... | ... | |
|
$::form = undef;
|
||
|
%::myconfig = ();
|
||
|
%::called_subs = (); # currently used for recursion detection
|
||
|
|
||
|
read_config 'config/lx_office.conf' => %::lx_office_conf if -f "config/lx_office.conf";
|
||
|
_decode_recursively(\%::lx_office_conf);
|
||
|
}
|
||
|
|
||
|
$SIG{__WARN__} = sub {
|
||
| scripts/console | ||
|---|---|---|
|
eval { require "config/lx-erp.conf"; };
|
||
|
eval { require "config/lx-erp-local.conf"; } if -f "config/lx-erp-local.conf";
|
||
|
|
||
|
read_config 'config/lx_office.conf' => %::lx_office_conf;
|
||
|
SL::Dispatcher::_decode_recursively(\%::lx_office_conf);
|
||
|
|
||
|
$::lxdebug = LXDebug->new;
|
||
|
$::locale = Locale->new($::language);
|
||
|
$::cgi = CGI->new qw();
|
||
|
$::form = Form->new;
|
||
|
$::auth = SL::Auth->new;
|
||
|
|
||
|
read_config 'config/lx_office.conf' => %::lx_office_conf;
|
||
|
SL::Dispatcher::_decode_recursively(\%::lx_office_conf);
|
||
|
|
||
|
die 'cannot reach auth db' unless $::auth->session_tables_present;
|
||
|
|
||
|
$::auth->restore_session;
|
||
Auch abrufbar als: Unified diff
Globales Konfigurationsobjekt %::lx_office_conf möglichst früh anlegen