From 42cfb0178a1ac49dd6b8cddbc2e0a3d4ece72ef2 Mon Sep 17 00:00:00 2001 From: martinp876 <> Date: Mon, 7 Oct 2013 15:29:00 +0000 Subject: [PATCH] ignore ignored and dummy devices,HMinfo bugfixes git-svn-id: https://svn.fhem.de/fhem/trunk@4017 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_CUL_HM.pm | 6 +++++- fhem/FHEM/HMConfig.pm | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm index bbaafd656..448e5bdcc 100755 --- a/fhem/FHEM/10_CUL_HM.pm +++ b/fhem/FHEM/10_CUL_HM.pm @@ -2026,6 +2026,7 @@ sub CUL_HM_Set($@) { my $ret; return "no set value specified" if(@a < 2); my $name = $hash->{NAME}; + return "device ignored due to attr 'ignore'" if (CUL_HM_getAttrInt($name,"ignore")); my $devName = $hash->{device}?$hash->{device}:$name; my $st = AttrVal($devName, "subType", ""); my $md = AttrVal($devName, "model" , ""); @@ -3492,7 +3493,9 @@ sub CUL_HM_SndCmd($$) { my ($hash, $cmd) = @_; $hash = CUL_HM_getDeviceHash($hash); my $io = $hash->{IODev}; - return if(!$io); + return if( !$io + || AttrVal($hash->{NAME},"ignore","") + || AttrVal($hash->{NAME},"dummy","")); my $ioName = $io->{NAME}; if ((hex substr($cmd,2,2) & 0x20) && ( # check for commands with resp-req $io->{STATE} !~ m/^(opened|Initialized)$/ # we need to queue @@ -5559,6 +5562,7 @@ sub CUL_HM_putHash($) {# provide data for HMinfo attr KFM100 unit Liter