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

:debug version

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25719 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2022-02-20 20:54:53 +00:00
parent 18bdba32b0
commit f00eb65522
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -574,14 +574,15 @@ sub cfgDB_SaveState {
}
$val = $rd->{VAL};
$val =~ s/;/;;/g;
$val =~ s/\n/\\\n/g;
# $val =~ s/\n/\\\n/g;
$val =~ s/\n/\$xyz\$/g;
$out = "setstate $d $rd->{TIME} $c $val";
if (length($out) > 65530) {
my $uid = createUniqueId();
FileWrite($uid,$val);
$out = "setstate $d $rd->{TIME} $c cfgDBkey:$uid";
Log 4, "configDB: r:$c d:$d key:$uid";
}
# if (length($out) > 65530) {
# my $uid = createUniqueId();
# FileWrite($uid,$val);
# $out = "setstate $d $rd->{TIME} $c cfgDBkey:$uid";
# Log 4, "configDB: r:$c d:$d key:$uid";
# }
push @rowList, $out;
}
}
@ -818,7 +819,7 @@ sub _cfgDB_ReadState {
my ($err,@state) = cfgDB_FileRead($stateFileName);
if ($err eq "") {
Log 1, "configDB read state ".$stateFileName;
push @dbconfig,@state;
map { my $a = $_; $a =~ s/\$xyz\$/\\n/g; push @dbconfig, $a } @state;
} else {
Log 1, "configDB read state from table fhemstate";
my $fhem_dbh = _cfgDB_Connect;