From 7b504f7f035b58046886655abfe0d0d0cbe84fa2 Mon Sep 17 00:00:00 2001
From: "klaus.schauer" <>
Date: Wed, 25 May 2022 11:18:57 +0000
Subject: [PATCH] 00_ElsnerWS: LOG changes

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

diff --git a/FHEM/00_ElsnerWS.pm b/FHEM/00_ElsnerWS.pm
index 9bd39a2e1..b6dbe3134 100644
--- a/FHEM/00_ElsnerWS.pm
+++ b/FHEM/00_ElsnerWS.pm
@@ -198,7 +198,6 @@ sub ElsnerWS_Read($) {
   $hash->{PARTIAL} = '' if(length($hash->{PARTIAL}) > 203);
   my $data = $hash->{PARTIAL} . uc(unpack('H*', $buf));
   #Log3 $name, 5, "ElsnerWS $name received DATA: " . uc(unpack('H*', $buf));
-  Log3 $name, 5, "ElsnerWS $name received DATA: $data";
 
   while($data =~ m/^(57)(2B|2D)(.{36})(.{8})(03)(.*)/ ||
         $data =~ m/^(57)(2B|2D)(.{66})(.{8})(03)(.*)/ ||
@@ -206,7 +205,7 @@ sub ElsnerWS_Read($) {
     my ($packetType, $ldata, $checksum, $etx, $rest) = ($1, $2 . $3, pack('H*', $4), hex($5), $6);
     # data telegram incomplete
     last if(!defined $etx);
-    Log3 $name, 5, "ElsnerWS $name received $packetType, $ldata, $checksum, $etx";
+    #Log3 $name, 5, "ElsnerWS $name received $packetType, $ldata, $checksum, $etx";
     last if($etx != 3);
     my $tlen = length($ldata);
     $data = $ldata;
@@ -216,6 +215,9 @@ sub ElsnerWS_Read($) {
       $data = $rest;
       next;
     }
+
+    Log3 $name, 5, "ElsnerWS $name received DATA: $data LEN: $tlen";
+
     $data =~ m/^(..)(........)(....)(....)(....)(..)(......)(........)(..)(.*)/;
     my ($temperatureSign, $temperature, $sunSouth, $sunWest, $sunEast, $twilightFlag, $brightness, $windSpeed, $isRaining, $zdata) = ($1, $2, $3, $4, $5, $6, $7, $8, $9, $10);
     $sunSouth = pack('H*', $sunSouth) * 1000;