FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-08 07:24:21 +00:00
Code Issues Releases Wiki Activity

HMconfig: Bugfix aliesed register for channels

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@9158 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2015-08-29 17:12:16 +00:00
parent a55ad565bf
commit 8f24f97e8b
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/FHEM/10_CUL_HM.pm
View File

@ -176,6 +176,7 @@ sub CUL_HM_Initialize($) {
.$readingFnAttributes
;
CUL_HM_initRegHash();
my @modellist;
foreach my $model (keys %{$culHmModel}){
push @modellist,$culHmModel->{$model}{name};
@ -204,7 +205,6 @@ sub CUL_HM_Initialize($) {
RemoveInternalTimer("StatCntRfresh");
InternalTimer(gettimeofday()+3600*20,"CUL_HM_statCntRfresh","StatCntRfresh", 0);
CUL_HM_initRegHash();
$hash->{hmIoMaxDly} = 60;# poll timeout - stop poll and discard
$hash->{hmAutoReadScan} = 4; # delay autoConf readings
$hash->{helper}{hmManualOper} = 0;# default automode

4
fhem/FHEM/HMConfig.pm
View File

@ -294,8 +294,6 @@ my $K_actDetID = '000000'; # id of actionDetector
,"00E8" => {name=>"HM-LC-Sw1-Pl-DN-R4" ,st=>'switch' ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}
,"00E9" => {name=>"HM-LC-Sw1-Pl-DN-R5" ,st=>'switch' ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}
,"00EA" => {name=>"HM-ES-PMSw1-DR" ,alias=>"HM-ES-PMSw1-Pl"}
# ,"00EA" => {name=>"HM-ES-PMSw1-DR" ,st=>'powerMeter' ,cyc=>'00:10' ,rxt=>'' ,lst=>'1:2.3.4.5.6,3:1p,4:3p.4p.5p.6p'
# ,chn=>"Sw:1:1,Pwr:2:2,SenPwr:3:3,SenI:4:4,SenU:5:5,SenF:6:6"}
,"00EB" => {name=>"HM-LC-Sw1-Pl-CT-R1" ,st=>'switch' ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}
,"00EC" => {name=>"HM-LC-Sw1-Pl-CT-R2" ,st=>'switch' ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}
,"00ED" => {name=>"HM-LC-Sw1-Pl-CT-R3" ,st=>'switch' ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}
@ -1922,7 +1920,7 @@ $culHmChanSets{"HM-CC-RD-O00"} = $culHmChanSets{"HM-LC-Bl1PBU-FM00"};
}
$culHmRegModel{$ds} = $culHmRegModel{$ds} if ($culHmRegModel{$ds});
foreach(grep /^$md/,keys %culHmRegChan){
$culHmChanSets{$ds.substr($_,-2,2)} = $culHmChanSets{$_};
$culHmRegChan{$ds.substr($_,-2,2)} = $culHmRegChan{$_};
}
last;
}