:debug version

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@25719 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2022-02-20 20:54:53 +00:00
parent bc8a3225b0
commit a7bd15f132

View File

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