X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=scripts%2Fconsole;h=239ed543112dc5f394186fd9be6e137fd6dbbf38;hb=5ca497d53b8c09d4598fd73a5e73a032cf6731df;hp=d567c56400d13289c351dfc27f2667cb2a5dcc7d;hpb=ad9811f427c748aae4874b9f746fdce3568d94ef;p=kivitendo-erp.git diff --git a/scripts/console b/scripts/console index d567c5640..239ed5431 100755 --- a/scripts/console +++ b/scripts/console @@ -62,10 +62,10 @@ sub lxinit { $::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; $::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 <