Revision 2d4601b1
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/admin.pl | ||
|---|---|---|
|
|
||
|
$ENV{HOME} = $tmpdir;
|
||
|
|
||
|
my @args = ("-c", "-o", "-h", $form->{dbhost}, "-U", $form->{dbuser});
|
||
|
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()) . ".sql.gz";
|
||
|
my $name = "dataset_backup_$form->{dbname}_" . strftime("%Y%m%d", localtime()) . ".tar";
|
||
|
|
||
|
if ($form->{destination} ne "email") {
|
||
|
my $in = IO::File->new("$cmd |");
|
||
| ... | ... | |
|
$form->error($locale->text('The pg_dump process could not be started.'));
|
||
|
}
|
||
|
|
||
|
print "content-type: application/octet-stream\n";
|
||
|
print "content-type: application/x-tar\n";
|
||
|
print "content-disposition: attachment; filename=\"${name}\"\n\n";
|
||
|
|
||
|
while (my $line = <$in>) {
|
||
Auch abrufbar als: Unified diff
Bei pg_dump das tar-Format benutzen, weil pg_restore nur damit zurechtkommt.