X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDispatcher.pm;h=c1f31a4eff78a2c618e991fdc531eaf6e98c7406;hb=5c5cbb9f90449da8064d749183586a78b4216742;hp=3bf120668f919f0d3b17cb83308795f57f981547;hpb=5dd469a517459d54610d9999f1b9c68a5ff29a73;p=kivitendo-erp.git diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm index 3bf120668..c1f31a4ef 100644 --- a/SL/Dispatcher.pm +++ b/SL/Dispatcher.pm @@ -19,6 +19,7 @@ use SL::Locale; use SL::Common; use SL::Form; use SL::Helper::DateTime; +use SL::Template::Plugin::HTMLFixes; use List::Util qw(first); use File::Basename; @@ -41,6 +42,8 @@ sub interface_type { } sub pre_request_checks { + _check_for_old_config_files(); + if (!$::auth->session_tables_present) { if ($::form->{script} eq 'admin.pl') { ::run(); @@ -84,6 +87,7 @@ sub pre_startup_setup { { no warnings 'once'; $::lxdebug = LXDebug->new; + $::auth = SL::Auth->new; $::form = undef; %::myconfig = (); %::called_subs = (); # currently used for recursion detection @@ -159,7 +163,6 @@ sub handle_request { $::cgi = CGI->new(''); $::locale = Locale->new($::lx_office_conf{system}->{language}); $::form = Form->new; - $::auth = SL::Auth->new; %::called_subs = (); eval { ($routing_type, $script_name, $action) = _route_request($script_name); 1; } or return; @@ -234,8 +237,7 @@ sub handle_request { $::myconfig = (); Form::disconnect_standard_dbh; $::auth->expire_session_keys->save_session; - $::auth->dbdisconnect; - $::auth = undef; + $::auth->reset; $::lxdebug->end_request; $::lxdebug->leave_sub; @@ -340,6 +342,18 @@ sub _init_environment { } } +sub _check_for_old_config_files { + my @old_files = grep { -f "config/${_}" } qw(authentication.pl console.conf lx-erp.conf lx-erp-local.conf); + return unless @old_files; + + $::form->{title} = $::locale->text('Old configuration files'); + $::form->{stylesheet} = 'lx-office-erp.css'; + $::form->header; + print $::form->parse_html_template('login/old_configuration_files', { FILES => \@old_files }); + + ::end_of_request(); +} + package main; use strict;