2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 10:46:53 +00:00

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
This commit is contained in:
jamesgo 2016-01-25 18:47:27 +00:00
parent 78d0c8c427
commit 735daebc1b

View File

@ -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)