Revision f416a998
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Dispatcher.pm | ||
|---|---|---|
| 41 | 41 |
} |
| 42 | 42 |
|
| 43 | 43 |
sub pre_request_checks {
|
| 44 |
_check_for_old_config_files(); |
|
| 45 |
|
|
| 44 | 46 |
if (!$::auth->session_tables_present) {
|
| 45 | 47 |
if ($::form->{script} eq 'admin.pl') {
|
| 46 | 48 |
::run(); |
| ... | ... | |
| 339 | 341 |
} |
| 340 | 342 |
} |
| 341 | 343 |
|
| 344 |
sub _check_for_old_config_files {
|
|
| 345 |
my @old_files = grep { -f "config/${_}" } qw(authentication.pl console.conf lx-erp.conf lx-erp-local.conf);
|
|
| 346 |
return unless @old_files; |
|
| 347 |
|
|
| 348 |
$::form->{title} = $::locale->text('Old configuration files');
|
|
| 349 |
$::form->{stylesheet} = 'lx-office-erp.css';
|
|
| 350 |
$::form->header; |
|
| 351 |
print $::form->parse_html_template('login/old_configuration_files', { FILES => \@old_files });
|
|
| 352 |
|
|
| 353 |
::end_of_request(); |
|
| 354 |
} |
|
| 355 |
|
|
| 342 | 356 |
package main; |
| 343 | 357 |
|
| 344 | 358 |
use strict; |
Auch abrufbar als: Unified diff
Request abbrechen, wenn alte Konfigurationsdateien vorhanden sind