FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 14:04:15 +00:00
Code Issues Releases Wiki Activity

improve autoReadReg level 5

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@4610 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-01-10 19:19:54 +00:00
parent 5658c46333
commit e94290275c
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/10_CUL_HM.pm
View File

@ -310,6 +310,7 @@ sub CUL_HM_updateConfig($){
} }
} }
} }
CUL_HM_complConfig($name);
} }
delete $modules{CUL_HM}{helper}{updtCfgLst}; delete $modules{CUL_HM}{helper}{updtCfgLst};
} }
@ -4075,9 +4076,12 @@ sub CUL_HM_respPendTout($) {
} }
elsif ($pHash->{rspWait}{reSent} > AttrVal($name,"msgRepeat",3)#too many elsif ($pHash->{rspWait}{reSent} > AttrVal($name,"msgRepeat",3)#too many
||(!(CUL_HM_getRxType($hash) & 0x8B))){#config/lacyConfig cannot retry ||(!(CUL_HM_getRxType($hash) & 0x8B))){#config/lacyConfig cannot retry
my $pendCmd = ($pHash->{rspWait}{Pending}
?"RESPONSE TIMEOUT:".$pHash->{rspWait}{Pending} my $pendCmd = "MISSING ACK";
:"MISSING ACK");# save before remove if ($pHash->{rspWait}{Pending}){
$pendCmd = "RESPONSE TIMEOUT:".$pHash->{rspWait}{Pending};
CUL_HM_complConfig($name);
}
CUL_HM_eventP($hash,"ResndFail"); CUL_HM_eventP($hash,"ResndFail");
readingsSingleUpdate($hash,"state",$pendCmd,1); readingsSingleUpdate($hash,"state",$pendCmd,1);
CUL_HM_ProcessCmdStack($hash); # continue processing commands if any CUL_HM_ProcessCmdStack($hash); # continue processing commands if any
@ -5512,6 +5516,7 @@ sub CUL_HM_complConfig($) {# read config if enabled and not complete
if (CUL_HM_peerUsed($name) && !CUL_HM_peersValid($name) ){ if (CUL_HM_peerUsed($name) && !CUL_HM_peersValid($name) ){
CUL_HM_qAutoRead($name,0); CUL_HM_qAutoRead($name,0);
CUL_HM_complConfigTest($name); CUL_HM_complConfigTest($name);
Log3 $name,5,"CUL_HM $name queue configRead";
return; return;
} }
my @regList = CUL_HM_reglUsed($name); my @regList = CUL_HM_reglUsed($name);
@ -5519,6 +5524,7 @@ sub CUL_HM_complConfig($) {# read config if enabled and not complete
if (ReadingsVal($name,$_,"") !~ m /00:00/){ if (ReadingsVal($name,$_,"") !~ m /00:00/){
CUL_HM_qAutoRead($name,0); CUL_HM_qAutoRead($name,0);
CUL_HM_complConfigTest($name); CUL_HM_complConfigTest($name);
Log3 $name,5,"CUL_HM $name queue configRead";
last; last;
} }
} }