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

30_HUEBridge.pm: changed not paired handling

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11347 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2016-04-30 09:11:11 +00:00
parent 95421407a6
commit 534540078f
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/30_HUEBridge.pm
View File

@ -281,7 +281,7 @@ HUEBridge_Set($@)
my ($arg, @params) = @args; my ($arg, @params) = @args;
return "$name: not paired" if( $hash->{STATE} =~ m/^link/ ); return "$name: not paired" if( $hash->{STATE} =~ m/^link/ );
return "$name: not connected" if( $hash->{STATE} ne 'Connected' ); #return "$name: not connected" if( $hash->{STATE} ne 'Connected' );
# usage check # usage check
if($cmd eq 'statusRequest') { if($cmd eq 'statusRequest') {
@ -490,7 +490,7 @@ HUEBridge_Get($@)
my ($arg, @params) = @args; my ($arg, @params) = @args;
return "$name: not paired" if( $hash->{STATE} =~ m/^link/ ); return "$name: not paired" if( $hash->{STATE} =~ m/^link/ );
return "$name: not connected" if( $hash->{STATE} ne 'Connected' ); #return "$name: not connected" if( $hash->{STATE} ne 'Connected' );
return "$name: get needs at least one parameter" if( !defined($cmd) ); return "$name: get needs at least one parameter" if( !defined($cmd) );
# usage check # usage check
@ -498,7 +498,6 @@ HUEBridge_Get($@)
|| $cmd eq 'lights') { || $cmd eq 'lights') {
my $result = HUEBridge_Call($hash, undef, 'lights', undef); my $result = HUEBridge_Call($hash, undef, 'lights', undef);
return $result->{error}{description} if( $result->{error} ); return $result->{error}{description} if( $result->{error} );
Log 1, Dumper $result;
my $ret = ""; my $ret = "";
foreach my $key ( sort {$a<=>$b} keys %{$result} ) { foreach my $key ( sort {$a<=>$b} keys %{$result} ) {
my $code = $name ."-". $key; my $code = $name ."-". $key;