LUXTRONIK2: bugfix - port change by set-Commands

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@16594 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tupol 2018-04-12 16:58:59 +00:00
parent 73b7f4f1bf
commit be251e6bf6

View File

@ -1393,6 +1393,7 @@ sub LUXTRONIK2_SetParameter ($$$)
my $result; my $result;
my $buffer; my $buffer;
my $host = $hash->{HOST}; my $host = $hash->{HOST};
my $port = $hash->{PORT};
my $name = $hash->{NAME}; my $name = $hash->{NAME};
my %opMode = ( "Auto" => 0, my %opMode = ( "Auto" => 0,
@ -1512,7 +1513,7 @@ sub LUXTRONIK2_SetParameter ($$$)
if ($setParameter != 0) { if ($setParameter != 0) {
LUXTRONIK2_Log $name, 5, "Opening connection to host ".$host; LUXTRONIK2_Log $name, 5, "Opening connection to host ".$host;
my $socket = new IO::Socket::INET ( PeerAddr => $host, my $socket = new IO::Socket::INET ( PeerAddr => $host,
PeerPort => 8888, PeerPort => $port,
Proto => 'tcp' Proto => 'tcp'
); );
# Socket error # Socket error