datasrc =~ /dbname=([\w\.]+)$/ or die "unparsable datasrc ". datasrc;
my $database = $1;
eval "use Net::SCP qw(scp);";
die $@ if $@;
if ( driver_name eq 'Pg' ) {
datasrc =~ /dbname=([\w\.]+)$/ or die "unparsable datasrc ". datasrc;
my $database = $1;
eval "use Net::SCP qw(scp);";
die $@ if $@;
if ( driver_name eq 'Pg' ) {
output => "/var/tmp/$database.gpg",
recipient => $conf->config('dump-pgpid'),
);
chmod 0600, '/var/tmp/$database.gpg';
output => "/var/tmp/$database.gpg",
recipient => $conf->config('dump-pgpid'),
);
chmod 0600, '/var/tmp/$database.gpg';
- chmod 0600, '/var/tmp/$database.sql';
- scp("/var/tmp/$database.sql", $dest);
+ chmod 0600, '/var/tmp/$database.Pg';
+ scp("/var/tmp/$database.Pg", "$dest.Pg");