00_FBAHAHTTP.pm: Fix IODev assignment for multiple FBAHAHTTP devices (Forum #90041)

git-svn-id: https://svn.fhem.de/fhem/trunk@17110 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2018-08-09 07:11:33 +00:00
parent 84e00cbba5
commit 3ef023be97

View File

@ -39,13 +39,14 @@ FBAHAHTTP_Define($$)
my %matchList = ( "1:FBDECT" => ".*" ); my %matchList = ( "1:FBDECT" => ".*" );
$hash->{MatchList} = \%matchList; $hash->{MatchList} = \%matchList;
# Moving definition from FBAHA to FBAHAHTTP
for my $d (devspec2array("TYPE=FBDECT")) { for my $d (devspec2array("TYPE=FBDECT")) {
if($defs{$d}{IODev} && $defs{$d}{IODev}{TYPE} eq "FBAHA") { if($defs{$d}{IODev} && $defs{$d}{IODev}{TYPE} eq "FBAHA") {
my $n = $defs{$d}{IODev}{NAME}; my $n = $defs{$d}{IODev}{NAME};
CommandAttr(undef, "$d IODev $hash->{NAME}"); CommandAttr(undef, "$d IODev $hash->{NAME}");
CommandDelete(undef, $n) if($defs{$n}); CommandDelete(undef, $n) if($defs{$n});
$defs{$d}{IODev} = $hash;
} }
$defs{$d}{IODev} = $hash
} }
$hash->{CmdStack} = (); $hash->{CmdStack} = ();