$::auth = SL::Auth->new;
$::form = undef;
%::myconfig = ();
- %::called_subs = (); # currently used for recursion detection
}
$SIG{__WARN__} = sub {
$::cgi = CGI->new('');
$::locale = Locale->new($::lx_office_conf{system}->{language});
$::form = Form->new;
- %::called_subs = ();
$::instance_conf = SL::InstanceConfiguration->new;
my $session_result = $::auth->restore_session;