Request abbrechen, wenn alte Konfigurationsdateien vorhanden sind

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index b827acc7d8ba4d373b10c4a200da7cd6fdb9b5ed..909433ebdbde14b2d67d7ad410081fdb454ad21d 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -41,6 +41,8 @@ sub interface_type {
 }
 
 sub pre_request_checks {
 }
 
 sub pre_request_checks {

+  _check_for_old_config_files();
+

   if (!$::auth->session_tables_present) {
     if ($::form->{script} eq 'admin.pl') {
       ::run();
   if (!$::auth->session_tables_present) {
     if ($::form->{script} eq 'admin.pl') {
       ::run();


@@ -339,6 +341,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;
 package main;
 
 use strict;

diff --git a/locale/de/all b/locale/de/all
index 3893565040a17278564458ad7f62b96c8b5c8744..abd7aa8d428fb9e64bec85e062d44072f1b2cd66 100644 (file)
--- a/locale/de/all
+++ b/locale/de/all
@@ -238,6 +238,7 @@ $self->{texts} = {
   'BOM'                         => 'Stückliste',
   'BWA'                         => 'BWA',
   'Back'                        => 'Zurück',
   'BOM'                         => 'Stückliste',
   'BWA'                         => 'BWA',
   'Back'                        => 'Zurück',

+  'Back to login'               => 'Zurück zur Anmeldung',

   'Back to the login page'      => 'Zurück zur Loginseite',
   'Backup Dataset'              => 'Datenbank sichern',
   'Backup file'                 => 'Sicherungsdatei',
   'Back to the login page'      => 'Zurück zur Loginseite',
   'Backup Dataset'              => 'Datenbank sichern',
   'Backup file'                 => 'Sicherungsdatei',


@@ -592,6 +593,7 @@ $self->{texts} = {
   'Due'                         => 'Fällig',
   'Due Date'                    => 'Fälligkeitsdatum',
   'Due Date missing!'           => 'Fälligkeitsdatum fehlt!',
   'Due'                         => 'Fällig',
   'Due Date'                    => 'Fälligkeitsdatum',
   'Due Date missing!'           => 'Fälligkeitsdatum fehlt!',

+  'Due to security concerns these files have to be deleted or moved after the migration before you can continue using Lx-Office.' => 'Aus Sicherheitsgründen müssen diese Dateien nach erfolgter Migration gelöscht oder verschoben werden, bevor Lx-Office weiter genutzt werden kann.',

   'Duedate +Days'               => 'Fällikeitsdatum +Tage',
   'Dunning'                     => 'Mahnung',
   'Dunning Amount'              => 'gemahnter Betrag',
   'Duedate +Days'               => 'Fällikeitsdatum +Tage',
   'Dunning'                     => 'Mahnung',
   'Dunning Amount'              => 'gemahnter Betrag',


@@ -1142,6 +1144,7 @@ $self->{texts} = {
   'October'                     => 'Oktober',
   'Off'                         => 'Aus',
   'Old (on the side)'           => 'Links (HTML)',
   'October'                     => 'Oktober',
   'Off'                         => 'Aus',
   'Old (on the side)'           => 'Links (HTML)',

+  'Old configuration files'     => 'Alte Konfigurationsdateien',

   'On'                          => 'An',
   'On Hand'                     => 'Auf Lager',
   'On Order'                    => 'Ist bestellt',
   'On'                          => 'An',
   'On Hand'                     => 'Auf Lager',
   'On Order'                    => 'Ist bestellt',


@@ -1524,6 +1527,7 @@ $self->{texts} = {
   'Start the correction assistant' => 'Korrekturassistenten starten',
   'Startdate_coa'               => 'Gültig ab',
   'Starting Balance'            => 'Eröffnungsbilanzwerte',
   'Start the correction assistant' => 'Korrekturassistenten starten',
   'Startdate_coa'               => 'Gültig ab',
   'Starting Balance'            => 'Eröffnungsbilanzwerte',

+  'Starting with Lx-Office 2.6.3 the configuration files in "config" have been consolidated.' => 'Mit Lx-Office 2.6.3 wurden die Konfigurationsdateien im Verzeichnis "config" vereinheitlicht.',

   'Statement'                   => 'Sammelrechnung',
   'Statement Balance'           => 'Sammelrechnungsbilanz',
   'Statement sent to'           => 'Sammelrechnung verschickt an',
   'Statement'                   => 'Sammelrechnung',
   'Statement Balance'           => 'Sammelrechnungsbilanz',
   'Statement sent to'           => 'Sammelrechnung verschickt an',


@@ -1661,6 +1665,7 @@ $self->{texts} = {
   'The following Buchungsgruppen have already been created:' => 'Die folgenden Buchungsgruppen wurden bereits angelegt:',
   'The following Datasets need to be updated' => 'Folgende Datenbanken müssen aktualisiert werden',
   'The following drafts have been saved and can be loaded.' => 'Die folgenden Entwürfe wurden gespeichert und können geladen werden.',
   'The following Buchungsgruppen have already been created:' => 'Die folgenden Buchungsgruppen wurden bereits angelegt:',
   'The following Datasets need to be updated' => 'Folgende Datenbanken müssen aktualisiert werden',
   'The following drafts have been saved and can be loaded.' => 'Die folgenden Entwürfe wurden gespeichert und können geladen werden.',

+  'The following old files whose settings have to be merged manually into the new configuration file "config/lx_office.conf" still exist:' => 'Es existieren noch die folgenden alten Dateien, deren Einstellungen manuell in die neue Konfiguratsdatei "config/lx_office.conf" migriert werden müssen:',

   'The following transaction contains wrong taxes:' => 'Die folgende Buchung enthält falsche Steuern:',
   'The following transaction contains wrong taxkeys:' => 'Die folgende Buchung enthält falsche Steuerschlüssel:',
   'The following units are unknown.' => 'Die folgenden Einheiten sind unbekannt.',
   'The following transaction contains wrong taxes:' => 'Die folgende Buchung enthält falsche Steuern:',
   'The following transaction contains wrong taxkeys:' => 'Die folgende Buchung enthält falsche Steuerschlüssel:',
   'The following units are unknown.' => 'Die folgenden Einheiten sind unbekannt.',


@@ -1931,6 +1936,7 @@ $self->{texts} = {
   'You can create warehouses and bins via the menu "System -> Warehouses".' => 'Sie können Lager und Lagerplätze über das Menü "System -> Lager" anlegen.',
   'You can declare different translations for singular and plural for each unit (e.g. "day" and "days).' => 'Bei den Übersetzungen können Sie unterschiedliche Varianten für singular und plural angeben (z.B. "day" und "days").',
   'You can either create a new database or chose an existing database.' => 'Sie können entweder eine neue Datenbank erstellen oder eine existierende auswählen.',
   'You can create warehouses and bins via the menu "System -> Warehouses".' => 'Sie können Lager und Lagerplätze über das Menü "System -> Lager" anlegen.',
   'You can declare different translations for singular and plural for each unit (e.g. "day" and "days).' => 'Bei den Übersetzungen können Sie unterschiedliche Varianten für singular und plural angeben (z.B. "day" und "days").',
   'You can either create a new database or chose an existing database.' => 'Sie können entweder eine neue Datenbank erstellen oder eine existierende auswählen.',

+  'You can find information on the migration in the upgrade documentation.' => 'Informationen über die Migration sind in der Upgrade-Dokumentation zu finden.',

   'You can only delete datasets that are not in use.' => 'Sie können nur Datenbanken löschen, die momentan nicht in Benutzung sind.',
   'You can use the following strings in the long description and all translations. They will be replaced by their actual values by Lx-Office before they\'re output.' => 'Sie können im Langtext und allen Übersetzungen die folgenden Variablen benutzen, die vor der Ausgabe von Lx-Office automatisch ersetzt werden:',
   'You cannot adjust the price for pricegroup "#1" by a negative percentage.' => 'Sie können den Preis für Preisgruppe "#1" um einen negativen Prozentwert anpassen.',
   'You can only delete datasets that are not in use.' => 'Sie können nur Datenbanken löschen, die momentan nicht in Benutzung sind.',
   'You can use the following strings in the long description and all translations. They will be replaced by their actual values by Lx-Office before they\'re output.' => 'Sie können im Langtext und allen Übersetzungen die folgenden Variablen benutzen, die vor der Ausgabe von Lx-Office automatisch ersetzt werden:',
   'You cannot adjust the price for pricegroup "#1" by a negative percentage.' => 'Sie können den Preis für Preisgruppe "#1" um einen negativen Prozentwert anpassen.',

diff --git a/templates/webpages/login/old_configuration_files.html b/templates/webpages/login/old_configuration_files.html
new file mode 100644 (file)
index 0000000..3b6c94e
--- /dev/null
+++ b/templates/webpages/login/old_configuration_files.html
@@ -0,0 +1,28 @@
+[% USE LxERP %][% USE HTML %]
+<body>
+ <div class="listtop">[% title %]</div>
+
+ <p>
+  [%- LxERP.t8('Starting with Lx-Office 2.6.3 the configuration files in "config" have been consolidated.') %]
+  [%- LxERP.t8('The following old files whose settings have to be merged manually into the new configuration file "config/lx_office.conf" still exist:') %]
+ </p>
+
+ <ul>
+  [%- FOREACH file = FILES %]
+   <li><code>config/[%- HTML.escape(file) %]</code></li>
+  [%- END %]
+ </ul>
+
+ <p>
+  [%- LxERP.t8('Due to security concerns these files have to be deleted or moved after the migration before you can continue using Lx-Office.') %]
+ </p>
+
+ <p>
+  [%- LxERP.t8('You can find information on the migration in the upgrade documentation.') %]
+ </p>
+
+ <p>
+  <a href="login.pl">[%- LxERP.t8('Back to login') %]</a>
+ </p>
+</body>
+</html>