use Data::Dumper;
use SL::LxOfficeConf;
use SL::InstanceConfiguration;
-SL::LxOfficeConf->read;
sub _login {
my $login = shift;
package main;
- $::lxdebug = LXDebug->new(file => \*STDERR);
+ $::lxdebug = LXDebug->new(target => LXDebug::STDERR_TARGET);
+ $::lxdebug->disable_sub_tracing;
$::locale = Locale->new($::lx_office_conf{system}->{language});
$::form = Form->new;
$::auth = SL::Auth->new;
}
sub login {
+ SL::LxOfficeConf->read;
+
my $login = shift || $::lx_office_conf{testing}{login} || 'demo';
_login($login);
}