From e032306c44133de5f20cf331af221af037c87891 Mon Sep 17 00:00:00 2001
From: tupol <>
Date: Thu, 12 Apr 2018 16:58:59 +0000
Subject: [PATCH] LUXTRONIK2: bugfix - port change by set-Commands

git-svn-id: https://svn.fhem.de/fhem/trunk@16594 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/23_LUXTRONIK2.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/23_LUXTRONIK2.pm b/fhem/FHEM/23_LUXTRONIK2.pm
index 4006b9f1a..81ee5fc81 100644
--- a/fhem/FHEM/23_LUXTRONIK2.pm
+++ b/fhem/FHEM/23_LUXTRONIK2.pm
@@ -1393,6 +1393,7 @@ sub LUXTRONIK2_SetParameter ($$$)
   my $result;
   my $buffer;
   my $host = $hash->{HOST};
+  my $port = $hash->{PORT};
   my $name = $hash->{NAME};
   
    my %opMode = ( "Auto" => 0,
@@ -1512,7 +1513,7 @@ sub LUXTRONIK2_SetParameter ($$$)
   if ($setParameter != 0) {
      LUXTRONIK2_Log $name, 5, "Opening connection to host ".$host;
      my $socket = new IO::Socket::INET (  PeerAddr => $host, 
-                     PeerPort => 8888,
+                     PeerPort => $port,
                      Proto => 'tcp'
        );
       # Socket error