projekt kivitendo

use POSIX qw(strftime);

use IO::File;

use Fcntl;

use English qw(-no_match_vars);

use Sys::Hostname;

use SL::Mailer;

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

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

  }

}

  '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 Dataset'              => 'Datenbank sichern',

  'Database backups and restorations are disabled in lx-erp.conf.' => 'Datenbanksicherungen und -wiederherstellungen sind in der lx-erp.conf deaktiviert.',

  'Restore Dataset'             => 'Datenbank wiederherstellen',

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

  'backup_dataset'              => 'backup_dataset',

  'backup_dataset_start'        => 'backup_dataset_start',

  'restore_dataset'             => 'restore_dataset',

  'datenbank_sichern'           => 'backup_dataset',

  'datenbank_wiederherstellen'  => 'restore_dataset',

  '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 Dataset'              => 'Datenbank sichern',

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

  'Database backups and restorations are disabled in lx-erp.conf.' => 'Datenbanksicherungen und -wiederherstellungen sind in der lx-erp.conf deaktiviert.',

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

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

  'Please select the database you want to backup' => 'Bitte wählen Sie die zu sichernde Datenbank gefunden',

  'Restore Dataset'             => 'Datenbank wiederherstellen',

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

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

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

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

<body class="admin" onload="set_subject(); document.getElementsByName('to')[0].focus(); ">

 <script type="text/javascript">

  <!--

      function set_subject() {

        var subject_template = "Sicherung der Datenbank";

        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>

 <h2><TMPL_VAR title></h2>

 <TMPL_IF NO_DATABSES>

  Auf diesem Server wurden keine Datenbanken gefunden.

  <TMPL_ELSE>

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

   <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 wählen Sie die zu sichernde Datenbank gefunden:

    <select name="dbname" onchange="set_subject()"><TMPL_LOOP DATABASES><option><TMPL_VAR dbname ESCAPE=HTML></option></TMPL_LOOP></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">Die Sicherungsdatei herunterladen</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">Die Sicherungsdatei per Email verschicken</label><br>

      <table>

       <tr>

        <td valign="top" align="right">Von</td>

        <td valign="top"><input name="from" size="40" value="<TMPL_VAR from ESCAPE=HTML>"></td>

       </tr>

       <tr>

        <td valign="top" align="right">An</td>

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

       </tr>

       <tr>

        <td valign="top" align="right">Cc</td>

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

       </tr>

       <tr>

        <td valign="top" align="right">Betreff</td>

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

       </tr>

       <tr>

        <td valign="top" align="right">Nachricht</td>

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

       </tr>

      </table>

     </td>

    </tr>

   </table>

   <input name="callback" type="hidden" value="admin.pl?action=list_users&rpw=<TMPL_VAR rpw ESCAPE=URL>">

   <input type="hidden" name="rpw" value="<TMPL_VAR rpw ESCAPE=HTML>">

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

   <hr size="3" noshade>

   <br>

   <input type="submit" class="submit" name="action" value="Weiter">

  </form>

 </TMPL_IF>

</body>

</html>

<body class="admin">

 <h2><TMPL_VAR title></h2>

 <p>Die Datenbanksicherung wurde an <TMPL_VAR to ESCAPE=HTML> per Email verschickt.</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>

<body class="admin">

 <h2><TMPL_VAR title></h2>

 <p><translate>The dataset backup has been sent via email to <TMPL_VAR to ESCAPE=HTML>.</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" onload="set_subject(); document.getElementsByName('to')[0].focus(); ">

 <script type="text/javascript">

  <!--

      function set_subject() {

        var subject_template = "<translate>Backup of dataset</translate>";

        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>

 <h2><TMPL_VAR title></h2>

 <TMPL_IF NO_DATABSES>

  <translate>No databases have been found on this server.</translate>

  <TMPL_ELSE>

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

   <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 select the database you want to backup</translate>:

    <select name="dbname" onchange="set_subject()"><TMPL_LOOP DATABASES><option><TMPL_VAR dbname ESCAPE=HTML></option></TMPL_LOOP></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"><translate>Download the backup</translate></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"><translate>Send the backup via Email</translate></label><br>

      <table>

       <tr>

        <td valign="top" align="right"><translate>From</translate></td>

        <td valign="top"><input name="from" size="40" value="<TMPL_VAR from ESCAPE=HTML>"></td>

       </tr>

       <tr>

        <td valign="top" align="right"><translate>To</translate></td>

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

       </tr>

       <tr>

        <td valign="top" align="right"><translate>Cc</translate></td>

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

       </tr>

       <tr>

        <td valign="top" align="right"><translate>Subject</translate></td>

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

       </tr>

       <tr>

        <td valign="top" align="right"><translate>Message</translate></td>

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

       </tr>

      </table>

     </td>

    </tr>

   </table>

   <input name="callback" type="hidden" value="admin.pl?action=list_users&rpw=<TMPL_VAR rpw ESCAPE=URL>">

   <input type="hidden" name="rpw" value="<TMPL_VAR rpw ESCAPE=HTML>">

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

   <hr size="3" noshade>

   <br>

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

  </form>

 </TMPL_IF>

</body>

</html>

      <TMPL_IF ALLOW_DBBACKUP>

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

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

      </TMPL_IF>

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

      </TMPL_IF>