From 4b3175e701073cb59eeaeee8eb0b79797b8d8a38 Mon Sep 17 00:00:00 2001 From: martinp876 <> Date: Sat, 4 Apr 2015 09:56:02 +0000 Subject: [PATCH] 10_CUL_HM:mdir wm55 improve git-svn-id: https://svn.fhem.de/fhem/trunk@8369 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_CUL_HM.pm | 4 ++-- fhem/FHEM/HMConfig.pm | 4 +++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm index 20eacff1c..c846bd8df 100755 --- a/fhem/FHEM/10_CUL_HM.pm +++ b/fhem/FHEM/10_CUL_HM.pm @@ -3005,13 +3005,13 @@ sub CUL_HM_Get($@) {#+++++++++++++++++ get command+++++++++++++++++++++++++++++ my $md = AttrVal($devName, "model", ""); my $cmd = $a[1]; - my ($dst,$chn) = unpack 'A6A2',$hash->{DEF}.'01';#default to chn 01 for dev - return "" if (!defined $chn); my $roleC = $hash->{helper}{role}{chn}?1:0; #entity may act in multiple roles my $roleD = $hash->{helper}{role}{dev}?1:0; my $roleV = $hash->{helper}{role}{vrt}?1:0; my $fkt = $hash->{helper}{fkt}?$hash->{helper}{fkt}:""; + + my ($dst,$chn) = unpack 'A6A2',$hash->{DEF}.($roleC?'01':'00'); my $h = undef; $h = $culHmGlobalGets->{$cmd} if(!$roleV); diff --git a/fhem/FHEM/HMConfig.pm b/fhem/FHEM/HMConfig.pm index 69e675aaf..d1e7c6c4e 100644 --- a/fhem/FHEM/HMConfig.pm +++ b/fhem/FHEM/HMConfig.pm @@ -1143,6 +1143,7 @@ $culHmRegModel{"HM-PB-4DIS-WM-2"} = $culHmRegModel{"HM-PB-4DIS-WM"}; ,seqPulse5 =>1,seqTolerance =>1 ,peerNeedsBurst =>1 } + ,"HM-Sen-MDIR-WM5500"=>{ intKeyVisib =>1,cyclicInfoMsg =>1,localResDis =>1,transmDevTryMax =>1} ,"HM-Sen-MDIR-WM5501"=>{ peerNeedsBurst =>1,expectAES =>1,dblPress =>1,longPress =>1 ,sign =>1 ,ledOnTime =>1,transmitTryMax =>1,localResDis =>1 @@ -1150,8 +1151,8 @@ $culHmRegModel{"HM-PB-4DIS-WM-2"} = $culHmRegModel{"HM-PB-4DIS-WM"}; ); #clones - - - - - - - - - - - - - - - -$culHmRegChan{"HM-Sen-MDIR-WM5503"} = $culHmRegType{motionDetector}; $culHmRegChan{"HM-Sen-MDIR-WM5502"} = $culHmRegChan{"HM-Sen-MDIR-WM5501"}; +$culHmRegChan{"HM-Sen-MDIR-WM5503"} = $culHmRegType{motionDetector}; $culHmRegChan{"HM-RC-19-B12"} = $culHmRegChan{"HM-RC-1912"}; @@ -1175,6 +1176,7 @@ $culHmRegChan{"HM-TC-IT-WM-W-EU06"} = $culHmRegChan{"HM-CC-RT-DN06"}; $culHmRegChan{"ROTO_ZEL-STG-RM-FWT02"}= $culHmRegChan{"HM-CC-TC02"}; $culHmRegChan{"ROTO_ZEL-STG-RM-FWT03"}= $culHmRegChan{"HM-CC-TC03"}; + ##############################---templates---################################## #en-block programming of funktions %culHmTpl = (