From 3af44395ebeb4192bf33ea9c8f2207f477269317 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 25 Nov 2009 11:13:44 +0000
Subject: [PATCH] List parameter added

git-svn-id: https://svn.fhem.de/fhem/trunk@488 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/docs/commandref.html |  5 ++++-
 fhem/fhem.pl              | 26 +++++++++++++++++++++++---
 2 files changed, 27 insertions(+), 4 deletions(-)

diff --git a/fhem/docs/commandref.html b/fhem/docs/commandref.html
index 099101963..5e866a75a 100644
--- a/fhem/docs/commandref.html
+++ b/fhem/docs/commandref.html
@@ -478,13 +478,16 @@ A line ending with \ will be concatenated with the next one, so long lines
 <a name="list"></a>
 <h3>list</h3>
 <ul>
-  <code>list [devspec]</code>
+  <code>list [devspec] [value]</code>
   <br><br>
   Output a list of all definitions, all notify settings and all at
   entries. This is one of the few commands which return a string in a
   normal case.
   See the <a href="#devspec">Device specification</a> section for details on
   &lt;devspec&gt;.
+  <br>
+  If value is specified, then output this property (like DEF, TYPE, etc) or
+  reading (actuator, measured-temp) for all devices from the devspec. 
   <br><br>
   Example:
   <pre><code>  FHZ> list
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 610bc3970..cb716340f 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -155,7 +155,7 @@ my $nextat;                     # Time when next timer will be triggered.
 my $intAtCnt=0;
 my %duplicate;                  # Pool of received msg for multi-fhz/cul setups
 my $duplidx=0;                  # helper for the above pool
-my $cvsid = '$Id: fhem.pl,v 1.86 2009-11-25 10:48:01 rudolfkoenig Exp $';
+my $cvsid = '$Id: fhem.pl,v 1.87 2009-11-25 11:13:44 rudolfkoenig Exp $';
 my $namedef =
   "where <name> is either:\n" .
   "- a single device name\n" .
@@ -1214,8 +1214,26 @@ CommandList($$)
 
   } else {
 
-    my @list = devspec2array($param);
-    if(@list == 1) {
+    my @arg = split(" ", $param);
+    my @list = devspec2array($arg[0]);
+    if($arg[1]) {
+      foreach my $sdev (@list) {
+
+        if($defs{$sdev} &&
+           $defs{$sdev}{$arg[1]}) {
+          $str .= $sdev . " " . 
+                  $defs{$sdev}{$arg[1]} . "\n";
+
+        } elsif($defs{$sdev} &&
+           $defs{$sdev}{READINGS} &&
+           $defs{$sdev}{READINGS}{$arg[1]}) {
+          $str .= $sdev . " ". 
+                  $defs{$sdev}{READINGS}{$arg[1]}{TIME} . " " .
+                  $defs{$sdev}{READINGS}{$arg[1]}{VAL} . "\n";
+        }
+      }
+
+    } elsif(@list == 1) {
       my $sdev = $list[0];
       if(!defined($defs{$sdev})) {
         $str .= "No device named $param found";
@@ -1225,10 +1243,12 @@ CommandList($$)
         $str .= "Attributes:\n";
         $str .= PrintHash($attr{$sdev}, 2);
       }
+
     } else {
       foreach my $sdev (@list) {
         $str .= "$sdev\n";
       }
+
     }
   }