diff --git a/fhem/FHEM/98_configdb.pm b/fhem/FHEM/98_configdb.pm index d33175048..a3a735c85 100644 --- a/fhem/FHEM/98_configdb.pm +++ b/fhem/FHEM/98_configdb.pm @@ -59,17 +59,18 @@ sub CommandConfigdb($$) { } when ('dump') { - my $dbtype = _cfgDB_typeInfo(); - + my ($dbtype,$dbconn) = _cfgDB_typeInfo(); if ($dbtype eq 'SQLITE') { my $ts = strftime('%Y-%m-%d_%H-%M-%S',localtime); my $mp = AttrVal('global','modpath','.'); + my (undef,$source) = split (/=/, $dbconn); my $target = "$mp/log/configDB_$ts.dump.gz"; + Log3('configdb', 4, "configdb: source for database dump: $source"); Log3('configdb', 4, "configdb: target for database dump: $target"); - my $ret = qx(echo '.dump' | sqlite3 /opt/fhem/configDB.db | gzip -c > $target); + my $ret = qx(echo '.dump' | sqlite3 $source | gzip -c > $target); return $ret if $ret; # return error message if available my $size = -s $target; - $ret = "configDB dumped $size bytes to file\n$target"; + $ret = "configDB dumped $size bytes\nfrom: $source\n to: $target"; # You can use 'zcat $target | sqlite3 configDB.db' in a terminal to restore database. return $ret; } else { diff --git a/fhem/configDB.pm b/fhem/configDB.pm index b5a69e3cd..ef8da24a1 100644 --- a/fhem/configDB.pm +++ b/fhem/configDB.pm @@ -821,7 +821,9 @@ sub _cfgDB_Info() { } # return database type -sub _cfgDB_typeInfo() { return $cfgDB_dbtype; } +sub _cfgDB_typeInfo() { + return ($cfgDB_dbtype,$cfgDB_dbconn); +} # recover former config from database archive sub _cfgDB_Recover($) {