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

CUL_HM:performance improvement at boot level

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@22227 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2020-06-22 07:59:57 +00:00
parent 54cc86316e
commit 32f3c7974c
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fhem/FHEM/10_CUL_HM.pm
View File

@ -542,7 +542,6 @@ sub CUL_HM_updateConfig($){##########################
delete $attr{$name}{$_} if (defined $attr{$name}{$_});
}
}
CUL_HM_complConfig($name);
}
delete $modules{CUL_HM}{helper}{updtCfgLst};
@ -4223,6 +4222,14 @@ sub CUL_HM_SetList($) {#+++++++++++++++++ get command basic list+++++++++++++++
return (@{$hash->{helper}{cmds}{cmdList}},@{$hash->{helper}{cmds}{TmplCmds}});
}
sub CUL_HM_SearchCmd($$) {#+++++++++++++++++ is command supported?+++++++++++++++
my($name,$findCmd)=@_;
return 0 if(!defined $defs{$name}{helper}{cmds}{cmdList});
return scalar(grep/$findCmd:/,@{$defs{$name}{helper}{cmds}{cmdList}});
}
sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
my ($hash, @a) = @_;
return "no value specified" if(@a < 2);
@ -9374,12 +9381,13 @@ sub CUL_HM_ActCheck($) {# perform supervision
$actHash->{helper}{$devId}{try} = $actHash->{helper}{$devId}{try}
? ($actHash->{helper}{$devId}{try} + 1)
: 1;
my $cmds = CUL_HM_Set($defs{$devName},$devName,"help");
if ($cmds =~ m/(statusRequest|getSerial)/){
# send statusrequest if possible
CUL_HM_Set($defs{$devName},$devName,
($cmds =~ m/statusRequest/ ? "statusRequest"
: "getSerial" ));
if (CUL_HM_SearchCmd($devName,"statusRequest")){
CUL_HM_Set($defs{$devName},$devName,"statusRequest");
$state = $oldState eq "unset" ? "unknown"
: $oldState;
}
elsif (CUL_HM_SearchCmd($devName,"getSerial")){
CUL_HM_Set($defs{$devName},$devName,"getSerial");
$state = $oldState eq "unset" ? "unknown"
: $oldState;
}
@ -9866,7 +9874,7 @@ sub CUL_HM_qStateUpdatIfEnab($@){#in:name or id, queue stat-request
foreach my $chNm(CUL_HM_getAssChnNames($name)){
next if ( !$defs{$chNm} #device unknown, ignore
|| CUL_HM_Set($defs{$chNm},$chNm,"help") !~ m/statusRequest/);
|| 0 == CUL_HM_SearchCmd($chNm,"statusRequest"));
if ($force || ((CUL_HM_getAttrInt($chNm,"autoReadReg") & 0x0f) > 3)){
CUL_HM_qEntity($chNm,"qReqStat") ;
}