From 2b8c5a58fbb93d1a96de285c3be41a7cb57898be Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Sun, 21 Dec 2014 17:03:42 +0000
Subject: [PATCH] 30_HUEBridge.pm: document autocreate command

git-svn-id: https://svn.fhem.de/fhem/trunk@7286 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/30_HUEBridge.pm | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/fhem/FHEM/30_HUEBridge.pm b/fhem/FHEM/30_HUEBridge.pm
index ef3e3192c..3c2b9d40f 100644
--- a/fhem/FHEM/30_HUEBridge.pm
+++ b/fhem/FHEM/30_HUEBridge.pm
@@ -202,10 +202,10 @@ HUEBridge_Set($@)
     $hash->{STATE} = "updating";
     return "starting update";
   } elsif($cmd eq 'autocreate') {
-    HUEBridge_Autocreate($hash);
+    HUEBridge_Autocreate($hash,1);
     return undef;
   } else {
-    my $list = "statusRequest:noArg";
+    my $list = "autocreate:noArg statusRequest:noArg";
     $list .= " swupdate:noArg" if( defined($hash->{updatestate}) && $hash->{updatestate} == 2 );
     return "Unknown argument $cmd, choose one of $list";
   }
@@ -272,14 +272,16 @@ HUEBridge_GetUpdate($)
 }
 
 sub
-HUEBridge_Autocreate($)
+HUEBridge_Autocreate($;$)
 {
-  my ($hash)= @_;
+  my ($hash,$force)= @_;
   my $name = $hash->{NAME};
 
-  foreach my $d (keys %defs) {
-    next if($defs{$d}{TYPE} ne "autocreate");
-    return undef if(AttrVal($defs{$d}{NAME},"disable",undef));
+  if( !$force ) {
+    foreach my $d (keys %defs) {
+      next if($defs{$d}{TYPE} ne "autocreate");
+      return undef if(AttrVal($defs{$d}{NAME},"disable",undef));
+    }
   }
 
   my $result =  HUEBridge_Call($hash, 'lights', undef);
@@ -583,6 +585,8 @@ HUEBridge_HTTP_Request($$$@)
   <a name="HUEBridge_Set"></a>
   <b>Set</b>
   <ul>
+    <li>autocreate<br>
+    Create fhem devices for all bridge devices.</li>
     <li>statusRequest<br>
     Update bridge status.</li>
     <li>swupdate<br>