FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

:debug version

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25735 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2022-02-23 18:34:48 +00:00
parent 2195e108d3
commit 2390d0d018
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fhem/contrib/betateilchen/debug/configDB.pm
View File

@ -479,7 +479,7 @@ sub cfgDB_ReadAll { ## prototype used in fhem.pl
# save running configuration to version 0
sub cfgDB_SaveCfg { ## prototype used in fhem.pl
Log 1, "configDB save config ".$data{saveID};
Log 1, "configDB save config ".$data{saveID} if(defined($data{saveID}));
my ($internal) = shift;
$internal = defined($internal) ? $internal : 0;
my $c = "configdb";
@ -1297,9 +1297,10 @@ sub _cfgDB_deleteStatefiles {
my $sth = $fhem_dbh->prepare( "SELECT filename FROM fhemb64filesave where filename like '%.fhem.save'" );
$sth->execute();
while ($filename = $sth->fetchrow_array()) {
my $uuid = substr($filename,0,32);
my $found = "";
$found = $fhem_dbh->selectrow_array("SELECT versionuuid FROM fhemversions WHERE versionuuid = '$uuid'");
my $uuid = "";
$uuid = substr($filename,0,32);
my $found = $fhem_dbh->selectrow_array("SELECT versionuuid FROM fhemversions WHERE versionuuid = '$uuid'");
$found //= -1; # to prevent perl warning
unless ($uuid eq $found) {
$fhem_dbh->do("delete from fhemb64filesave where filename = '$filename'");
}