FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 11:26:55 +00:00
Code Issues Releases Wiki Activity

10_CUL_HM:2nd improve burst

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8425 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2015-04-12 16:52:33 +00:00
parent 83b53d4671
commit c884309f4a
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
fhem/FHEM/10_CUL_HM.pm
View File

@ -2793,8 +2793,10 @@ sub CUL_HM_parseCommon(@){#####################################################
$ret = "STATresp"; $ret = "STATresp";
} }
else{ else{
my ($chn) = ($1) if($p =~ m/^..(..)/); if ($chn eq "00"
if ($chn eq "00"){# this is power on || ( $mNo eq "00"
&& $chn eq "01"
&& $shash->{helper}{mRssi}{mNo} !~ m/^F/)){# this is power on
my $name = $shash->{NAME}; my $name = $shash->{NAME};
CUL_HM_qStateUpdatIfEnab($name); CUL_HM_qStateUpdatIfEnab($name);
CUL_HM_qAutoRead($name,2); CUL_HM_qAutoRead($name,2);
@ -4882,10 +4884,14 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
$devHash->{helper}{prt}{sProc} != 1 # not processing $devHash->{helper}{prt}{sProc} != 1 # not processing
){ ){
if($rxType & 0x02){# handle burst Access devices - add burst Bit if($rxType & 0x02){# handle burst Access devices - add burst Bit
CUL_HM_SndCmd($devHash,"++B112$id$dst"); if($st eq "thermostat"){ # others do not support B112
# my ($pre,$tp,$tail) = unpack 'A2A2A*',$devHash->{cmdStack}[0]; CUL_HM_SndCmd($devHash,"++B112$id$dst");
# $devHash->{cmdStack}[0] = sprintf("%s%02X%s",$pre,(hex($tp)|0x10),$tail); }
# CUL_HM_ProcessCmdStack($devHash); else{
my ($pre,$tp,$tail) = unpack 'A2A2A*',$devHash->{cmdStack}[0];
$devHash->{cmdStack}[0] = sprintf("%s%02X%s",$pre,(hex($tp)|0x10),$tail);
CUL_HM_ProcessCmdStack($devHash);
}
} }
elsif (CUL_HM_getAttrInt($name,"burstAccess")){ #burstConditional - have a try elsif (CUL_HM_getAttrInt($name,"burstAccess")){ #burstConditional - have a try
$hash->{helper}{prt}{brstWu}=1;# start auto-burstWakeup $hash->{helper}{prt}{brstWu}=1;# start auto-burstWakeup