my $dir_conf='@sbindir@/dbcheck -B -c @sysconfdir@/bacula-dir.conf';
my $wd = "@working_dir@";
-sub dump_sqlite
-{
- my %args = @_;
-
- exec("echo .dump | sqlite '$wd/$args{db_name}.db' > '$wd/$args{db_name}.sql'");
- print "Error while executing sqlite dump $!\n";
- return 1;
-}
-
sub dump_sqlite3
{
my %args = @_;
if ($args{db_port}) {
$ENV{PGPORT}=$args{db_port};
}
-
+ if ($args{db_user}) {
+ $ENV{PGUSER}=$args{db_user};
+ }
+ if ($args{db_password}) {
+ $ENV{PGPASSWORD}=$args{db_password};
+ }
$ENV{PGDATABASE}=$args{db_name};
- $ENV{PGUSER}=$args{db_user};
- $ENV{PGPASSWORD}=$args{db_password};
exec("HOME='$wd' pg_dump -c > '$wd/$args{db_name}.sql'");
print "Error while executing postgres dump $!\n";
return 1; # in case of error