$::auth = SL::Auth->new;
$::form = undef;
%::myconfig = ();
- %::called_subs = (); # currently used for recursion detection
+ $::request = undef;
}
$SIG{__WARN__} = sub {
$self->unrequire_bin_mozilla;
- $::cgi = CGI->new('');
$::locale = Locale->new($::lx_office_conf{system}->{language});
$::form = Form->new;
- %::called_subs = ();
$::instance_conf = SL::InstanceConfiguration->new;
+ $::request = { cgi => CGI->new({}) };
my $session_result = $::auth->restore_session;
$::auth->create_or_refresh_session;
} or do {
if ($EVAL_ERROR ne END_OF_REQUEST) {
print STDERR $EVAL_ERROR;
- $::form->{label_error} = $::cgi->pre($EVAL_ERROR);
+ $::form->{label_error} = $::request->{cgi}->pre($EVAL_ERROR);
eval { show_error('generic/error') };
}
};
$::locale = undef;
$::form = undef;
$::myconfig = ();
+ $::request = undef;
Form::disconnect_standard_dbh;
$::lxdebug->end_request;
1;
} or do {
- $::form->{label_error} = $::cgi->pre($EVAL_ERROR);
+ $::form->{label_error} = $::request->{cgi}->pre($EVAL_ERROR);
show_error('generic/error');
};
1;
} or do {
- $::form->{label_error} = $::cgi->pre($EVAL_ERROR);
+ $::form->{label_error} = $::request->{cgi}->pre($EVAL_ERROR);
show_error('generic/error');
};