From da89e310ebddcc5d848b922936bcacc8980ff7d0 Mon Sep 17 00:00:00 2001
From: "klaus.schauer" <>
Date: Thu, 26 May 2022 08:58:03 +0000
Subject: [PATCH] 00_TCM: LOG3 calls changed

git-svn-id: https://svn.fhem.de/fhem/trunk@26092 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_TCM.pm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/00_TCM.pm b/fhem/FHEM/00_TCM.pm
index ff39261e9..04ea6ce22 100755
--- a/fhem/FHEM/00_TCM.pm
+++ b/fhem/FHEM/00_TCM.pm
@@ -394,7 +394,7 @@ sub TCM_Read($) {
   my $name = $hash->{NAME};
   my $blockSenderID = AttrVal($name, "blockSenderID", "own");
   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") {
     # TCM 120
@@ -410,6 +410,8 @@ sub TCM_Read($) {
         next;
       }
 
+      Log3 $name, 5, "TCM $name received ESP: $data";
+
       if($net =~ m/^0B(..)(........)(........)(..)/) {
         # Receive Radio Telegram (RRT)
         my ($org, $d1, $id, $status) = ($1, $2, $3, $4);
@@ -474,6 +476,9 @@ sub TCM_Read($) {
       last if(length($data) < $tlen);
       my $rest = substr($data, $tlen);
       $data = substr($data, 0, $tlen);
+
+      Log3 $name, 5, "TCM $name received ESP: $data";
+
       my $hdr = substr($data, 2, 8);
       my $mdata = substr($data, 12, $ldata * 2);
       my $odata = substr($data, 12 + $ldata * 2, $lodata * 2);
@@ -1127,7 +1132,7 @@ sub TCM_ReadAnswer($$) {
     }
 
     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") {
         # TCM 120
@@ -1136,6 +1141,9 @@ sub TCM_ReadAnswer($$) {
             $hash->{PARTIAL} = '';
             return ("$arg: Bogus answer received: $data", undef);
           }
+
+          Log3 $name, 5, "TCM $name received ESP: $data";
+
           my ($net, $crc) = ($1, $2);
           my $mycrc = TCM_CSUM($net);
           $hash->{PARTIAL} = substr($data, 28);
@@ -1164,6 +1172,9 @@ sub TCM_ReadAnswer($$) {
         next if (length($data) < $tlen);
         my $rest = substr($data, $tlen);
         $data = substr($data, 0, $tlen);
+
+        Log3 $name, 5, "TCM $name received ESP: $data";
+
         my $hdr = substr($data, 2, 8);
         my $mdata = substr($data, 12, $ldata * 2);
         my $odata = substr($data, 12 + $ldata * 2, $lodata * 2);