X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0b2ca0abb53db0d372bcc51e8093abb30f2aeea6..be6f6cfd8dc7def5356edd0c5aacb814b4baded1:/scripts/console?ds=inline diff --git a/scripts/console b/scripts/console index added9f83..79db5a96c 100755 --- a/scripts/console +++ b/scripts/console @@ -59,24 +59,18 @@ sub lxinit { package main; - { no warnings 'once'; - $::userspath = "users"; - $::templates = "templates"; - $::sendmail = "| /usr/sbin/sendmail -t"; - } - 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); + $::locale = Locale->new($::lx_office_conf{system}->{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;