From 735daebc1b9e270b5ac81c8835bcfba841bf366e Mon Sep 17 00:00:00 2001
From: jamesgo <>
Date: Mon, 25 Jan 2016 18:47:27 +0000
Subject: [PATCH] 98_GAEBUS.pm : debugs added, fix duplicate log entries for
 readings

git-svn-id: https://svn.fhem.de/fhem/trunk@10629 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/98_GAEBUS.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/fhem/contrib/98_GAEBUS.pm b/fhem/contrib/98_GAEBUS.pm
index 92e349a29..8a2e0a15c 100644
--- a/fhem/contrib/98_GAEBUS.pm
+++ b/fhem/contrib/98_GAEBUS.pm
@@ -25,6 +25,8 @@
 #                         ebusd may return a list of values like "52.0;43.0;8.000;41.0;45.0;error"
 #                         defining a reading "VL;RL;dummy;VLWW;RLWW" will create redings VL, RL, VLWW and RLWW
 # 04.12.2015 : A.Goebel : add event-min-interval to attributes
+# 05.01.2016 : A.Goebel : debugs added
+# 25.01.2016 : A.Goebel : fix duplicate log entries for readings
 
 package main;
 
@@ -939,6 +941,8 @@ GAEBUS_doEbusCmd($$$$$$$)
 
     $actMessage =~ s/\|$//;
 
+    # readings will be set in parent FHEM process
+    return $actMessage;
   }
 
   if ($action eq "r")
@@ -1017,6 +1021,7 @@ GAEBUS_GetUpdatesDoit($)
   my $ret = GAEBUS_OpenDev($hash, 0);
   if (($hash->{STATE} ne "Connected") or (!$hash->{TCPDev}->connected()) )
   {
+    Log3 ($name, 4, "$name: GetUpdatesDoit not connected to ebusd");
     return "$name";
   }
 
@@ -1066,6 +1071,7 @@ GAEBUS_GetUpdatesDoit($)
   }
 
   # returnvalue for BlockingCall ... done routine
+  Log3 ($name, 4, "$name: GetUpdatesDoit returnes $name$readingsToUpdate");
   return $name.$readingsToUpdate;
 
 
@@ -1076,6 +1082,8 @@ GAEBUS_GetUpdatesDone($)
 {
   my ($string) = @_;
 
+  Log (3, "98_GAEBUS: GetUpdatesDone called");
+
   return unless(defined($string));
 
   my @a = split("\\|",$string);
@@ -1084,7 +1092,7 @@ GAEBUS_GetUpdatesDone($)
 
   delete($hash->{helper}{RUNNING_PID});
 
-  #Log3 ($name, 2, "$name: GetUpdatesDoit returned $string");
+  Log3 ($name, 4, "$name: GetUpdatesDoit returned $string");
  
   readingsBeginUpdate ($hash);
   for (my $i = 1; $i < $#a; $i = $i + 2)