From cf91df8f99a61338cfec64ce93a461305549dd19 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 19 Dec 2015 20:36:40 +0000
Subject: [PATCH] fhem.pl: add i:/r:/a: to devspec (Forum #45801)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@10208 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 docs/commandref_frame.html    |  7 +++++--
 docs/commandref_frame_DE.html |  6 +++++-
 fhem.pl                       | 12 +++++++++---
 3 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/docs/commandref_frame.html b/docs/commandref_frame.html
index 6378afc9e..30d008572 100644
--- a/docs/commandref_frame.html
+++ b/docs/commandref_frame.html
@@ -308,9 +308,11 @@ A line ending with \ will be concatenated with the next one, so long lines
   <li>a single device name. This is the most common case.</li>
   <li>a list of devices, separated by comma (,)</li>
   <li>a regular expression</li>
-  <li>a NAME=VALUE pair, where NAME can be an Internal value like TYPE, a
+  <li>a NAME=VALUE pair, where NAME can be an internal value like TYPE, a
         Reading-Name or an attribute. VALUE is a regexp. To negate the
-        comparison, use NAME!=VALUE</li>
+        comparison, use NAME!=VALUE. To restrict the search, use i: as prefix
+        for internal values, r: for readings and a: for attributes. See the
+        example below.</li>
   <li>if the spec is followed by the expression :FILTER=NAME=VALUE, then the
       values found in the first round are filtered by the second expression.
   </ul>
@@ -324,6 +326,7 @@ A line ending with \ will be concatenated with the next one, so long lines
     <code>set room=kitchen:FILTER=STATE!=off off</code><br>
     <code>list disabled=</code><br>
     <code>list TYPE=FS20 STATE</code><br>
+    <code>list i:TYPE=FS20 STATE</code><br>
   </ul>
   Notes:
   <ul>
diff --git a/docs/commandref_frame_DE.html b/docs/commandref_frame_DE.html
index bb7ceebd4..73f026e59 100644
--- a/docs/commandref_frame_DE.html
+++ b/docs/commandref_frame_DE.html
@@ -319,7 +319,10 @@ Zeilen erstreckende Befehle, indem man keine \ am Zeilenende eingeben muss.</p>
   <li>ein regul&auml;rer Ausdruck</li>
   <li>ein NAME=WERT Ausdruck, wo NAME ein "Internal" Wert wie TYPE ist, ein
       Reading-Name oder ein Attribut. WERT ist ein regul&auml;rer Ausdruck.
-      Um die Bedingung zu negieren, sollte NAME!=WERT verwendet werden.
+      Um die Bedingung zu negieren, muss NAME!=WERT verwendet werden.
+      Um die Suche einzugrenzen, kann man als Praefix i: f&uuml;r internal
+      Werte, r: f&uuml;r Reading-Namen und a: f&uuml;r Attribute verwenden,
+      siehe das Beispiel unten.
       </li>
   <li>Falls die Spezifikation von :FILTER=NAME=WERT gefolgt wird,
       dann wird die zuvor gefundene Liste durch diesen neuen Ausdruck
@@ -335,6 +338,7 @@ Zeilen erstreckende Befehle, indem man keine \ am Zeilenende eingeben muss.</p>
     <code>set room=kitchen:FILTER=STATE!=off off</code><br>
     <code>list disabled=</code><br>
     <code>list TYPE=FS20 STATE</code><br>
+    <code>list i:TYPE=FS20 STATE</code><br>
   </ul>
   Bemerkungen:
   <ul>
diff --git a/fhem.pl b/fhem.pl
index 705aa0745..7e30a6a17 100755
--- a/fhem.pl
+++ b/fhem.pl
@@ -1092,6 +1092,11 @@ devspec2array($;$)
       }
       ($n,$op,$re) = ($1,"eval","") if($dName =~ m/^{(.*)}$/);
 
+      my $fType="";
+      if($n =~ m/^(.:)(.*$)/) {
+        $fType = $1;
+        $n = $2;
+      }
       @res=();
       foreach my $d (@names) {
         next if($attr{$d} && $attr{$d}{ignore});
@@ -1107,12 +1112,13 @@ devspec2array($;$)
           Log 1, "Error: $d has no TYPE";
           next;
         }
-        my $val = $hash->{$n};
-        if(!defined($val)) {
+        my $val;
+        $val = $hash->{$n} if(!$fType || $fType eq "i:");
+        if(!defined($val) && (!$fType || $fType eq "r:")) {
           my $r = $hash->{READINGS};
           $val = $r->{$n}{VAL} if($r && $r->{$n});
         }
-        if(!defined($val)) {
+        if(!defined($val) && (!$fType || $fType eq "a:")) {
           $val = $attr{$d}{$n} if($attr{$d});
         }
         $val="" if(!defined($val));