From 38ee7c2542078a8fa1433ac1287703ae501fc81d Mon Sep 17 00:00:00 2001 From: martinp876 <> Date: Thu, 25 Jul 2013 16:16:09 +0000 Subject: [PATCH] correct autoReadReg git-svn-id: https://svn.fhem.de/fhem/trunk@3503 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/98_HMinfo.pm | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) 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.