diff --git a/FHEM/82_LGTV_WebOS.pm b/FHEM/82_LGTV_WebOS.pm index f1aa219..1967a60 100644 --- a/FHEM/82_LGTV_WebOS.pm +++ b/FHEM/82_LGTV_WebOS.pm @@ -7,6 +7,7 @@ # # Special thanks goes to comitters: # - Vitolinker / Commandref +# - ska- / SSL_startHandshake - SSL Port 3001 Support # # # This script is free software; you can redistribute it and/or modify diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt index 3e08321..438e3ff 100644 --- a/controls_LGTV_WebOS.txt +++ b/controls_LGTV_WebOS.txt @@ -1,2 +1,2 @@ -UPD 2023-05-16_04:16:05 18968 FHEM/82_LGTV_WebOS.pm -UPD 2023-05-16_04:14:37 55512 lib/FHEM/Devices/LGTV/LGTVWebOS.pm +UPD 2023-11-15_19:19:41 19028 FHEM/82_LGTV_WebOS.pm +UPD 2023-11-15_19:19:45 55994 lib/FHEM/Devices/LGTV/LGTVWebOS.pm diff --git a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm index e8cd3c2..76d92b7 100644 --- a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm +++ b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm @@ -643,14 +643,25 @@ sub Open { my $hash = shift; my $name = $hash->{NAME}; my $host = $hash->{HOST}; - my $port = 3000; my $timeout = 0.1; ::Log3( $name, 4, "LGTV_WebOS ($name) - Baue Socket Verbindung auf" ); - my $socket = IO::Socket::INET->new( + # create a connecting socket + # SSL_startHandshake is dependent on the protocol: this lets us use one socket + # to work with either SSL or non-SSL sockets. + my $socket = IO::Socket::SSL->new( + PeerHost => $host, + PeerPort => 3001, + Proto => 'tcp', + SSL_startHandshake => 1, #( $proto eq 'wss' ? 1 : 0 ), + SSL_verify_mode => SSL_VERIFY_NONE, + KeepAlive => 1, + Timeout => $timeout + ) + || IO::Socket::INET->new( PeerHost => $host, - PeerPort => $port, + PeerPort => 3000, Proto => 'tcp', KeepAlive => 1, Timeout => $timeout