From 4e0ea59f3859c72426f669547de922816305e92d Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Fri, 18 May 2007 11:45:34 +0000 Subject: [PATCH] Beim Administrationsfrontend einen Punkt eingebaut, mit dem man Datenbanken mittels pg_dump sichern kann. Das Ergebnis wird ge-gzipt und kann heruntergeladen oder direkt per Email verschickt werden. --- bin/mozilla/admin.pl | 132 +++++++++++++++++- locale/de/admin | 13 ++ locale/de/all | 14 ++ lx-erp.conf | 9 +- .../webpages/admin/backup_dataset_de.html | 94 +++++++++++++ .../admin/backup_dataset_email_done_de.html | 12 ++ .../backup_dataset_email_done_master.html | 12 ++ .../webpages/admin/backup_dataset_master.html | 94 +++++++++++++ templates/webpages/admin/dbadmin_de.html | 4 + templates/webpages/admin/dbadmin_master.html | 4 + 10 files changed, 386 insertions(+), 2 deletions(-) create mode 100644 templates/webpages/admin/backup_dataset_de.html create mode 100644 templates/webpages/admin/backup_dataset_email_done_de.html create mode 100644 templates/webpages/admin/backup_dataset_email_done_master.html create mode 100644 templates/webpages/admin/backup_dataset_master.html diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index f3edde8e8..6e9f2020e 100644 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -36,8 +36,14 @@ $menufile = "menu.ini"; use DBI; use CGI; +use POSIX qw(strftime); +use IO::File; +use Fcntl; +use English qw(-no_match_vars); +use Sys::Hostname; use SL::Form; +use SL::Mailer; use SL::User; use SL::Common; use SL::Inifile; @@ -562,6 +568,8 @@ sub dbselect_source { $form->{title} = "Lx-Office ERP / " . $locale->text('Database Administration'); + $form->{ALLOW_DBBACKUP} = "$pg_dump_exe" ne "DISABLED"; + $form->header(); print $form->parse_html_template("admin/dbadmin"); } @@ -693,11 +701,133 @@ sub dbdelete { "Lx-Office ERP " . $locale->text('Database Administration') . " / " . $locale->text('Delete Dataset'); - $form->header(); print $form->parse_html_template("admin/dbdelete"); } +sub backup_dataset { + $form->{title} = + "Lx-Office ERP " + . $locale->text('Database Administration') . " / " + . $locale->text('Backup Dataset'); + + if ("$pg_dump_exe" eq "DISABLED") { + $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.')); + } + + my @dbsources = sort User->dbsources($form); + $form->{DATABASES} = [ map { { "dbname" => $_ } } @dbsources ]; + $form->{NO_DATABASES} = !scalar @dbsources; + + my $username = getpwuid $UID || "unknown-user"; + my $hostname = hostname() || "unknown-host"; + $form->{from} = "Lx-Office Admin <${username}\@${hostname}>"; + + $form->header(); + print $form->parse_html_template("admin/backup_dataset"); +} + +sub backup_dataset_start { + $form->{title} = + "Lx-Office ERP " + . $locale->text('Database Administration') . " / " + . $locale->text('Backup Dataset'); + + $pg_dump_exe ||= "pg_dump"; + + if ("$pg_dump_exe" eq "DISABLED") { + $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.')); + } + + $form->isblank("dbname", $locale->text('The dataset name is missing.')); + $form->isblank("to", $locale->text('The email address is missing.')) if $form->{destination} eq "email"; + + my $tmpdir = "/tmp/lx_office_backup_" . Common->unique_id(); + mkdir $tmpdir, 0700 || $form->error($locale->text('A temporary directory could not be created:') . " $!"); + + my $pgpass = IO::File->new("${tmpdir}/.pgpass", O_WRONLY | O_CREAT, 0600); + + if (!$pgpass) { + unlink $tmpdir; + $form->error($locale->text('A temporary file could not be created:') . " $!"); + } + + print $pgpass "$form->{dbhost}:$form->{dbport}:$form->{dbname}:$form->{dbuser}:$form->{dbpasswd}\n"; + $pgpass->close(); + + $ENV{HOME} = $tmpdir; + + my @args = ("-c", "-o", "-h", $form->{dbhost}, "-U", $form->{dbuser}); + push @args, ("-p", $form->{dbport}) if ($form->{dbport}); + push @args, $form->{dbname}; + + my $cmd = "${pg_dump_exe} " . join(" ", map { s/\\/\\\\/g; s/\"/\\\"/g; $_ } @args); + my $name = "dataset_backup_$form->{dbname}_" . strftime("%Y%m%d", localtime()) . ".sql.gz"; + + if ($form->{destination} ne "email") { + my $in = IO::File->new("$cmd |"); + + if (!$in) { + unlink "${tmpdir}/.pgpass"; + rmdir $tmpdir; + + $form->error($locale->text('The pg_dump process could not be started.')); + } + + print "content-type: application/octet-stream\n"; + print "content-disposition: attachment; filename=\"${name}\"\n\n"; + + while (my $line = <$in>) { + print $line; + } + + $in->close(); + + unlink "${tmpdir}/.pgpass"; + rmdir $tmpdir; + + } else { + my $tmp = $tmpdir . "/dump_" . Common::unique_id(); + + if (system("$cmd > $tmp") != 0) { + unlink "${tmpdir}/.pgpass", $tmp; + rmdir $tmpdir; + + $form->error($locale->text('The pg_dump process could not be started.')); + } + + my $mail = new Mailer; + + map { $mail->{$_} = $form->{$_} } qw(from to cc subject message); + + $mail->{charset} = $dbcharset ? $dbcharset : Common::DEFAULT_CHARSET; + $mail->{attachments} = [ { "filename" => $tmp, "name" => $name } ]; + $mail->send(); + + unlink "${tmpdir}/.pgpass", $tmp; + rmdir $tmpdir; + + $form->{title} = + "Lx-Office ERP " + . $locale->text('Database Administration') . " / " + . $locale->text('Backup Dataset'); + + $form->header(); + print $form->parse_html_template("admin/backup_dataset_email_done"); + } +} + +sub restore_dataset { + $form->{title} = + "Lx-Office ERP " + . $locale->text('Database Administration') . " / " + . $locale->text('Restore Dataset'); + + if ("$pg_dump_exe" eq "DISABLED") { + $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.')); + } +} + sub unlock_system { unlink "$userspath/nologin"; diff --git a/locale/de/admin b/locale/de/admin index 47c4af013..c428864f8 100644 --- a/locale/de/admin +++ b/locale/de/admin @@ -1,9 +1,12 @@ $self->{texts} = { + 'A temporary directory could not be created:' => 'Ein temporäres Verzeichnis konnte nicht erstellt werden:', + 'A temporary file could not be created:' => 'Eine temporäre Datei konnte nicht erstellt werden:', 'ADDED' => 'Hinzugefügt', 'Add User' => 'Benutzer erfassen', 'Address' => 'Adresse', 'Administration' => 'Administration', 'Attempt to call an undefined sub named \'%s\'' => 'Es wurde versucht, eine nicht definierte Unterfunktion namens \'%s\' aufzurufen.', + 'Backup Dataset' => 'Datenbank sichern', 'Bin List' => 'Lagerliste', 'CANCELED' => 'Storniert', 'Cannot create Lock!' => 'System kann nicht gesperrt werden!', @@ -17,6 +20,7 @@ $self->{texts} = { 'DUNNING STARTED' => 'Mahnprozess gestartet', 'Database Administration' => 'Datenbankadministration', 'Database User missing!' => 'Datenbankbenutzer fehlt!', + 'Database backups and restorations are disabled in lx-erp.conf.' => 'Datenbanksicherungen und -wiederherstellungen sind in der lx-erp.conf deaktiviert.', 'Dataset missing!' => 'Datenbank fehlt!', 'Dataset upgrade' => 'Datenbankaktualisierung', 'Delete Dataset' => 'Datenbank löschen', @@ -63,6 +67,7 @@ $self->{texts} = { 'Purchase Order' => 'Lieferantenauftrag', 'Quotation' => 'Angebot', 'RFQ' => 'Anfrage', + 'Restore Dataset' => 'Datenbank wiederherstellen', 'SAVED' => 'Gespeichert', 'SAVED FOR DUNNING' => 'Gespeichert', 'SCREENED' => 'Angezeigt', @@ -73,9 +78,12 @@ $self->{texts} = { 'Storno Invoice' => 'Stornorechnung', 'Storno Packing List' => 'Stornolieferschein', 'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.', + 'The dataset name is missing.' => 'Der Datenbankname fehlt.', 'The directory %s does not exist.' => 'Das Verzeichnis %s existiert nicht.', + 'The email address is missing.' => 'Die Emailadresse fehlt.', 'The login is missing.' => 'Das Login fehlt.', 'The passwords do not match.' => 'Die Passwörter stimmen nicht überein.', + 'The pg_dump process could not be started.' => 'Der pg_dump-Prozess konnte nicht gestartet werden.', 'Trying to call a sub without a name' => 'Es wurde versucht, eine Unterfunktion ohne Namen aufzurufen.', 'Unit' => 'Einheit', 'Unknown dependency \'%s\'.' => 'Unbekannte Abhängigkeit \'%s\'.', @@ -104,6 +112,8 @@ $self->{subs} = { 'Q' => 'Q', 'add_user' => 'add_user', 'adminlogin' => 'adminlogin', + 'backup_dataset' => 'backup_dataset', + 'backup_dataset_start' => 'backup_dataset_start', 'build_std_url' => 'build_std_url', 'calculate_qty' => 'calculate_qty', 'call_sub' => 'call_sub', @@ -132,6 +142,7 @@ $self->{subs} = { 'pg_database_administration' => 'pg_database_administration', 'project_selection_internal' => 'project_selection_internal', 'reformat_numbers' => 'reformat_numbers', + 'restore_dataset' => 'restore_dataset', 'restore_form' => 'restore_form', 'save' => 'save', 'save_form' => 'save_form', @@ -146,6 +157,7 @@ $self->{subs} = { 'update_dataset' => 'update_dataset', 'vendor_selection' => 'vendor_selection', 'benutzer_erfassen' => 'add_user', + 'datenbank_sichern' => 'backup_dataset', 'administratorpasswort_ändern' => 'change_admin_password', 'passwort_ändern' => 'change_password', 'weiter' => 'continue', @@ -155,6 +167,7 @@ $self->{subs} = { 'system_sperren' => 'lock_system', 'anmeldung' => 'login', 'datenbankadministration' => 'pg_database_administration', + 'datenbank_wiederherstellen' => 'restore_dataset', 'speichern' => 'save', 'system_entsperren' => 'unlock_system', 'datenbank_aktualisieren' => 'update_dataset', diff --git a/locale/de/all b/locale/de/all index fe8853332..5b29a808e 100644 --- a/locale/de/all +++ b/locale/de/all @@ -27,6 +27,8 @@ $self->{texts} = { '4. Quarter' => '4. Quartal', 'What do you want to look for?' => 'Wonach wollen Sie suchen?', 'A Buchungsgruppe consists of a descriptive name and the account numbers for the income and expense accounts for those four tax zones as well as the inventory account number.' => 'Eine Buchungsgruppe besteht aus einem deskriptiven Namen, den Erlös- und Aufwandskonten für diese vier Steuerzonen sowie aus einem Inventarkonto.', + 'A temporary directory could not be created:' => 'Ein temporäres Verzeichnis konnte nicht erstellt werden:', + 'A temporary file could not be created:' => 'Eine temporäre Datei konnte nicht erstellt werden:', 'A unit with this name does already exist.' => 'Eine Einheit mit diesem Namen existiert bereits.', 'ADDED' => 'Hinzugefügt', 'AP' => 'Einkauf', @@ -166,6 +168,8 @@ aktualisieren wollen?', 'BOM' => 'Stückliste', 'BWA' => 'BWA', 'Back' => 'Zurück', + 'Backup Dataset' => 'Datenbank sichern', + 'Backup of dataset' => 'Sicherung der Datenbank', 'Balance' => 'Bilanz', 'Balance Sheet' => 'Bilanz', 'Balanced Ledger' => 'Bilanz ausgeglichen', @@ -320,6 +324,7 @@ aktualisieren wollen?', 'Database Administration' => 'Datenbankadministration', 'Database Host' => 'Datenbankcomputer', 'Database User missing!' => 'Datenbankbenutzer fehlt!', + 'Database backups and restorations are disabled in lx-erp.conf.' => 'Datenbanksicherungen und -wiederherstellungen sind in der lx-erp.conf deaktiviert.', 'Database template' => 'Datenbankvorlage', 'Database update error:' => 'Fehler beim Datenbankupgrade:', 'Dataset' => 'Datenbank', @@ -368,6 +373,7 @@ aktualisieren wollen?', 'Display file' => 'Datei anzeigen', 'Do you want to limit your search?' => 'Wollen Sie Ihre Suche spezialisieren?', 'Done' => 'Fertig', + 'Download the backup' => 'Die Sicherungsdatei herunterladen', 'Draft saved.' => 'Entwurf gespeichert.', 'Drawing' => 'Zeichnung', 'Driver' => 'Treiber', @@ -699,6 +705,7 @@ gestartet', 'No Dataset selected!' => 'Keine Datenbank ausgewählt!', 'No Vendor was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Händler gefunden', 'No customer has been selected yet.' => 'Es wurde noch kein Kunde ausgewählt.', + 'No databases have been found on this server.' => 'Auf diesem Server wurden keine Datenbanken gefunden.', 'No datasets have been selected.' => 'Es wurden keine Datenbanken ausgewählt.', 'No employee was found matching the search parameters.' => 'Es wurde kein Angestellter gefunden, auf den die Suchparameter zutreffen.', 'No entries were found which had no unit assigned to them.' => 'Es wurden keine Einträge gefunden, denen keine Einheit zugeordnet war.', @@ -802,6 +809,7 @@ gestartet', 'Please select a customer from the list below.' => 'Bitte einen Endkunden aus der Liste auswählen', 'Please select a vendor from the list below.' => 'Bitte einen Händler aus der Liste auswählen', 'Please select the chart of accounts this installation is using from the list below.' => 'Bitte wählen Sie den Kontenrahmen aus, der bei dieser Installation verwendet wird.', + 'Please select the database you want to backup' => 'Bitte wählen Sie die zu sichernde Datenbank gefunden', 'Please seletct the dataset you want to delete:' => 'Bitte wählen Sie die zu löschende Datenbank aus:', 'Plural' => 'Plural', 'Port' => 'Port', @@ -899,6 +907,7 @@ gestartet', 'Request for Quotation' => 'Anfrage', 'Request for Quotations' => 'Anfragen', 'Required by' => 'Lieferdatum', + 'Restore Dataset' => 'Datenbank wiederherstellen', 'Revenue' => 'Erlöskonto', 'Revenue Account' => 'Erlöskonto', 'Revenues EU with UStId' => 'Erlöse EU m. UStId', @@ -945,6 +954,7 @@ gestartet', 'Select postscript or PDF!' => 'Postscript oder PDF auswählen!', 'Select the chart of accounts in use' => 'Benutzten Kontenrahmen auswählen', 'Sell Price' => 'Verkaufspreis', + 'Send the backup via Email' => 'Die Sicherungsdatei per Email verschicken', 'Sep' => 'Sep', 'September' => 'September', 'Serial No.' => 'Seriennummer', @@ -1039,8 +1049,11 @@ gestartet', 'The database upgrade for the introduction of Buchungsgruppen is now complete.' => 'Das Datenbankupgrade für die Einführung von Buchungsgruppen ist jetzt beendet.', 'The database upgrade for the introduction of units is now complete.' => 'Das Datenbankupgrade zwecks Einführung von Einheiten ist nun beendet.', 'The dataset has been successfully created.' => 'Die Datenbank wurde erfolgreich erstellt.', + 'The dataset backup has been sent via email to .' => 'Die Datenbanksicherung wurde an per Email verschickt.', + 'The dataset name is missing.' => 'Der Datenbankname fehlt.', 'The directory %s does not exist.' => 'Das Verzeichnis %s existiert nicht.', 'The dunning process started' => 'Der Mahnprozess ist gestartet.', + 'The email address is missing.' => 'Die Emailadresse fehlt.', 'The factor is missing in row %d.' => 'Der Faktor fehlt in Zeile %d.', 'The factor is missing.' => 'Der Faktor fehlt.', 'The following Buchungsgruppen have already been created:' => 'Die folgenden Buchungsgruppen wurden bereits angelegt:', @@ -1056,6 +1069,7 @@ gestartet', 'The name is missing in row %d.' => 'Der Name fehlt in Zeile %d.', 'The name is missing.' => 'Der Name fehlt.', 'The passwords do not match.' => 'Die Passwörter stimmen nicht überein.', + 'The pg_dump process could not be started.' => 'Der pg_dump-Prozess konnte nicht gestartet werden.', 'The preferred one is to install packages provided by your operating system distribution (e.g. Debian or RPM packages).' => 'Die bevorzugte Art, ein Perl-Modul zu installieren, ist durch Installation eines von Ihrem Betriebssystem zur Verfügung gestellten Paketes (z.B. Debian-Pakete oder RPM).', 'The second way is to use Perl\'s CPAN module and let it download and install the module for you.' => 'Die zweite Variante besteht darin, Perls CPAN-Modul zu benutzen und es das Modul für Sie installieren zu lassen.', 'The third way is to download the module from the above mentioned URL and to install the module manually following the installations instructions contained in the source archive.' => 'Die dritte Variante besteht darin, das Paket von der oben genannten URL herunterzuladen und es manuell zu installieren. Beachten Sie dabei die im Paket enthaltenen Installationsanweisungen.', diff --git a/lx-erp.conf b/lx-erp.conf index db364883d..190eea7e2 100644 --- a/lx-erp.conf +++ b/lx-erp.conf @@ -1,5 +1,5 @@ use Cwd; -use vars qw($userspath $spool $memberfile $templates $sendmail $language $sid $latex $eur $webdav $lizenzen $watch_form_variables); +use vars qw($userspath $spool $memberfile $templates $sendmail $language $sid $latex $eur $webdav $lizenzen $pg_dump_exe $watch_form_variables); # path to user configuration files $userspath = "users"; @@ -67,6 +67,13 @@ $xvfb_bin = "/usr/bin/Xvfb"; $dbcharset = "ISO-8859-15"; +# Datenbankbackups werden mit dem externen Programm "pg_dump" erledigt. +# Wenn es nicht im aktuellen Pfad vorhanden ist, so muss hier der vollständige +# Pfad eingetragen werden. Wenn die Variable auf "DISABLED" gesetzt wird, +# so werden die Menüpunkte zum Backup und Wiederherstellen von Datenbanken +# im Administrationsfrontend nicht angeboten. +$pg_dump_exe = "pg_dump"; + # Globale Debug-Ausgaben (de-)aktivieren? Moegliche Werte sind # LXDebug::NONE - keine Debugausgaben # LXDebug::INFO diff --git a/templates/webpages/admin/backup_dataset_de.html b/templates/webpages/admin/backup_dataset_de.html new file mode 100644 index 000000000..611f5f63d --- /dev/null +++ b/templates/webpages/admin/backup_dataset_de.html @@ -0,0 +1,94 @@ + + + + +

+ + + Auf diesem Server wurden keine Datenbanken gefunden. + + + +
+ + + + + + +

+ Bitte wählen Sie die zu sichernde Datenbank gefunden: + +

+ + + + + + + + + + + + +
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
Von
An
Cc
Betreff
Nachricht
+ +
+ + + + + +
+ +
+ + + +
+ + + + + diff --git a/templates/webpages/admin/backup_dataset_email_done_de.html b/templates/webpages/admin/backup_dataset_email_done_de.html new file mode 100644 index 000000000..a1ace078d --- /dev/null +++ b/templates/webpages/admin/backup_dataset_email_done_de.html @@ -0,0 +1,12 @@ + + +

+ +

Die Datenbanksicherung wurde an per Email verschickt.

+ +
+ + +
+ + diff --git a/templates/webpages/admin/backup_dataset_email_done_master.html b/templates/webpages/admin/backup_dataset_email_done_master.html new file mode 100644 index 000000000..de2bd9dfe --- /dev/null +++ b/templates/webpages/admin/backup_dataset_email_done_master.html @@ -0,0 +1,12 @@ + + +

+ +

The dataset backup has been sent via email to .

+ +
+ + +
+ + diff --git a/templates/webpages/admin/backup_dataset_master.html b/templates/webpages/admin/backup_dataset_master.html new file mode 100644 index 000000000..9b85a461e --- /dev/null +++ b/templates/webpages/admin/backup_dataset_master.html @@ -0,0 +1,94 @@ + + + + +

+ + + No databases have been found on this server. + + + +
+ + + + + + +

+ Please select the database you want to backup: + +

+ + + + + + + + + + + + +
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
From
To
Cc
Subject
Message
+ +
+ + + + + +
+ +
+ + + +
+ + + + + diff --git a/templates/webpages/admin/dbadmin_de.html b/templates/webpages/admin/dbadmin_de.html index 6d9ed0b42..a2bf40a11 100644 --- a/templates/webpages/admin/dbadmin_de.html +++ b/templates/webpages/admin/dbadmin_de.html @@ -55,6 +55,10 @@ + + + + diff --git a/templates/webpages/admin/dbadmin_master.html b/templates/webpages/admin/dbadmin_master.html index a95300668..2be64a579 100644 --- a/templates/webpages/admin/dbadmin_master.html +++ b/templates/webpages/admin/dbadmin_master.html @@ -55,6 +55,10 @@ + + + + -- 2.20.1