projekt kivitendo

  # Intentionnaly disabled unless fixed to work with the authentication DB.

  $form->{ALLOW_DBBACKUP} = 0; # "$pg_dump_exe" ne "DISABLED";

sub backup_dataset {

  my $form       = $main::form;

  my $locale     = $main::locale;

  $form->{title} = "kivitendo " . $locale->text('Database Administration') . " / " . $locale->text('Backup Dataset');

  if ($::lx_office_conf{applications}->{pg_dump} eq "DISABLED") {

    $form->error($locale->text('Database backups and restorations are disabled in the configuration.'));

  }

  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} = "kivitendo Admin <${username}\@${hostname}>";

  $form->header();

  print $form->parse_html_template("admin/backup_dataset");

}

sub backup_dataset_start {

  my $form       = $main::form;

  my $locale     = $main::locale;

  $form->{title} = "kivitendo " . $locale->text('Database Administration') . " / " . $locale->text('Backup Dataset');

  my $pg_dump_exe = $::lx_office_conf{applications}->{pg_dump} || "pg_dump";

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

    $form->error($locale->text('Database backups and restorations are disabled in the configuration.'));

  }

  $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:') . " $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->{dbname}:$form->{dbuser}:$form->{dbpasswd}\n";

  $pgpass->close();

  $ENV{HOME} = $tmpdir;

  my @args = ("-Ft", "-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()) . ".tar";

  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/x-tar\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}     = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;

    $mail->{attachments} = [ { "filename" => $tmp, "name" => $name } ];

    $mail->send();

    unlink "${tmpdir}/.pgpass", $tmp;

    rmdir $tmpdir;

    $form->{title} = "kivitendo " . $locale->text('Database Administration') . " / " . $locale->text('Backup Dataset');

    $form->header();

    print $form->parse_html_template("admin/backup_dataset_email_done");

  }

}

sub restore_dataset {

  my $form       = $main::form;

  my $locale     = $main::locale;

  $form->{title} = "kivitendo " . $locale->text('Database Administration') . " / " . $locale->text('Restore Dataset');

  if ($::lx_office_conf{applications}->{pg_restore} eq "DISABLED") {

    $form->error($locale->text('Database backups and restorations are disabled in the configuration.'));

  }

  my $default_charset   = $::lx_office_conf{system}->{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 {

  my $form       = $main::form;

  my $locale     = $main::locale;

  $form->{title} = "kivitendo " . $locale->text('Database Administration') . " / " . $locale->text('Restore Dataset');

  my $pg_restore_exe = $::lx_office_conf{applications}->{pg_restore} || "pg_restore";

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

    $form->error($locale->text('Database backups and restorations are disabled in the configuration.'));

  }

  $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.'));

  }

  $English::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;

}

# Location of the two executables "pg_dump" and "pg_restore" used for

# database backup and restoration from the admin section.  If

# "pg_dump" or "pg_restore" is set to "DISABLED" then the

# corresponding option (backup/restoration) will be hidden from the

# admin section.

pg_dump = pg_dump

pg_restore = pg_restore

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

  'Backup file'                 => 'Sicherungsdatei',

  'Backup of dataset'           => 'Sicherung der Datenbank',

  'Database backups and restorations are disabled in the configuration.' => 'Datenbanksicherungen und -wiederherstellungen sind in der Konfiguration deaktiviert.',

  'Dataset name'                => 'Datenbankname',

  'Download the backup'         => 'Die Sicherungsdatei herunterladen',

  'Files created by kivitendo\'s "Backup Dataset" function are such files.' => 'Dateien, die von kivitendo\'s 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.',

  'No databases have been found on this server.' => 'Auf diesem Server wurden keine Datenbanken gefunden.',

  '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 select the database you want to backup' => 'Bitte wählen Sie die zu sichernde Datenbank gefunden',

  'Send the backup via Email'   => 'Die Sicherungsdatei per Email verschicken',

  '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 backup has been sent via email to #1.' => 'Die Datenbanksicherung wurde per Email an #1 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 email address is missing.' => 'Die Emailadresse fehlt.',

  '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 program\'s exit code was #1 ("0" usually means that everything went OK).' => 'Der Exitcode des Programms war #1 ("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.',

  '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 "Neue Datenbank anlegen" wählen.',

[%- USE T8 %]

