diff --git a/FHEM/10_OWServer.pm b/FHEM/10_OWServer.pm index 41f67c1c5..8b1ae9613 100644 --- a/FHEM/10_OWServer.pm +++ b/FHEM/10_OWServer.pm @@ -187,7 +187,13 @@ OWServer_Get($@) my @devices= grep { m/^\/[0-9a-f]{2}.[0-9a-f]{12}$/i } @dir; my $ret; for my $device (@devices) { - $ret .= substr($device,1) . " " . $owserver->read($device . "/type") . "\n"; + my $name= ""; + my $address= substr($device,1); + my $type= $owserver->read($device . "/type"); + foreach my $p (keys %defs) { + $name= concatc(", ", $name, $p) if($defs{$p}{TYPE} eq "OWDevice" and $defs{$p}{fhem}{address} eq $address); + } + $ret .= sprintf("%s %10s %s\n", $address, $type, $name); } return $ret; } else { @@ -274,7 +280,8 @@ OWServer_Set($@)
get <name> devices