FHEMWEB detail screen with get dropdown

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3602 2b470e98-0d58-463d-a4d8-8e2adae1ed80

CHANGED

@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII
 - SVN
+  - feature: FHEMWEB detail screen with get dropdown
   - feature: displayattr command added
   - feature: SYSSTAT: allow (remote) monitoring system uptime
   - feature: new module 98_openweathermap.pm added (betateilchen)

FHEM/01_FHEMWEB.pm

@@ -849,6 +849,8 @@ FW_doDetail($)
   FW_pO FW_hidden("detail", $d);
 
   FW_makeSelect($d, "set", getAllSets($d), "set");
+  FW_makeSelect($d, "get", getAllGets($d), "set");
+
   FW_makeTable("Internals", $d, $h);
   FW_makeTable("Readings", $d, $h->{READINGS});
 

FHEM/61_EMWZ.pm

@@ -116,7 +116,7 @@ EMWZ_Get($@)
   my $msg;
 
   if($a[1] ne "status") {
-    return "unknown get value, valid is status";
+    return "unknown argument $a[1], choose one of status";
   }
   $hash->{LOCAL} = 1;
   my $v = EMWZ_GetStatus($hash);

FHEM/62_EMEM.pm

@@ -110,7 +110,7 @@ EMEM_Get($@)
   my $msg;
 
   if($a[1] ne "status") {
-    return "unknown get value, valid is status";
+    return "unknown argument $a[1], choose one of status";
   }
   $hash->{LOCAL} = 1;
   my $v = EMEM_GetStatus($hash);

FHEM/63_EMGZ.pm

@@ -108,7 +108,7 @@ EMGZ_Get($@)
   my $msg;
 
   if($a[1] ne "status" && int(@a) != 2) {
-    return "unknown get value, valid is status";
+    return "unknown argument $a[1], choose one of status";
   }
   $hash->{LOCAL} = 1;
   my $v = EMGZ_GetStatus($hash);

FHEM/95_holiday.pm

@@ -210,7 +210,8 @@ holiday_Get($@)
     $arg = sprintf("%02d-%02d", $a[4]+1, $a[3]);
 
   } else {
-    return "wrong argument: need MM-DD/yesterday/today/tomorrow"
+    return "unknown argument $a[1], ".
+                "choose one of yesterday today tomorrow MM-DD";
 
   }
   return holiday_refresh($hash->{NAME}, $arg);

fhem.pl

@@ -88,6 +88,7 @@ sub devspec2array($);
 sub doGlobalDef($);
 sub fhem($@);
 sub fhz($);
+sub getAllGets($);
 sub getAllSets($);
 sub readingsBeginUpdate($);
 sub readingsBulkUpdate($$$@);
@@ -1501,6 +1502,7 @@ CommandDisplayAttr($$)
   my @a = split(" ", $def, 2);
   return "Usage: displayattr <name> [<attrname>]\n$namedef" if(@a < 1);
 
+Log 1, "DA: $cl->{NAME}";
   my @rets;
   my @devspec = devspec2array($a[0]);
 
@@ -1769,6 +1771,18 @@ getAllAttr($)
   return $list;
 }
 
+#####################################
+sub
+getAllGets($)
+{
+  my $d = shift;
+  
+  my $a2 = CommandGet(undef, "$d ?");
+  return "" if($a2 !~ m/unknown.*choose one of /i);
+  $a2 =~ s/.*choose one of //;
+  return $a2;
+}
+
 #####################################
 sub
 getAllSets($)