projekt kivitendo

use SL::DBUtils;

    open(FH, ">$memberfile") or $form->error("$memberfile : $ERRNO");

  open(FH, "$memberfile") or $form->error("$memberfile : $ERRNO");

  opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $ERRNO");

  open(FH, $menufile) or $form->error("$menufile : $ERRNO");

        open(HTACCESS, "> $file") or die "cannot open $file $ERRNO\n";

        open(HTACCESS, "> $file") or die "cannot open $file $ERRNO\n";

      opendir TEMPLATEDIR, "$templates/." or $form - error("$templates : $ERRNO");

          or $form->error("$templates/$file : $ERRNO");

          or $form->error("$form->{templates}/$file : $ERRNO");

      $form->error("$ERRNO: $form->{templates}");

  open(FH, ">${memberfile}.LCK") or $form->error("${memberfile}.LCK : $ERRNO");

  opendir SQLDIR, "sql/." or $form - error($ERRNO);

  mkdir $tmpdir, 0700 || $form->error($locale->text('A temporary directory could not be created:') . " $ERRNO");

    $form->error($locale->text('A temporary file could not be created:') . " $ERRNO");

  if ("$pg_restore_exe" eq "DISABLED") {

  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;

  'No backup file has been uploaded.' => 'Es wurde keine Sicherungsdatei hochgeladen.',

  'The pg_restore process could not be started.' => 'Der pg_restore-Prozess konnte nicht gestartet werden.',

  'restore_dataset_start'       => 'restore_dataset_start',

  'Backup file'                 => 'Sicherungsdatei',

  'Dataset name'                => 'Datenbankname',

  '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.',

  'It may optionally be compressed with "gzip".' => 'Sie darf optional mit "gzip" komprimiert sein.',

  'No backup file has been uploaded.' => 'Es wurde keine Sicherungsdatei hochgeladen.',

  '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.',

  '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 dataset has to exist before a restoration can be started.' => 'Die Datenbank muss vor der Wiederherstellung bereits angelegt worden sein.',

  'The pg_restore process could not be started.' => 'Der pg_restore-Prozess konnte nicht gestartet werden.',

  'The program\'s exit code was <TMPL_VAR retval ESCAPE=HTML> (&quot;0&quot; usually means that everything went OK).' => 'Der Exitcode des Programms war <TMPL_VAR retval ESCAPE=HTML> (&quot;0&quot; 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.',

  '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.',

use vars qw($userspath $spool $memberfile $templates $sendmail $language $sid $latex $eur $webdav $lizenzen $pg_dump_exe $pg_restore_exe $watch_form_variables);

# 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";

       <input type="submit" class="submit" name="action" value="Datenbank wiederherstellen">

       <input type="submit" class="submit" name="action" value="<translate>Restore Dataset</translate>">

<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>

<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 &quot;Create Dataset&quot;.</translate>

  </p>

  <p>

   <translate>The backup you upload here has to be a file created with &quot;pg_dump -o -Ft&quot;.</translate>

   <translate>It may optionally be compressed with &quot;gzip&quot;.</translate>

   <translate>Files created by Lx-Office's &quot;Backup Dataset&quot; 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>

 </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> (&quot;0&quot; 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>

 </pre>

 <hr>

 <p>

  <translate>The restoration process is complete. Please review &quot;pg_restore&quot;'s output to find out if the restoration was successful.</translate>

  <translate>The program's exit code was <TMPL_VAR retval ESCAPE=HTML> (&quot;0&quot; 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>

<body class="admin">

 <h2><TMPL_VAR title></h2>

 <p>Der Wiederherstellungsprozess wurde gestartet. Hier ist die Ausgabe des &quot;pg_restore&quot;-Programmes:</p>

 <hr>

 <pre>

<body class="admin">

 <h2><TMPL_VAR title></h2>

 <p><translate>The restoration process has started. Here's the output of the &quot;pg_restore&quot; command:</translate></p>

 <hr>

 <pre>