[%- USE HTML %]

 <script type="text/javascript">

  <!--

      $(function(){

        document.getElementsByName('to')[0].focus();

        set_subject();

      });

      function set_subject () {

        var subject_template = "[% 'Backup of dataset' | $T8 %]";

        var subject = document.Form.subject.value;

        if ((subject == "") || (subject.substr(0, subject_template.length) == subject_template)) {

          document.Form.subject.value = subject_template + " " + document.Form.dbname.value;

        }

      }

    -->

 </script>

 <h1>[% title %]</h1>

 [% IF NO_DATABSES %]

  [% 'No databases have been found on this server.' | $T8 %]

  [% ELSE %]

  <form name="Form" method="post" action="admin.pl">

   <input type="hidden" name="dbhost" value="[% HTML.escape(dbhost) %]">

   <input type="hidden" name="dbport" value="[% HTML.escape(dbport) %]">

   <input type="hidden" name="dbuser" value="[% HTML.escape(dbuser) %]">

   <input type="hidden" name="dbpasswd" value="[% HTML.escape(dbpasswd) %]">

   <p>

    [% 'Please select the database you want to backup' | $T8 %]:

    <select name="dbname" onchange="set_subject()">[% FOREACH row = DATABASES %]<option>[% HTML.escape(row.dbname) %]</option>[% END %]</select>

   </p>

   <table>

    <tr>

     <td valign="top"><input type="radio" name="destination" id="destination_download" value="download" checked></td>

     <td valign="top"><label for="destination_download">[% 'Download the backup' | $T8 %]</label></td>

    </tr>

    <tr>

     <td valign="top"><input type="radio" name="destination" id="destination_email" value="email"></td>

     <td valign="top">

      <label for="destination_email">[% 'Send the backup via Email' | $T8 %]</label><br>

      <table>

       <tr>

        <td valign="top" align="right">[% 'From' | $T8 %]</td>

        <td valign="top"><input name="from" size="40" value="[% HTML.escape(from) %]"></td>

       </tr>

       <tr>

        <td valign="top" align="right">[% 'To' | $T8 %]</td>

        <td valign="top"><input name="to" size="40"></td>

       </tr>

       <tr>

        <td valign="top" align="right">[% 'Cc' | $T8 %]</td>

        <td valign="top"><input name="cc" size="40"></td>

       </tr>

       <tr>

        <td valign="top" align="right">[% 'Subject' | $T8 %]</td>

        <td valign="top"><input name="subject" size="40"></td>

       </tr>

       <tr>

        <td valign="top" align="right">[% 'Message' | $T8 %]</td>

        <td valign="top"><textarea name="message" cols="40" rows="10"></textarea></td>

       </tr>

      </table>

     </td>

    </tr>

   </table>

   <input name="callback" type="hidden" value="controller.pl?action=Admin/show">

   <input type="hidden" name="nextsub" value="backup_dataset_start">

   <hr size="3" noshade>

   <br>

   <input type="submit" class="submit" name="action" value="[% 'Continue' | $T8 %]">

   <a href="controller.pl?action=Admin/show">[% 'Back' | $T8 %]</a>

  </form>

 [% END %]

[%- USE T8 %]

[%- USE LxERP %]

[%- USE HTML %][%- USE L -%]

 <h1>[% title %]</h1>

 <p>[% LxERP.t8('The dataset backup has been sent via email to #1.', to) | html %]</p>

 <p>[% L.link("controller.pl?action=Admin/show", LxERP.t8("Continue")) %]

[%- USE T8 %]

[%- USE HTML %]

  <script type='text/javascript'>

    $(function(){ document.getElementsByName('dbname')[0].focus();});

  </script>

 <h1>[% title %]</h1>

 <form name="Form" method="post" action="admin.pl" enctype="multipart/form-data">

  <input type="hidden" name="dbhost" value="[% HTML.escape(dbhost) %]">

  <input type="hidden" name="dbport" value="[% HTML.escape(dbport) %]">

  <input type="hidden" name="dbuser" value="[% HTML.escape(dbuser) %]">

  <input type="hidden" name="dbpasswd" value="[% HTML.escape(dbpasswd) %]">

  <p>

   [% 'Please enter the name of the dataset you want to restore the backup in.' | $T8 %]

   [% 'The dataset has to exist before a restoration can be started.' | $T8 %]

   [% 'You can create a missing dataset by going back and chosing "Create Dataset".' | $T8 %]

  </p>

  <p>

   [%- 'The backup you upload here has to be a file created with "pg_dump -o -Ft".' | $T8 %]

   [%- 'It may optionally be compressed with "gzip".' | $T8 %]

   [%- 'Files created by kivitendo\'s "Backup Dataset" function are such files.' | $T8 %]

  </p>

  <table>

   <tr>

    <td valign="top">[% 'Dataset name' | $T8 %]</td>

    <td valign="top"><input name="new_dbname"></td>

   </tr>

   <tr>

    <th valign="top">[% 'Multibyte Encoding' | $T8 %]</th>

    <td>

     <select name="dbencoding">

      [% FOREACH row = DBENCODINGS %]<option value="[% HTML.escape(row.dbencoding) %]" [% IF row.selected %]selected[% END %]>[% HTML.escape(row.label) %]</option>[% END %]

     </select>

    </td>

   </tr>

   <tr>

    <td valign="top">[% 'Backup file' | $T8 %]</td>

    <td valign="top"><input type="file" accept="*" name="content"></td>

   </tr>

  </table>

  <input type="hidden" name="nextsub" value="restore_dataset_start">

  <hr size="3" noshade>

  <br>

  <input type="submit" class="submit" name="action" value="[% 'Continue' | $T8 %]">

 </form>

[%- USE T8 %]

[%- USE LxERP %]

[% USE HTML %][%- USE L -%] </pre>

 <hr>

 <p>

  [%- 'The restoration process is complete. Please review "pg_restore"\'s output to find out if the restoration was successful.' | $T8 %]

  [%- LxERP.t8('The program\'s exit code was #1 ("0" usually means that everything went OK).', retval) | html %]

 </p>

 <p>

  [% L.link("controller.pl?action=Admin/show", LxERP.t8("Continue")) %]

 </p>

[%- USE T8 %]

 <h1>[% title %]</h1>

 <p>[%- 'The restoration process has started. Here\'s the output of the &quot;pg_restore&quot; command:' | $T8 %]</p>

 <hr>

 <pre>