FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-15 22:26:04 +00:00
Code Issues Releases Wiki Activity

00_TCM: LOG3 calls changed

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26092 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
klaus.schauer 2022-05-26 08:58:03 +00:00
parent f0e8113020
commit da89e310eb
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fhem/FHEM/00_TCM.pm
View File

@ -394,7 +394,7 @@ sub TCM_Read($) {
my $name = $hash->{NAME}; my $name = $hash->{NAME};
my $blockSenderID = AttrVal($name, "blockSenderID", "own"); my $blockSenderID = AttrVal($name, "blockSenderID", "own");
my $data = $hash->{PARTIAL} . uc(unpack('H*', $buf)); my $data = $hash->{PARTIAL} . uc(unpack('H*', $buf));
Log3 $name, 5, "TCM $name received ESP: $data"; #Log3 $name, 5, "TCM $name received ESP: $data";
if($hash->{MODEL} eq "ESP2") { if($hash->{MODEL} eq "ESP2") {
# TCM 120 # TCM 120
@ -410,6 +410,8 @@ sub TCM_Read($) {
next; next;
} }
Log3 $name, 5, "TCM $name received ESP: $data";
if($net =~ m/^0B(..)(........)(........)(..)/) { if($net =~ m/^0B(..)(........)(........)(..)/) {
# Receive Radio Telegram (RRT) # Receive Radio Telegram (RRT)
my ($org, $d1, $id, $status) = ($1, $2, $3, $4); my ($org, $d1, $id, $status) = ($1, $2, $3, $4);
@ -474,6 +476,9 @@ sub TCM_Read($) {
last if(length($data) < $tlen); last if(length($data) < $tlen);
my $rest = substr($data, $tlen); my $rest = substr($data, $tlen);
$data = substr($data, 0, $tlen); $data = substr($data, 0, $tlen);
Log3 $name, 5, "TCM $name received ESP: $data";
my $hdr = substr($data, 2, 8); my $hdr = substr($data, 2, 8);
my $mdata = substr($data, 12, $ldata * 2); my $mdata = substr($data, 12, $ldata * 2);
my $odata = substr($data, 12 + $ldata * 2, $lodata * 2); my $odata = substr($data, 12 + $ldata * 2, $lodata * 2);
@ -1127,7 +1132,7 @@ sub TCM_ReadAnswer($$) {
} }
if (length($data) > 4) { if (length($data) > 4) {
Log3 $name, 5, "TCM $name received ESP: $data"; #Log3 $name, 5, "TCM $name received ESP: $data";
if ($hash->{MODEL} eq "ESP2") { if ($hash->{MODEL} eq "ESP2") {
# TCM 120 # TCM 120
@ -1136,6 +1141,9 @@ sub TCM_ReadAnswer($$) {
$hash->{PARTIAL} = ''; $hash->{PARTIAL} = '';
return ("$arg: Bogus answer received: $data", undef); return ("$arg: Bogus answer received: $data", undef);
} }
Log3 $name, 5, "TCM $name received ESP: $data";
my ($net, $crc) = ($1, $2); my ($net, $crc) = ($1, $2);
my $mycrc = TCM_CSUM($net); my $mycrc = TCM_CSUM($net);
$hash->{PARTIAL} = substr($data, 28); $hash->{PARTIAL} = substr($data, 28);
@ -1164,6 +1172,9 @@ sub TCM_ReadAnswer($$) {
next if (length($data) < $tlen); next if (length($data) < $tlen);
my $rest = substr($data, $tlen); my $rest = substr($data, $tlen);
$data = substr($data, 0, $tlen); $data = substr($data, 0, $tlen);
Log3 $name, 5, "TCM $name received ESP: $data";
my $hdr = substr($data, 2, 8); my $hdr = substr($data, 2, 8);
my $mdata = substr($data, 12, $ldata * 2); my $mdata = substr($data, 12, $ldata * 2);
my $odata = substr($data, 12 + $ldata * 2, $lodata * 2); my $odata = substr($data, 12 + $ldata * 2, $lodata * 2);