fhem.pl: enable regexp attributes with FHEMWEB modifier (Forum #48150)

git-svn-id: https://svn.fhem.de/fhem/trunk@10639 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2016-01-26 07:27:14 +00:00
parent a327a98adb
commit 07e1089bac
1 changed files with 3 additions and 1 deletions
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -2448,7 +2448,9 @@ CommandAttr($$)
    if(" $list " !~ m/ ${attrName}[ :;]/) {
       my $found = 0;
       foreach my $atr (split("[ \t]", $list)) { # is it a regexp?
-         if(${attrName} =~ m/^$atr$/) {
+         $atr =~ /^([^;:]+)(:.*)?$/;
+         my $base = $1;
+         if(${attrName} =~ m/^$base$/) {
           $found++;
           last;
         }