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

<type>[optional scope]: <description>

Browse Source 
[optional body]

[Ticket: no]
This commit is contained in:
Marko Oldenburg 2023-11-16 19:54:27 +01:00
parent 938f19f3a7
commit 63371a5049
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
controls_LGTV_WebOS.txt
View File

@ -1,2 +1,2 @@
UPD 2023-11-15_19:19:41 19028 FHEM/82_LGTV_WebOS.pm
UPD 2023-11-16_19:49:21 55997 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
UPD 2023-11-16_19:54:21 56056 lib/FHEM/Devices/LGTV/LGTVWebOS.pm

17
lib/FHEM/Devices/LGTV/LGTVWebOS.pm
View File

@ -643,6 +643,7 @@ 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" );
@ -654,20 +655,22 @@ sub Open {
PeerHost => $host,
PeerPort => 3001,
Proto => 'tcp',
SSL_startHandshake => 1, #( $proto eq 'wss' ? 1 : 0 ),
SSL_verify_mode => 'SSL_VERIFY_NONE',
KeepAlive => 1,
Timeout => $timeout
SSL_startHandshake => 1, #( $proto eq 'wss' ? 1 : 0 ),
SSL_verify_mode => SSL_VERIFY_NONE,
# Blocking => 1
KeepAlive => 1,
Timeout => $timeout
)
|| IO::Socket::INET->new(
PeerHost => $host,
PeerPort => 3000,
PeerPort => $port,
Proto => 'tcp',
KeepAlive => 1,
Timeout => $timeout
)
or
return ::Log3( $name, 4, "LGTV_WebOS ($name) Couldn't connect to $host" )
or return ::Log3( $name, 4,
"LGTV_WebOS ($name) Couldn't connect to $host:$port/3001" )
; # open Socket
$hash->{FD} = $socket->fileno();