X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f04a7950a3040894b77e09289a71d3931ce898d0..8cd05ad64866ce200f888a35723ae4b7e24a2012:/SL/Dispatcher.pm diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm index 687c37306..57e2b545b 100644 --- a/SL/Dispatcher.pm +++ b/SL/Dispatcher.pm @@ -75,6 +75,9 @@ sub pre_startup_setup { 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"; @@ -84,9 +87,6 @@ sub pre_startup_setup { # canonial globals. if it's not here, chances are it will get refactored someday. { no warnings 'once'; - $::userspath = "users"; - $::templates = "templates"; - $::memberfile = "users/members"; $::menufile = "menu.ini"; $::sendmail = "| /usr/sbin/sendmail -t"; $::lxdebug = LXDebug->new; @@ -94,9 +94,6 @@ sub pre_startup_setup { $::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 { @@ -193,7 +190,7 @@ sub handle_request { my $session_result = $::auth->restore_session; $::auth->create_or_refresh_session; - $::form->error($::locale->text('System currently down for maintenance!')) if -e "$::userspath/nologin" && $script ne 'admin'; + $::form->error($::locale->text('System currently down for maintenance!')) if -e ($::lx_office_conf{paths}->{userspath} . "/nologin") && $script ne 'admin'; if ($script eq 'login' or $script eq 'admin' or $script eq 'kopf') { $::form->{titlebar} = "Lx-Office " . $::locale->text('Version') . " $::form->{version}";