From 85084f24b478437ca16b4b5fb501448bf57890bd Mon Sep 17 00:00:00 2001 From: justme-1968 Date: Sat, 17 Oct 2015 20:53:37 +0000 Subject: [PATCH] 30_HUEBridge.pm: accept groups without type attribute, better debug message for unknown bridge answers git-svn-id: https://svn.fhem.de/fhem/trunk@9503 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/30_HUEBridge.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/fhem/FHEM/30_HUEBridge.pm b/fhem/FHEM/30_HUEBridge.pm index 28dcdd224..aa2969b2d 100644 --- a/fhem/FHEM/30_HUEBridge.pm +++ b/fhem/FHEM/30_HUEBridge.pm @@ -466,6 +466,7 @@ HUEBridge_Get($@) my $code = $name ."-G". $key; my $fhem_name =""; $fhem_name = $modules{HUEDevice}{defptr}{$code}->{NAME} if( defined($modules{HUEDevice}{defptr}{$code}) ); + $result->{$key}{type} = '' if( !defined($result->{$key}{type}) ); $ret .= sprintf( "%2i: %-15s %-15s %-15s %s\n", $key, $result->{$key}{name}, $fhem_name, $result->{$key}{type}, join( ",", @{$result->{$key}{lights}} ) ); } $ret = sprintf( "%2s %-15s %-15s %-15s %s\n", "ID", "NAME", "FHEM", "TYPE", "LIGHTS" ) .$ret if( $ret ); @@ -822,7 +823,7 @@ HUEBridge_HTTP_Call($$$;$) Log3 $name, 2, "$name: empty answer received for $uri"; return undef; } elsif( $ret !~ m/^[\[{].*[\]}]$/ ) { - Log3 $name, 2, "$name: invalid json detected for $uri: $ret"; + Log3 $name, 2, "$name: invalid json detected for $uri: ". Dumper $ret; return undef; }