FHEM/mod-AMAD
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix other bug

Browse Source
This commit is contained in:
Marko Oldenburg 2017-12-16 23:08:57 +01:00
parent fe96f227d5
commit 20722ff19e
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
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 "; eval "use JSON;1" or $missingModul .= "JSON ";
my $modulversion = "4.1.99.15"; my $modulversion = "4.1.99.17";
my $flowsetversion = "4.0.11"; my $flowsetversion = "4.0.11";
@ -253,6 +253,10 @@ sub AMADCommBridge_Write($@) {
my $remoteServer = AttrVal($dhash->{NAME},'remoteServer','Automagic'); my $remoteServer = AttrVal($dhash->{NAME},'remoteServer','Automagic');
Log3 $name, 4, "AMADCommBridge ($name) - AMADCommBridge_Write Path: $path";
return readingsSingleUpdate($dhash,'lastSetCommand',$path,1)
if( $remoteServer eq 'other' );
$param = { url => "http://" . $uri . $path, timeout => 15, hash => $hash, amad_id => $amad_id, method => $method, header => $header, doTrigger => 1, callback => \&AMADCommBridge_ErrorHandling } if($remoteServer eq 'Automagic'); $param = { url => "http://" . $uri . $path, timeout => 15, hash => $hash, amad_id => $amad_id, method => $method, header => $header, doTrigger => 1, callback => \&AMADCommBridge_ErrorHandling } if($remoteServer eq 'Automagic');
@ -271,12 +275,9 @@ sub AMADCommBridge_Write($@) {
doTrigger => 1, callback => \&AMADCommBridge_ErrorHandling doTrigger => 1, callback => \&AMADCommBridge_ErrorHandling
} if($remoteServer eq 'TNES'); } if($remoteServer eq 'TNES');
Log3 $name, 5, "AMADCommBridge ($name) - Send with remoteServer: $remoteServer URL: $param->{url}, HEADER: $param->{header}, METHOD: $method, DATA: $param->{data}";
HttpUtils_NonblockingGet($param) if( defined($param) );
HttpUtils_NonblockingGet($param);
Log3 $name, 5, "AMADCommBridge ($name) - Send with URI: $uri, HEADER: $header, METHOD: $method";
} }
sub AMADCommBridge_ErrorHandling($$$) { sub AMADCommBridge_ErrorHandling($$$) {

2
74_AMADDevice.pm
View File

@ -58,7 +58,7 @@ eval "use Encode qw(encode encode_utf8);1" or $missingModul .= "Encode ";
eval "use JSON;1" or $missingModul .= "JSON "; eval "use JSON;1" or $missingModul .= "JSON ";
my $modulversion = "4.1.99.15"; my $modulversion = "4.1.99.17";
my $flowsetversion = "4.0.11"; my $flowsetversion = "4.0.11";