FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 06:39:11 +00:00
Code Issues Releases Wiki Activity

73_AMADCommBridge: fix double set Command on Bridge, 31_PLAYBULB fix missing right curl

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14989 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
LeonGaultier 2017-09-02 15:56:02 +00:00
parent 7326aa295e
commit 7e21c24f15
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/CHANGED
View File

@ -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)

4
fhem/FHEM/31_PLAYBULB.pm
View File

@ -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;
}

10
fhem/FHEM/73_AMADCommBridge.pm
View File

@ -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",