diff --git a/FHEM/30_HUEBridge.pm b/FHEM/30_HUEBridge.pm index 0d368889e..7c78f49d3 100644 --- a/FHEM/30_HUEBridge.pm +++ b/FHEM/30_HUEBridge.pm @@ -21,6 +21,7 @@ sub HUEBridge_Initialize($) #Consumer $hash->{DefFn} = "HUEBridge_Define"; $hash->{SetFn} = "HUEBridge_Set"; + $hash->{GetFn} = "HUEBridge_Get"; $hash->{UndefFn} = "HUEBridge_Undefine"; $hash->{AttrList}= "key loglevel:0,1,2,3,4,5"; } @@ -132,6 +133,26 @@ HUEBridge_Set($@) } } +sub +HUEBridge_Get($@) +{ + my ($hash, $name, $cmd) = @_; + + return "$name: get needs at least one parameter" if( !defined($cmd) ); + + # usage check + if($cmd eq 'devices') { + my $result = HUEBridge_Call($hash, 'lights', undef); + my $ret = ""; + foreach my $key ( sort keys %$result ) { + $ret .= $key .": ". $result->{$key}{name} ."\n"; + } + return $ret; + } else { + return "Unknown argument $cmd, choose one of devices"; + } +} + sub HUEBridge_GetUpdate($) { @@ -422,6 +443,13 @@ HUEBridge_HTTP_Request($$$@)
+ + Set +
+ Set