use List::MoreUtils qw(all);
use List::Util qw(first);
use POSIX qw(setlocale);
-use SL::ArchiveZipFixes;
use SL::Auth;
use SL::Dispatcher::AuthHandler;
use SL::LXDebug;
$self->{interface} = lc($interface || 'cgi');
$self->{auth_handler} = SL::Dispatcher::AuthHandler->new;
- SL::ArchiveZipFixes->apply_fixes;
-
# Initialize character type locale to be UTF-8 instead of C:
foreach my $locale (qw(de_DE.UTF-8 en_US.UTF-8)) {
last if setlocale('LC_CTYPE', $locale);
my $session_result = $self->pre_request_initialization;
- $::form->read_cgi_input;
+ $::request->read_cgi_input($::form);
my %routing;
eval { %routing = $self->_route_request($ENV{SCRIPT_NAME}); 1; } or return;