diff --git a/fhem/CHANGED b/fhem/CHANGED index b4d1a1062..2670b1835 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,7 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - bugfix: 73_AMADCommBridge: fix doubble set Command at Bridge + - bugfix: 31_PLAYBULB: fix right curl Missing - changed: 72_FB_CALLMONITOR: reverse search only numbers for the specific country (e.g. german numbers only via klicktel.de,dasoertliche.de, austrian numbers via dasschnelle.at, swiss via search.ch) diff --git a/fhem/FHEM/31_PLAYBULB.pm b/fhem/FHEM/31_PLAYBULB.pm index fae25a6b3..cad7c01ed 100644 --- a/fhem/FHEM/31_PLAYBULB.pm +++ b/fhem/FHEM/31_PLAYBULB.pm @@ -41,7 +41,7 @@ use Blocking; use SetExtensions; -my $version = "1.2.5"; +my $version = "1.2.6"; @@ -168,7 +168,7 @@ sub PLAYBULB_Undef($$) { Log3 $name, 3, "PLAYBULB ($name) - undefined"; - delete($modules{PLAYBULB}{defptr}{$hash->{BTMAC}); + delete($modules{PLAYBULB}{defptr}{$hash->{BTMAC}}); return undef; } diff --git a/fhem/FHEM/73_AMADCommBridge.pm b/fhem/FHEM/73_AMADCommBridge.pm index 30caf20c3..a1b1960a5 100644 --- a/fhem/FHEM/73_AMADCommBridge.pm +++ b/fhem/FHEM/73_AMADCommBridge.pm @@ -74,7 +74,7 @@ eval "use Encode qw(encode encode_utf8);1" or $missingModul .= "Encode "; eval "use JSON;1" or $missingModul .= "JSON "; -my $modulversion = "4.0.4"; +my $modulversion = "4.0.5"; my $flowsetversion = "4.0.5"; @@ -807,13 +807,11 @@ sub AMADCommBridge_ResponseProcessing($$) { elsif ( $fhemcmd eq 'set' ) { my $fhemCmd = $decode_json->{payload}{setcmd}; - - fhem ("set $fhemCmd") if( AttrVal( $bname, 'fhemControlMode', 'trigger' ) eq 'setControl' ); - my $r = AnalyzeCommandChain($bhash, 'set '.$fhemCmd); + AnalyzeCommandChain($bhash, 'set '.$fhemCmd) if( AttrVal( $bname, 'fhemControlMode', 'trigger' ) eq 'setControl' ); readingsSingleUpdate( $bhash, "receiveFhemCommand", "set ".$fhemCmd, 1 ) if( AttrVal( $bname, 'fhemControlMode', 'trigger' ) eq 'trigger' ); Log3 $bname, 4, "AMADCommBridge ($name) - AMADCommBridge_CommBridge: set reading receive fhem command"; - $response = "header lines: \r\n AMADCommBridge receive Data complete\r\n FHEM response $r\r\n"; + $response = "header lines: \r\n AMADCommBridge receive Data complete\r\n FHEM response\r\n"; $c = $hash->{CD}; print $c "HTTP/1.1 200 OK\r\n", "Content-Type: text/plain\r\n", @@ -848,7 +846,7 @@ sub AMADCommBridge_ResponseProcessing($$) { my $fhemCmd = $decode_json->{payload}{readingsvalcmd}; my @datavalue = split( ' ', $fhemCmd ); - $response = ReadingsVal( $datavalue[0], $datavalue[1], $datavalue[2] ); + $response = ReadingsVal($datavalue[0],$datavalue[1],$datavalue[2]); $c = $hash->{CD}; print $c "HTTP/1.1 200 OK\r\n", "Content-Type: text/plain\r\n",