Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects 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 { } else {
# TCM 310 (ESP3) # TCM 310 (ESP3)
$bstring = "55" . $fn . TCM_CRC8($fn) . $msg . TCM_CRC8($msg); $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); DevIo_SimpleWrite($hash, $bstring, 1);
# next commands will be sent with a delay # next commands will be sent with a delay
@ -522,12 +522,16 @@ TCM_Parse310($$$)
next if($k eq "cmd" || $k eq "arg"); next if($k eq "cmd" || $k eq "arg");
my ($off, $len, $type) = split(",", $ptr->{$k}); my ($off, $len, $type) = split(",", $ptr->{$k});
my $data = substr($rawmsg, $off*2, $len*2); my $data = substr($rawmsg, $off*2, $len*2);
$data = pack('H*', $data) if($type && $type eq "STR"); if($type && $type eq "STR") {
#push @ans, "$k=$data"; $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"; push @ans, "$k: $data";
} }
$msg = join(" ", @ans); $msg = join(" ", @ans);
#$msg = join(",", @ans);
} }
if ($msg eq "") { if ($msg eq "") {
Log3 $name, 2, "TCM $name RESPONSE: OK"; Log3 $name, 2, "TCM $name RESPONSE: OK";