From d2873d141847d4f3fdcc312d65d4b4534fc64d3a Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Thu, 21 Dec 2017 22:06:55 +0100
Subject: [PATCH] add change remoteServer with port

---
 73_AMADCommBridge.pm |  4 ++--
 74_AMADDevice.pm     | 25 +++++++++++++++++++++++--
 2 files changed, 25 insertions(+), 4 deletions(-)

diff --git a/73_AMADCommBridge.pm b/73_AMADCommBridge.pm
index 37bbe16..91a2ba4 100644
--- a/73_AMADCommBridge.pm
+++ b/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.1.99.23";
+my $modulversion = "4.1.99.24";
 my $flowsetversion = "4.1.99.3";
 
 
@@ -277,7 +277,7 @@ sub AMADCommBridge_Write($@) {
 
                 
     my $logtext = "AMADCommBridge ($name) - Send with remoteServer: $remoteServer URL: $param->{url}, HEADER: $param->{header}, METHOD: $method";
-        $logtext .= ", DATA: $param->{data}" if( $remoteServer ne 'Automagic';
+        $logtext .= ", DATA: $param->{data}" if( $remoteServer ne 'Automagic' );
     Log3 $name, 5, "$logtext";
     
 
diff --git a/74_AMADDevice.pm b/74_AMADDevice.pm
index 1d593fc..696172a 100644
--- a/74_AMADDevice.pm
+++ b/74_AMADDevice.pm
@@ -58,7 +58,7 @@ eval "use Encode qw(encode encode_utf8);1" or $missingModul .= "Encode ";
 eval "use JSON;1" or $missingModul .= "JSON ";
 
 
-my $modulversion = "4.1.99.25";
+my $modulversion = "4.1.99.27";
 my $flowsetversion = "4.1.99.3";
 
 
@@ -233,7 +233,28 @@ sub AMADDevice_Attr(@) {
     
     my $orig = $attrVal;
 
-    if( $attrName eq "disable" ) {
+    if( $attrName eq "remoteServer" ) {
+        if( $cmd eq "set" ) {
+            if( $attrVal eq "Automagic" ) {
+                $hash->{PORT}   = 8090;
+                Log3 $name, 3, "AMADDevice ($name) - set remoteServer to Automagic";
+            
+            } elsif( $attrVal eq "Autoremote" ) {
+                $hash->{PORT}   = 1817;
+                Log3 $name, 3, "AMADDevice ($name) - set remoteServer to Autoremote";
+            
+            } elsif( $attrVal eq "TNES" ) {
+                $hash->{PORT}   = 8765;
+                Log3 $name, 3, "AMADDevice ($name) - set remoteServer to TNES";
+            
+            } elsif( $attrVal eq "other" ) {
+                $hash->{PORT}   = 1111;
+                Log3 $name, 3, "AMADDevice ($name) - set remoteServer to other";
+            }
+        }
+    }
+    
+    elsif( $attrName eq "disable" ) {
         if( $cmd eq "set" ) {
             if( $attrVal eq "0" ) {