Merge pull request 'dev' (#14) from dev into main

Reviewed-on: #14
This commit is contained in:
Marko Oldenburg 2023-05-16 04:28:06 +02:00
commit 38c47bd0ef
3 changed files with 18 additions and 13 deletions

View File

@ -2,7 +2,7 @@
# #
# Developed with VSCodium and richterger perl plugin. # Developed with VSCodium and richterger perl plugin.
# #
# (c) 2017-2022 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net) # (c) 2017-2023 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
# All rights reserved # All rights reserved
# #
# Special thanks goes to comitters: # Special thanks goes to comitters:
@ -368,7 +368,7 @@ __END__
], ],
"release_status": "stable", "release_status": "stable",
"license": "GPL_2", "license": "GPL_2",
"version": "v3.6.5", "version": "v3.6.9",
"author": [ "author": [
"Marko Oldenburg <fhemdevelopment@cooltux.net>" "Marko Oldenburg <fhemdevelopment@cooltux.net>"
], ],

View File

@ -1,2 +1,2 @@
UPD 2022-03-31_06:48:33 18968 FHEM/82_LGTV_WebOS.pm UPD 2023-05-16_04:16:05 18968 FHEM/82_LGTV_WebOS.pm
UPD 2022-03-31_14:55:57 55129 lib/FHEM/Devices/LGTV/LGTVWebOS.pm UPD 2023-05-16_04:14:37 55512 lib/FHEM/Devices/LGTV/LGTVWebOS.pm

View File

@ -2,7 +2,7 @@
# #
# Developed with VSCodium and richterger perl plugin. # Developed with VSCodium and richterger perl plugin.
# #
# (c) 2017-2022 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net) # (c) 2017-2023 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
# All rights reserved # All rights reserved
# #
# Special thanks goes to comitters: # Special thanks goes to comitters:
@ -363,6 +363,8 @@ sub TimerStatusRequest {
else { else {
::readingsBulkUpdateIfChanged( $hash, 'state', 'off' ) ::readingsBulkUpdateIfChanged( $hash, 'state', 'off' )
if ( ::ReadingsVal( $name, 'state', 'off' ) ne 'off' ); if ( ::ReadingsVal( $name, 'state', 'off' ) ne 'off' );
::readingsBulkUpdateIfChanged( $hash, 'power', 'off' )
if ( ::ReadingsVal( $name, 'power', 'off' ) ne 'off' );
Presence($hash) Presence($hash)
if ( ::AttrVal( $name, 'pingPresence', 0 ) == 1 ); if ( ::AttrVal( $name, 'pingPresence', 0 ) == 1 );
@ -686,6 +688,7 @@ sub Close {
delete( $hash->{FD} ); delete( $hash->{FD} );
::readingsSingleUpdate( $hash, 'state', 'off', 1 ); ::readingsSingleUpdate( $hash, 'state', 'off', 1 );
::readingsSingleUpdate( $hash, 'power', 'off', 1 );
::Log3( $name, 4, "LGTV_WebOS ($name) - Socket Disconnected" ); ::Log3( $name, 4, "LGTV_WebOS ($name) - Socket Disconnected" );
@ -962,6 +965,7 @@ sub ResponseProcessing {
"LGTV_WebOS ($name) - Sucessfull WS connection to $hash->{HOST}" "LGTV_WebOS ($name) - Sucessfull WS connection to $hash->{HOST}"
); );
::readingsSingleUpdate( $hash, 'state', 'on', 1 ); ::readingsSingleUpdate( $hash, 'state', 'on', 1 );
::readingsSingleUpdate( $hash, 'power', 'on', 1 );
} }
else { else {
@ -1342,6 +1346,7 @@ sub WriteReadings {
} }
::readingsBulkUpdateIfChanged( $hash, 'state', 'on' ); ::readingsBulkUpdateIfChanged( $hash, 'state', 'on' );
::readingsBulkUpdateIfChanged( $hash, 'power', 'on' );
::readingsEndUpdate( $hash, 1 ); ::readingsEndUpdate( $hash, 1 );