use SL::Common;
use SL::Inifile;
use SL::DBUpgrade2;
+use SL::DBUtils;
require "bin/mozilla/common.pl";
# create memberfile
if (!-f $memberfile) {
- open(FH, ">$memberfile") or $form->error("$memberfile : $!");
+ open(FH, ">$memberfile") or $form->error("$memberfile : $ERRNO");
print FH qq|# SQL-Ledger Accounting members
[root login]
$form->error($locale->text('File locked!')) if (-f "${memberfile}.LCK");
- open(FH, "$memberfile") or $form->error("$memberfile : $!");
+ open(FH, "$memberfile") or $form->error("$memberfile : $ERRNO");
my %members;
$form->error(sprintf($locale->text("The directory %s does not exist."), $templates));
}
- opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $!");
+ opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $ERRNO");
my @all = readdir(TEMPLATEDIR);
my @alldir = sort grep { -d "$templates/$_" && !/^\.\.?$/ } @all;
my @allhtml = sort grep { -f "$templates/$_" && /\.html$/ } @all;
my @acsorder = ();
my %acs = ();
my %excl = ();
- open(FH, $menufile) or $form->error("$menufile : $!");
+ open(FH, $menufile) or $form->error("$menufile : $ERRNO");
while ($item = <FH>) {
next unless $item =~ /\[/;
}
close(HTACCESS);
}
- open(HTACCESS, "> $file") or die "cannot open $file $!\n";
+ open(HTACCESS, "> $file") or die "cannot open $file $ERRNO\n";
$newfile .= $myconfig->{login} . ":" . $myconfig->{password} . "\n";
print(HTACCESS $newfile);
close(HTACCESS);
}
close(HTACCESS);
}
- open(HTACCESS, "> $file") or die "cannot open $file $!\n";
+ open(HTACCESS, "> $file") or die "cannot open $file $ERRNO\n";
print(HTACCESS $newfile);
close(HTACCESS);
}
umask(007);
# copy templates to the directory
- opendir TEMPLATEDIR, "$templates/." or $form - error("$templates : $!");
+ opendir TEMPLATEDIR, "$templates/." or $form - error("$templates : $ERRNO");
@templates = grep /$form->{mastertemplates}.*?\.(html|tex|sty|xml|txb)$/,
readdir TEMPLATEDIR;
closedir TEMPLATEDIR;
foreach $file (@templates) {
open(TEMP, "$templates/$file")
- or $form->error("$templates/$file : $!");
+ or $form->error("$templates/$file : $ERRNO");
$file =~ s/$form->{mastertemplates}-//;
open(NEW, ">$form->{templates}/$file")
- or $form->error("$form->{templates}/$file : $!");
+ or $form->error("$form->{templates}/$file : $ERRNO");
while ($line = <TEMP>) {
print NEW $line;
close(NEW);
}
} else {
- $form->error("$!: $form->{templates}");
+ $form->error("$ERRNO: $form->{templates}");
}
}
sub delete {
$form->error($locale->text('File locked!')) if (-f ${memberfile} . LCK);
- open(FH, ">${memberfile}.LCK") or $form->error("${memberfile}.LCK : $!");
+ open(FH, ">${memberfile}.LCK") or $form->error("${memberfile}.LCK : $ERRNO");
close(FH);
my $members = Inifile->new($memberfile);
$form->{CHARTS} = [];
- opendir SQLDIR, "sql/." or $form - error($!);
+ opendir SQLDIR, "sql/." or $form - error($ERRNO);
foreach $item (sort grep /-chart\.sql\z/, readdir SQLDIR) {
next if ($item eq 'Default-chart.sql');
$item =~ s/-chart\.sql//;
$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:') . " $!");
+ mkdir $tmpdir, 0700 || $form->error($locale->text('A temporary directory could not be created:') . " $ERRNO");
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:') . " $!");
+ $form->error($locale->text('A temporary file could not be created:') . " $ERRNO");
}
print $pgpass "$form->{dbhost}:$form->{dbport}:$form->{dbname}:$form->{dbuser}:$form->{dbpasswd}\n";
. $locale->text('Database Administration') . " / "
. $locale->text('Restore Dataset');
- if ("$pg_dump_exe" eq "DISABLED") {
+ if ("$pg_restore_exe" eq "DISABLED") {
$form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.'));
}
+
+ my $default_charset = $dbcharset;
+ $default_charset ||= Common::DEFAULT_CHARSET;
+
+ $form->{DBENCODINGS} = [];
+
+ foreach my $encoding (@Common::db_encodings) {
+ push @{ $form->{DBENCODINGS} }, { "dbencoding" => $encoding->{dbencoding},
+ "label" => $encoding->{label},
+ "selected" => $encoding->{charset} eq $default_charset };
+ }
+
+ $form->header();
+ print $form->parse_html_template("admin/restore_dataset");
+}
+
+sub restore_dataset_start {
+ $form->{title} =
+ "Lx-Office ERP "
+ . $locale->text('Database Administration') . " / "
+ . $locale->text('Restore Dataset');
+
+ $pg_restore_exe ||= "pg_restore";
+
+ if ("$pg_restore_exe" eq "DISABLED") {
+ $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.'));
+ }
+
+ $form->isblank("new_dbname", $locale->text('The dataset name is missing.'));
+ $form->isblank("content", $locale->text('No backup file has been uploaded.'));
+
+ # Create temporary directories. Write the backup file contents to a temporary
+ # file. Create a .pgpass file with the username and password for the pg_restore
+ # utility.
+
+ my $tmpdir = "/tmp/lx_office_backup_" . Common->unique_id();
+ mkdir $tmpdir, 0700 || $form->error($locale->text('A temporary directory could not be created:') . " $ERRNO");
+
+ 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:') . " $ERRNO");
+ }
+
+ print $pgpass "$form->{dbhost}:$form->{dbport}:$form->{new_dbname}:$form->{dbuser}:$form->{dbpasswd}\n";
+ $pgpass->close();
+
+ $ENV{HOME} = $tmpdir;
+
+ my $tmp = $tmpdir . "/dump_" . Common::unique_id();
+ my $tmpfile;
+
+ if (substr($form->{content}, 0, 2) eq "\037\213") {
+ $tmpfile = IO::File->new("| gzip -d > $tmp");
+ $tmpfile->binary();
+
+ } else {
+ $tmpfile = IO::File->new($tmp, O_WRONLY | O_CREAT | O_BINARY, 0600);
+ }
+
+ if (!$tmpfile) {
+ unlink "${tmpdir}/.pgpass";
+ rmdir $tmpdir;
+
+ $form->error($locale->text('A temporary file could not be created:') . " $ERRNO");
+ }
+
+ print $tmpfile $form->{content};
+ $tmpfile->close();
+
+ delete $form->{content};
+
+ # Try to connect to the database. Find out if a database with the same name exists.
+ # If yes, then drop the existing database. Create a new one with the name and encoding
+ # given by the user.
+
+ User::dbconnect_vars($form, "template1");
+
+ my %myconfig = map { $_ => $form->{$_} } grep /^db/, keys %{ $form };
+ my $dbh = $form->dbconnect(\%myconfig) || $form->dberror();
+
+ my ($query, $sth);
+
+ $form->{new_dbname} =~ s|[^a-zA-Z0-9_\-]||g;
+
+ $query = qq|SELECT COUNT(*) FROM pg_database WHERE datname = ?|;
+ my ($count) = selectrow_query($form, $dbh, $query, $form->{new_dbname});
+ if ($count) {
+ do_query($form, $dbh, qq|DROP DATABASE $form->{new_dbname}|);
+ }
+
+ my $found = 0;
+ foreach my $item (@Common::db_encodings) {
+ if ($item->{dbencoding} eq $form->{dbencoding}) {
+ $found = 1;
+ last;
+ }
+ }
+ $form->{dbencoding} = "LATIN9" unless $form->{dbencoding};
+
+ do_query($form, $dbh, qq|CREATE DATABASE $form->{new_dbname} ENCODING ? TEMPLATE template0|, $form->{dbencoding});
+
+ $dbh->disconnect();
+
+ # Spawn pg_restore on the temporary file.
+
+ my @args = ("-h", $form->{dbhost}, "-U", $form->{dbuser}, "-d", $form->{new_dbname});
+ push @args, ("-p", $form->{dbport}) if ($form->{dbport});
+ push @args, $tmp;
+
+ my $cmd = "${pg_restore_exe} " . join(" ", map { s/\\/\\\\/g; s/\"/\\\"/g; $_ } @args);
+
+ my $in = IO::File->new("$cmd 2>&1 |");
+
+ if (!$in) {
+ unlink "${tmpdir}/.pgpass", $tmp;
+ rmdir $tmpdir;
+
+ $form->error($locale->text('The pg_restore process could not be started.'));
+ }
+
+ $AUTOFLUSH = 1;
+
+ $form->header();
+ print $form->parse_html_template("admin/restore_dataset_start_header");
+
+ while (my $line = <$in>) {
+ print $line;
+ }
+ $in->close();
+
+ $form->{retval} = $CHILD_ERROR >> 8;
+ print $form->parse_html_template("admin/restore_dataset_start_footer");
+
+ unlink "${tmpdir}/.pgpass", $tmp;
+ rmdir $tmpdir;
}
sub unlock_system {
'No Database Drivers available!' => 'Kein Datenbanktreiber verfügbar!',
'No Dataset selected!' => 'Keine Datenbank ausgewählt!',
'No Vendor was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Händler gefunden',
+ 'No backup file has been uploaded.' => 'Es wurde keine Sicherungsdatei hochgeladen.',
'No customer has been selected yet.' => 'Es wurde noch kein Kunde ausgewählt.',
'No employee was found matching the search parameters.' => 'Es wurde kein Angestellter gefunden, auf den die Suchparameter zutreffen.',
'No part was found matching the search parameters.' => 'Es wurde kein Artikel gefunden, auf den die Suchparameter zutreffen.',
'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.',
+ 'The pg_restore process could not be started.' => 'Der pg_restore-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\'.',
'project_selection_internal' => 'project_selection_internal',
'reformat_numbers' => 'reformat_numbers',
'restore_dataset' => 'restore_dataset',
+ 'restore_dataset_start' => 'restore_dataset_start',
'restore_form' => 'restore_form',
'save' => 'save',
'save_form' => 'save_form',
'BWA' => 'BWA',
'Back' => 'Zurück',
'Backup Dataset' => 'Datenbank sichern',
+ 'Backup file' => 'Sicherungsdatei',
'Backup of dataset' => 'Sicherung der Datenbank',
'Balance' => 'Bilanz',
'Balance Sheet' => 'Bilanz',
'Database update error:' => 'Fehler beim Datenbankupgrade:',
'Dataset' => 'Datenbank',
'Dataset missing!' => 'Datenbank fehlt!',
+ 'Dataset name' => 'Datenbankname',
'Dataset upgrade' => 'Datenbankaktualisierung',
'Date' => 'Datum',
'Date Format' => 'Datumsformat',
'February' => 'Februar',
'Fee' => 'Gebühr',
'File locked!' => 'Datei gesperrt!',
+ 'Files created by Lx-Office\'s "Backup Dataset" function are such files.' => 'Dateien, die von Lx-Office\' Funktion "Datenbank sichern" erstellt wurden, erfüllen diese Kriterien.',
'Folgekonto' => 'Folgekonto',
'For each unit there\'s either no or exactly one base unit. If you chose a base unit then you also have to chose a factor. That way the new unit will be defined as a multiple of the base unit. The base unit must be the "smaller" one. A factor may not be less than 1. Therefore you may define "kg" with the base unit "g" and a factor of "1", but not the other way round.' => 'Einheiten haben entweder keine oder genau eine Basiseinheit, von der sie ein Vielfaches sind. Wenn Sie eine Basiseinheit auswählen, dann müssen Sie auch einen Faktor eingeben. Sie müssen Einheiten als ein Vielfaches einer kleineren Einheit eingeben. So ist die Definition von "kg" mit der Basiseinheit "g" und dem Faktor 1000 zulässig, die Definition von "g" mit der Basiseinheit "kg" und dem Faktor "0,001" hingegen nicht.',
'Foreign Exchange Gain' => 'Wechselkurserträge',
'Is this a summary account to record' => 'Buchungskonto in',
'It is possible to do this automatically for some Buchungsgruppen, but not for all.' => 'Es ist möglich, dies für einige, aber nicht für alle Buchungsgruppen automatisch zu erledigen.',
'It is possible to do this automatically for some units, but for others the user has to chose the new unit.' => 'Das ist für einige Einheiten automatisch möglich, aber bei anderen muss der Benutzer die neue Einheit auswählen.',
+ 'It may optionally be compressed with "gzip".' => 'Sie darf optional mit "gzip" komprimiert sein.',
'Item deleted!' => 'Artikel gelöscht!',
'Item not on file!' => 'Dieser Artikel ist nicht in der Datenbank!',
'Jan' => 'Jan',
'No Database Drivers available!' => 'Kein Datenbanktreiber verfügbar!',
'No Dataset selected!' => 'Keine Datenbank ausgewählt!',
'No Vendor was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Händler gefunden',
+ 'No backup file has been uploaded.' => 'Es wurde keine Sicherungsdatei hochgeladen.',
'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.',
'Pick List' => 'Sammelliste',
'Please enter a license key.' => 'Bitte geben Sie einen Lizenzschlüssel an.',
'Please enter a number of licenses.' => 'Bitte geben Sie die Anzahl Lizenzschlüssel an.',
+ 'Please enter the name of the dataset you want to restore the backup in.' => 'Bitte geben Sie den Namen der Datenbank ein, in der Sie die Sicherung wiederherstellen wollen.',
'Please enter values' => 'Bitte Werte eingeben',
'Please insert object dimensions below.' => 'Bitte geben Sie die Abmessungen unten ein',
'Please insert your language values below' => 'Bitte die Übersetzungen unten eintragen',
'Templates' => 'Vorlagen',
'Terms missing in row ' => '+Tage fehlen in Zeile ',
'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 backup you upload here has to be a file created with "pg_dump -o -Ft".' => 'Die von Ihnen hochzuladende Sicherungsdatei muss mit dem Programm und den Parametern "pg_dump -o -Ft" erstellt worden sein.',
'The base unit does not exist or it is about to be deleted in row %d.' => 'Die Basiseinheit in Zeile %d existiert nicht oder soll gelöscht werden.',
'The base unit does not exist.' => 'Die Basiseinheit existiert nicht.',
'The base unit relations must not contain loops (e.g. by saying that unit A\'s base unit is B, B\'s base unit is C and C\'s base unit is A) in row %d.' => 'Die Beziehungen der Einheiten dürfen keine Schleifen beinhalten (z.B. wenn gesagt wird, dass Einheit As Basiseinheit B, Bs Basiseinheit C und Cs Basiseinheit A ist) in Zeile %d.',
'The database upgrade for the introduction of units is now complete.' => 'Das Datenbankupgrade zwecks Einführung von Einheiten ist nun beendet.',
'The dataset <TMPL_VAR db ESCAPE=HTML> has been successfully created.' => 'Die Datenbank <TMPL_VAR db ESCAPE=HTML> wurde erfolgreich erstellt.',
'The dataset backup has been sent via email to <TMPL_VAR to ESCAPE=HTML>.' => 'Die Datenbanksicherung wurde an <TMPL_VAR to ESCAPE=HTML> per Email verschickt.',
+ 'The dataset has to exist before a restoration can be started.' => 'Die Datenbank muss vor der Wiederherstellung bereits angelegt worden sein.',
'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 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 pg_restore process could not be started.' => 'Der pg_restore-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 program\'s exit code was <TMPL_VAR retval ESCAPE=HTML> ("0" usually means that everything went OK).' => 'Der Exitcode des Programms war <TMPL_VAR retval ESCAPE=HTML> ("0" bedeutet normalerweise, dass die Wiederherstellung erfolgreich war).',
+ 'The restoration process has started. Here\'s the output of the "pg_restore" command:' => 'Der Wiederherstellungsprozess wurde gestartet. Hier ist die Ausgabe des "pg_restore"-Programmes:',
+ 'The restoration process is complete. Please review "pg_restore"\'s output to find out if the restoration was successful.' => 'Die Wiederherstellung ist abgeschlossen. Bitte sehen Sie sich die Ausgabe von "pg_restore" an, um festzustellen, ob die Wiederherstellung erfolgreich war.',
'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.',
'The unit has been saved.' => 'Die Einheit wurde gespeichert.',
'Yes' => 'Ja',
'You are logged out!' => 'Auf Wiedersehen!',
'You can also create new units now.' => 'Sie können jetzt auch neue Einheiten anlegen.',
+ 'You can create a missing dataset by going back and chosing "Create Dataset".' => 'Sie können eine fehlende Datenbank erstellen, indem Sie jetzt zuück gehen und den Punkt "Datenbank anlegen" wählen.',
'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 continue before all required modules are installed.' => 'Sie können nicht fortfahren, bevor alle benötigten Pakete installiert sind.',
use Cwd;
-use vars qw($userspath $spool $memberfile $templates $sendmail $language $sid $latex $eur $webdav $lizenzen $pg_dump_exe $watch_form_variables);
+use vars qw($userspath $spool $memberfile $templates $sendmail $language $sid $latex $eur $webdav $lizenzen $pg_dump_exe $pg_restore_exe $watch_form_variables);
# path to user configuration files
$userspath = "users";
# 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";
+# so wird der Menüpunkt zum Backup von Datenbanken im Administrationsfrontend
+# nicht angeboten.
+# Das gleiche gilt analog für das Wiederherstellen mittels "pg_restore".
+$pg_dump_exe = "pg_dump";
+$pg_restore_exe = "pg_restore";
# Globale Debug-Ausgaben (de-)aktivieren? Moegliche Werte sind
# LXDebug::NONE - keine Debugausgaben
<input type="submit" class="submit" name="action" value="Datenbank löschen">
<TMPL_IF ALLOW_DBBACKUP>
<input type="submit" class="submit" name="action" value="Datenbank sichern">
-<!-- <input type="submit" class="submit" name="action" value="Datenbank wiederherstellen"> -->
+ <input type="submit" class="submit" name="action" value="Datenbank wiederherstellen">
</TMPL_IF>
</td>
</tr>
<input type="submit" class="submit" name="action" value="<translate>Delete Dataset</translate>">
<TMPL_IF ALLOW_DBBACKUP>
<input type="submit" class="submit" name="action" value="<translate>Backup Dataset</translate>">
-<!-- <input type="submit" class="submit" name="action" value="<translate>Restore Dataset</translate>"> -->
+ <input type="submit" class="submit" name="action" value="<translate>Restore Dataset</translate>">
</TMPL_IF>
</td>
</tr>
--- /dev/null
+<body class="admin" onload="document.getElementsByName('dbname')[0].focus(); ">
+
+ <h2><TMPL_VAR title></h2>
+
+ <form name="Form" method="post" action="admin.pl" enctype="multipart/form-data">
+
+ <input type="hidden" name="dbdriver" value="Pg">
+ <input type="hidden" name="dbhost" value="<TMPL_VAR dbhost ESCAPE=HTML>">
+ <input type="hidden" name="dbport" value="<TMPL_VAR dbport ESCAPE=HTML>">
+ <input type="hidden" name="dbuser" value="<TMPL_VAR dbuser ESCAPE=HTML>">
+
+ <p>
+ Bitte geben Sie den Namen der Datenbank ein, in der Sie die Sicherung wiederherstellen wollen.
+ Die Datenbank muss vor der Wiederherstellung bereits angelegt worden sein.
+ Sie können eine fehlende Datenbank erstellen, indem Sie jetzt zuück gehen und den Punkt "Datenbank anlegen" wählen.
+ </p>
+
+ <p>
+ Die von Ihnen hochzuladende Sicherungsdatei muss mit dem Programm und den Parametern "pg_dump -o -Ft" erstellt worden sein.
+ Sie darf optional mit "gzip" komprimiert sein.
+ Dateien, die von Lx-Office' Funktion "Datenbank sichern" erstellt wurden, erfüllen diese Kriterien.
+ </p>
+
+ <table>
+ <tr>
+ <td valign="top">Datenbankname</td>
+ <td valign="top"><input name="new_dbname"></td>
+ </tr>
+
+ <tr>
+ <th valign="top">Schriftsatz</th>
+ <td>
+ <select name="dbencoding">
+ <TMPL_LOOP DBENCODINGS><option value="<TMPL_VAR dbencoding ESCAPE=HTML>" <TMPL_IF selected>selected</TMPL_IF>><TMPL_VAR label ESCAPE=HTML></option></TMPL_LOOP>
+ </select>
+ </td>
+ </tr>
+
+ <tr>
+ <td valign="top">Sicherungsdatei</td>
+ <td valign="top"><input type="file" accept="*" name="content"></td>
+ </tr>
+ </table>
+
+ <input type="hidden" name="rpw" value="<TMPL_VAR rpw ESCAPE=HTML>">
+ <input type="hidden" name="nextsub" value="restore_dataset_start">
+
+ <hr size="3" noshade>
+
+ <br>
+
+ <input type="submit" class="submit" name="action" value="Weiter">
+
+ </form>
+
+</body>
+</html>
--- /dev/null
+<body class="admin" onload="document.getElementsByName('dbname')[0].focus(); ">
+
+ <h2><TMPL_VAR title></h2>
+
+ <form name="Form" method="post" action="admin.pl" enctype="multipart/form-data">
+
+ <input type="hidden" name="dbdriver" value="Pg">
+ <input type="hidden" name="dbhost" value="<TMPL_VAR dbhost ESCAPE=HTML>">
+ <input type="hidden" name="dbport" value="<TMPL_VAR dbport ESCAPE=HTML>">
+ <input type="hidden" name="dbuser" value="<TMPL_VAR dbuser ESCAPE=HTML>">
+
+ <p>
+ <translate>Please enter the name of the dataset you want to restore the backup in.</translate>
+ <translate>The dataset has to exist before a restoration can be started.</translate>
+ <translate>You can create a missing dataset by going back and chosing "Create Dataset".</translate>
+ </p>
+
+ <p>
+ <translate>The backup you upload here has to be a file created with "pg_dump -o -Ft".</translate>
+ <translate>It may optionally be compressed with "gzip".</translate>
+ <translate>Files created by Lx-Office's "Backup Dataset" function are such files.</translate>
+ </p>
+
+ <table>
+ <tr>
+ <td valign="top"><translate>Dataset name</translate></td>
+ <td valign="top"><input name="new_dbname"></td>
+ </tr>
+
+ <tr>
+ <th valign="top"><translate>Multibyte Encoding</translate></th>
+ <td>
+ <select name="dbencoding">
+ <TMPL_LOOP DBENCODINGS><option value="<TMPL_VAR dbencoding ESCAPE=HTML>" <TMPL_IF selected>selected</TMPL_IF>><TMPL_VAR label ESCAPE=HTML></option></TMPL_LOOP>
+ </select>
+ </td>
+ </tr>
+
+ <tr>
+ <td valign="top"><translate>Backup file</translate></td>
+ <td valign="top"><input type="file" accept="*" name="content"></td>
+ </tr>
+ </table>
+
+ <input type="hidden" name="rpw" value="<TMPL_VAR rpw ESCAPE=HTML>">
+ <input type="hidden" name="nextsub" value="restore_dataset_start">
+
+ <hr size="3" noshade>
+
+ <br>
+
+ <input type="submit" class="submit" name="action" value="<translate>Continue</translate>">
+
+ </form>
+
+</body>
+</html>
--- /dev/null
+ </pre>
+
+ <hr>
+
+ <p>
+ Die Wiederherstellung ist abgeschlossen. Bitte sehen Sie sich die Ausgabe von "pg_restore" an, um festzustellen, ob die Wiederherstellung erfolgreich war.
+ Der Exitcode des Programms war <TMPL_VAR retval ESCAPE=HTML> ("0" bedeutet normalerweise, dass die Wiederherstellung erfolgreich war).
+ </p>
+
+ <form method="post" action="admin.pl">
+ <input type="hidden" name="nextsub" value="list_users">
+ <input type="submit" name="action" value="Weiter">
+ </form>
+</body>
+</html>
--- /dev/null
+ </pre>
+
+ <hr>
+
+ <p>
+ <translate>The restoration process is complete. Please review "pg_restore"'s output to find out if the restoration was successful.</translate>
+ <translate>The program's exit code was <TMPL_VAR retval ESCAPE=HTML> ("0" usually means that everything went OK).</translate>
+ </p>
+
+ <form method="post" action="admin.pl">
+ <input type="hidden" name="nextsub" value="list_users">
+ <input type="submit" name="action" value="<translate>Continue</translate>">
+ </form>
+</body>
+</html>
--- /dev/null
+<body class="admin">
+
+ <h2><TMPL_VAR title></h2>
+
+ <p>Der Wiederherstellungsprozess wurde gestartet. Hier ist die Ausgabe des "pg_restore"-Programmes:</p>
+
+ <hr>
+
+ <pre>
--- /dev/null
+<body class="admin">
+
+ <h2><TMPL_VAR title></h2>
+
+ <p><translate>The restoration process has started. Here's the output of the "pg_restore" command:</translate></p>
+
+ <hr>
+
+ <pre>