From c70377960018348d5080c550c23b79c2fadcb13c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 13 Feb 2014 08:04:53 +0000
Subject: [PATCH] fhem.pl: devspec2array: changed regexp to allow utf8 in
 roomname

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@4905 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/fhem.pl b/fhem.pl
index 53dd4e5d6..844a8ebce 100755
--- a/fhem.pl
+++ b/fhem.pl
@@ -814,12 +814,12 @@ AnalyzeCommand($$;$)
   return undef if(!$cmd);
 
   if($cmd =~ m/^{.*}$/s) {		# Perl code
-    return( "Forbidden command $cmd." ) if( $allowed && $allowed !~ m/\bperl\b/ );
+    return "Forbidden command $cmd." if($allowed && $allowed !~ m/\bperl\b/);
     return AnalyzePerlCommand($cl, $cmd);
   }
 
   if($cmd =~ m/^"(.*)"$/s) { # Shell code in bg, to be able to call us from it
-    return( "Forbidden command $cmd." ) if( $allowed && $allowed !~ m/\bshell\b/ );
+    return "Forbidden command $cmd." if($allowed && $allowed !~ m/\bshell\b/);
     if($evalSpecials) {
       map { $ENV{substr($_,1)} = $evalSpecials->{$_}; } keys %{$evalSpecials};
     }
@@ -851,7 +851,7 @@ AnalyzeCommand($$;$)
   $fn = $cmds{$fn}{ReplacedBy}
                 if(defined($cmds{$fn}) && defined($cmds{$fn}{ReplacedBy}));
 
-  return( "Forbidden command $fn." ) if( $allowed && $allowed !~ m/\b$fn\b/ );
+  return "Forbidden command $fn." if($allowed && $allowed !~ m/\b$fn\b/);
 
   #############
   # autoload commands.
@@ -926,7 +926,7 @@ devspec2array($)
         }
         $val="" if(!defined($val));
 
-        my $lre = ($n eq "room" ? "\\b$re\\b" : "^$re\$");
+        my $lre = ($n eq "room" ? "(^|,)$re(,|\$)" : "^$re\$");
         eval { # a bad regexp is deadly
           if(($op eq  "=" && $val =~ m/$lre/) ||
              ($op eq "!=" && $val !~ m/$lre/)) {