From 4a1e7b48cbeae87dc1effe3e5be406a807bcf08b Mon Sep 17 00:00:00 2001
From: Byte09 <>
Date: Sat, 13 Apr 2019 06:25:49 +0000
Subject: [PATCH] 98_MSwitch.pm:Fix - Fix Perl warning / change include webcmds

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@19167 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/98_MSwitch.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/FHEM/98_MSwitch.pm b/FHEM/98_MSwitch.pm
index 0c096a29e..11929fd12 100644
--- a/FHEM/98_MSwitch.pm
+++ b/FHEM/98_MSwitch.pm
@@ -3101,8 +3101,7 @@ sub MSwitch_checkbridge($$$) {
     }
 
     MSwitch_LOG( $name, 6, "suche nach schlüssel:-$event-" );
-    MSwitch_LOG( $name, 6,
-        "helper eventoid : " . $hash->{helper}{eventtoid}{$foundkey} );
+    MSwitch_LOG( $name, 6, "helper eventoid : " . $hash->{helper}{eventtoid}{$foundkey} ) if ($hash->{helper}{eventtoid}{$foundkey});
 
     return "no_bridge" if $expertmode eq "0";
     return "no_bridge" if $bridgemode eq "0";
@@ -3601,8 +3600,10 @@ sub MSwitch_fhemwebFn($$$$) {
         $errors =~ s/\| //g;
         $errors =~ s/\|//g;
 
-        if ( $errors eq ''
-            && AttrVal( $Name, 'MSwitch_Include_Webcmds', "1" ) eq '1' )
+       # if ( $errors eq '' && AttrVal( $Name, 'MSwitch_Include_Webcmds', "1" ) eq '1' )
+		if ( AttrVal( $Name, 'MSwitch_Include_Webcmds', "1" ) eq '1' )
+		
+		
         {
             if ( $devicewebcmd ne "noArg" ) {
                 my $device = '';
@@ -3619,7 +3620,7 @@ sub MSwitch_fhemwebFn($$$$) {
                 }
                 chop $device;
                 $devicewebcmd = $device;
-                $errors       = $devicewebcmd;
+               $errors .= ' ' .  $devicewebcmd;
             }
         }