Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

98_GAEBUS.pm : debugs added, fix duplicate log entries for readings

Browse Source 
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
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/contrib/98_GAEBUS.pm
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" # 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 # 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 # 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; package main;
@ -939,6 +941,8 @@ GAEBUS_doEbusCmd($$$$$$$)
$actMessage =~ s/\|$//; $actMessage =~ s/\|$//;
# readings will be set in parent FHEM process
return $actMessage;
} }
if ($action eq "r") if ($action eq "r")
@ -1017,6 +1021,7 @@ GAEBUS_GetUpdatesDoit($)
my $ret = GAEBUS_OpenDev($hash, 0); my $ret = GAEBUS_OpenDev($hash, 0);
if (($hash->{STATE} ne "Connected") or (!$hash->{TCPDev}->connected()) ) if (($hash->{STATE} ne "Connected") or (!$hash->{TCPDev}->connected()) )
{ {
Log3 ($name, 4, "$name: GetUpdatesDoit not connected to ebusd");
return "$name"; return "$name";
} }
@ -1066,6 +1071,7 @@ GAEBUS_GetUpdatesDoit($)
} }
# returnvalue for BlockingCall ... done routine # returnvalue for BlockingCall ... done routine
Log3 ($name, 4, "$name: GetUpdatesDoit returnes $name$readingsToUpdate");
return $name.$readingsToUpdate; return $name.$readingsToUpdate;
@ -1076,6 +1082,8 @@ GAEBUS_GetUpdatesDone($)
{ {
my ($string) = @_; my ($string) = @_;
Log (3, "98_GAEBUS: GetUpdatesDone called");
return unless(defined($string)); return unless(defined($string));
my @a = split("\\|",$string); my @a = split("\\|",$string);
@ -1084,7 +1092,7 @@ GAEBUS_GetUpdatesDone($)
delete($hash->{helper}{RUNNING_PID}); delete($hash->{helper}{RUNNING_PID});
#Log3 ($name, 2, "$name: GetUpdatesDoit returned $string"); Log3 ($name, 4, "$name: GetUpdatesDoit returned $string");
readingsBeginUpdate ($hash); readingsBeginUpdate ($hash);
for (my $i = 1; $i < $#a; $i = $i + 2) for (my $i = 1; $i < $#a; $i = $i + 2)