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

00_FBAHA.pm: fix createDevs (Forum #58064)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12235 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2016-10-02 09:37:41 +00:00
parent b499a799a6
commit 2c1b59be91
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/00_FBAHA.pm
View File

@ -90,10 +90,18 @@ FBAHA_Set($@)
if(!defined($sets{$type})); if(!defined($sets{$type}));
if($type eq "createDevs") { if($type eq "createDevs") {
my %ex;
foreach my $sdev (devspec2array("TYPE=FBDECT")) {
my @dl = split(" ", $defs{$sdev}{DEF});
$ex{$dl[0]} = 1;
}
my @arg = FBAHA_getDevList($hash,0); my @arg = FBAHA_getDevList($hash,0);
foreach my $arg (@arg) { foreach my $arg (@arg) {
if($arg =~ m/ID:(\d+).*PROP:(.*)/) { if($arg =~ m/ID:(\d+).*PROP:(.*)/) {
my ($i,$p) = ($1,$2,$3); my ($i,$p) = ($1,$2,$3);
next if($ex{"$name:$i"});
my $msg = "UNDEFINED FBDECT_$i FBDECT $name:$i $p"; my $msg = "UNDEFINED FBDECT_$i FBDECT $name:$i $p";
DoTrigger("global", $msg, 1); DoTrigger("global", $msg, 1);
Log3 $name, 3, "$msg, please define it"; Log3 $name, 3, "$msg, please define it";