FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 06:39:11 +00:00
Code Issues Releases Wiki Activity

00_TCM: remove trailing 0x00 in reading version

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8439 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
klaus-schauer 2015-04-15 11:02:57 +00:00
parent 5ac97a5c34
commit 86f3b188c2
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/00_TCM.pm
View File

@ -148,7 +148,7 @@ TCM_Write($$$)
} else {
# TCM 310 (ESP3)
$bstring = "55" . $fn . TCM_CRC8($fn) . $msg . TCM_CRC8($msg);
Log3 $name, 5, "TCM $name sending ESP3: $bstring";
Log3 $name, 2, "TCM $name sending ESP3: $bstring";
}
DevIo_SimpleWrite($hash, $bstring, 1);
# next commands will be sent with a delay
@ -522,12 +522,16 @@ TCM_Parse310($$$)
next if($k eq "cmd" || $k eq "arg");
my ($off, $len, $type) = split(",", $ptr->{$k});
my $data = substr($rawmsg, $off*2, $len*2);
$data = pack('H*', $data) if($type && $type eq "STR");
#push @ans, "$k=$data";
if($type && $type eq "STR") {
$data = pack('H*', $data);
####
# remove trailing 0x00
#$data =~ s/[^A-Za-z0-9#\.\-_]//g;
$data =~ tr/A-Za-z0-9#.-_//cd;
}
push @ans, "$k: $data";
}
$msg = join(" ", @ans);
#$msg = join(",", @ans);
}
if ($msg eq "") {
Log3 $name, 2, "TCM $name RESPONSE: OK";