From 9fefdfecd8b0f634ffdd0091b84544457c350353 Mon Sep 17 00:00:00 2001 From: martinp876 Date: Fri, 13 Dec 2013 17:14:36 +0000 Subject: [PATCH] differenciator ackinfo/statusinfo git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@4375 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_CUL_HM.pm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm index e954f80d0..551bb46dd 100755 --- a/fhem/FHEM/10_CUL_HM.pm +++ b/fhem/FHEM/10_CUL_HM.pm @@ -1640,6 +1640,10 @@ sub CUL_HM_parseCommon(@){##################################################### (-1)*(hex($rssi))) if ($rssi && $rssi ne '00' && $rssi ne'80'); $reply = "ACKStatus"; + + my $chnHash = CUL_HM_id2Hash($src.substr($p,2,2)); + readingsSingleUpdate($chnHash,"recentStateType","ack",0); + if ($shash->{helper}{tmdOn}){ if (not hex(substr($p,6,2))&0x40){# not timedOn, we have to repeat my ($pre,$nbr,$msg) = unpack 'A4A2A*',$shash->{helper}{prt}{rspWait}{cmd}; @@ -1887,6 +1891,9 @@ sub CUL_HM_parseCommon(@){##################################################### if ($rssi && $rssi ne '00' && $rssi ne'80'); @{$modules{CUL_HM}{helper}{qReqStat}} = grep { $_ ne $shash->{NAME} } @{$modules{CUL_HM}{helper}{qReqStat}}; + my $chnHash = CUL_HM_id2Hash($src.substr($p,2,2)); + readingsSingleUpdate($chnHash,"recentStateType","info",0); + if ($pendType eq "StatusReq"){#it is the answer to our request my $chnSrc = $src.$shash->{helper}{prt}{rspWait}{forChn}; my $chnhash = $modules{CUL_HM}{defptr}{$chnSrc}; @@ -6284,6 +6291,11 @@ sub CUL_HM_reglUsed($) {# provide data for HMinfo Generated events: