diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm index 2692cdc52..1e983f6a0 100644 --- a/fhem/FHEM/98_HMinfo.pm +++ b/fhem/FHEM/98_HMinfo.pm @@ -3,7 +3,6 @@ package main; use strict; use warnings; -use POSIX; sub HMinfo_Initialize($$); sub HMinfo_Define($$); @@ -18,7 +17,6 @@ sub HMinfo_post($); use Blocking; - sub HMinfo_Initialize($$) {#################################################### my ($hash) = @_; @@ -223,14 +221,14 @@ sub HMinfo_SetFn($$) {######################################################### my @entities; foreach my $dName (HMinfo_getEntities($opt."dv",$filter)){ next if (!substr(AttrVal($dName,"autoReadReg","0"),0,1)); - my @arr; - if(!$modules{CUL_HM}{helper}{updtCfgLst}){ - $modules{CUL_HM}{helper}{updtCfgLst} = \@arr; + if(!$modules{CUL_HM}{helper}{autoRdCfgLst}){ + $modules{CUL_HM}{helper}{autoRdCfgLst} = \@arr; } - push @{$modules{CUL_HM}{helper}{updtCfgLst}}, $dName; - RemoveInternalTimer("updateConfig"); - InternalTimer(gettimeofday()+5,"CUL_HM_autoReadConfig", "updateConfig", 0); + push @{$modules{CUL_HM}{helper}{autoRdCfgLst}}, $dName; + $defs{$dName}{autoRead} = "scheduled"; + RemoveInternalTimer("autoRdCfg"); + InternalTimer(gettimeofday()+5,"CUL_HM_autoReadConfig","autoRdCfg",0); push @entities,$dName; } return $cmd." done:" ."\n cleared" ."\n ".(join "\n ",sort @entities) @@ -1086,16 +1084,20 @@ sub HMinfo_cpRegs(@){#########################################################
set hm cpRegs blindR blindL # will copy all general register (list 1)for this channel from the blindR to the blindL entity.