X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=scripts%2Fconsole;h=239ed543112dc5f394186fd9be6e137fd6dbbf38;hb=1f3fea6c844add4f42c4e5ee22dcb688867876a2;hp=b9b474585abc77cdb3927f7bc73cde42f3903302;hpb=891411c15c60f4099e7d2f687de8efe84b2e0fbb;p=kivitendo-erp.git diff --git a/scripts/console b/scripts/console index b9b474585..239ed5431 100755 --- a/scripts/console +++ b/scripts/console @@ -60,12 +60,12 @@ sub lxinit { package main; - $::lxdebug = LXDebug->new(file => $debug_file); - $::locale = Locale->new($::lx_office_conf{system}->{language}); - $::cgi = CGI->new qw(); - $::form = Form->new; - $::auth = SL::Auth->new; + $::lxdebug = LXDebug->new(file => $debug_file); + $::locale = Locale->new($::lx_office_conf{system}->{language}); + $::form = Form->new; + $::auth = SL::Auth->new; $::instance_conf = SL::InstanceConfiguration->new; + $::request = { cgi => CGI->new({}) }; die 'cannot reach auth db' unless $::auth->session_tables_present; @@ -73,7 +73,7 @@ sub lxinit { require "bin/mozilla/common.pl"; - die "cannot find user $login" unless %::myconfig = $::auth->read_user($login); + die "cannot find user $login" unless %::myconfig = $::auth->read_user(login => $login); $::form->{login} = $login; # normaly implicit at login @@ -106,14 +106,14 @@ sub quit { sub help { print <