Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

86_Robonect.pm: always try to decode health details - even without Attribute being set. Line 726-748.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@16758 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
andi291 2018-05-19 07:14:30 +00:00
parent cd26cefd3a
commit bad086ec2f
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
FHEM/86_Robonect.pm
View File

@ -40,6 +40,7 @@
# ABU 20171010 finished health for test, added chck for undef at each reading
# ABU 20180507 replaced "umwelt" with "climate" in readings-section (roughly line 740)
# ABU 20180509 reading winterschlaf was not decoded correctly - fixed
# ABU 20180509 always try to decode health details - even without Attribute being set. Line 726-748.
package main;
@ -585,10 +586,12 @@ sub Robonect_GetUpdate($)
#evaluate reading hybernate
#my $hybernate = $hash->{READINGS}{$HYBERNATE}{VAL};
my $hybernate = ReadingsVal($name, $HYBERNATE, undef);
my $hybernate = ReadingsVal($name, $HYBERNATE, undef);
Log3 ($name, 5, "XXX: $hybernate");
#supress sending, if hybernate is set
if (!defined ($hybernate) or ($hybernate =~ m/[off]|[0]/))
if (!defined ($hybernate) or ($hybernate =~ m/(off)|[0]/i))
{
#get status
my @callAttr;
@ -718,9 +721,9 @@ sub Robonect_callback ($)
}
#try to decode health, if desired
my $useHealth = AttrVal($name,"useHealth",undef);
if (defined ($useHealth) and ($useHealth =~ m/[1]|([oO][nN])/))
{
#my $useHealth = AttrVal($name,"useHealth",undef);
#if (defined ($useHealth) and ($useHealth =~ m/[1]|([oO][nN])/))
#{
($key, $value) = Robonect_decodeContent ($hash, $answer, "health", "alarm", "voltagebattmin");
readingsBulkUpdate($hash, $key, $value) if (defined ($value) and !($value =~ m/undef/));
@ -744,7 +747,7 @@ sub Robonect_callback ($)
($key, $value) = Robonect_decodeContent ($hash, $answer, "health", "climate", "humidity");
readingsBulkUpdate($hash, $key, $value) if (defined ($value) and !($value =~ m/undef/));
}
#}
readingsEndUpdate($hash, 1);
}