FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00
Code Issues Releases Wiki Activity

CUL_HM:improve cfgState updates

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24031 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2021-03-21 09:30:57 +00:00
parent 733135e4df
commit e0dc5e8ebd
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/10_CUL_HM.pm
View File

@ -3558,6 +3558,7 @@ sub CUL_HM_parseCommon(@){#####################################################
delete $chnhash->{helper}{getCfgListNo};
CUL_HM_rmOldRegs($chnName,$readCont);
$chnhash->{READINGS}{".peerListRDate"}{VAL} = $chnhash->{READINGS}{".peerListRDate"}{TIME} = $mhp->{tmStr};
CUL_HM_cfgStateDelay($chnName);#schedule check when finished
}
else{
CUL_HM_respPendToutProlong($mhp->{devH});#wasn't last - reschedule timer
@ -3614,7 +3615,6 @@ sub CUL_HM_parseCommon(@){#####################################################
delete $mhp->{cHash}{helper}{shadowReg}{$regLNp}; #rm shadow
# peerChannel name from/for user entry. <IDorName> <deviceID> <ioID>
CUL_HM_updtRegDisp($mhp->{cHash},$list,CUL_HM_peerChId($peer,$mhp->{devH}{DEF}));
CUL_HM_cfgStateDelay($mhp->{cHash}{NAME});
}
else{
CUL_HM_respPendToutProlong($mhp->{devH});#wasn't last - reschedule timer
@ -3638,7 +3638,6 @@ sub CUL_HM_parseCommon(@){#####################################################
if($data eq "00"){#update finished for mStp 05. Now update display
CUL_HM_updtRegDisp($fHash,$list,$peerID);
CUL_HM_cfgStateDelay($fName);
}
else{
my $regLNp = "RegL_".$list.".".$peer;
@ -3673,7 +3672,6 @@ sub CUL_HM_parseCommon(@){#####################################################
CUL_HM_UpdtReadSingle($fHash,$regLN,$rCur,0);
if ($mhp->{mStp} eq "04"){
CUL_HM_updtRegDisp($fHash,$list,$peerID);
CUL_HM_cfgStateDelay($fName);
}
}
}
@ -6808,6 +6806,8 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
my $arg = $a[2] ? $a[2] : "";
$arg = 60 if( $arg !~ m/^\d+$/);
CUL_HM_RemoveHMPair("hmPairForSec:$name");
$defs{$_}{lastMsg}="cleared" foreach (devspec2array("TYPE=CUL_HM:FILTER=DEF=......:FILTER=lastMsg=.*t:00 s:...... d:000000.*")); #remove old config message from duplicate filter
$hash->{hmPair} = 1;
InternalTimer(gettimeofday()+$arg, "CUL_HM_RemoveHMPair", "hmPairForSec:$name", 1);
}
@ -8945,7 +8945,7 @@ sub CUL_HM_updtRegDisp($$$) {
elsif ($md eq "HM-SEC-SD-2"){
CUL_HM_SD_2($hash) if ($list == 0);
}
CUL_HM_cfgStateDelay($name);#schedule check when finished
}
sub CUL_HM_cfgStateDelay($) {#update cfgState timer
my $name = shift;
@ -8956,7 +8956,7 @@ sub CUL_HM_cfgStateDelay($) {#update cfgState timer
CUL_HM_cfgStateUpdate("cfgStateUpdate:$name");
}
else{
InternalTimer(gettimeofday()+ 30,"CUL_HM_cfgStateUpdate","cfgStateUpdate:$name", 0);
InternalTimer(gettimeofday()+ 60,"CUL_HM_cfgStateUpdate","cfgStateUpdate:$name", 0);
}
}
sub CUL_HM_cfgStateUpdate($) {#update cfgState