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

Subject line (try to keep under 50 characters)

Browse Source 
Multi-line description of commit,
feel free to be detailed.

[Ticket: X]
This commit is contained in:
Marko Oldenburg 2022-03-17 08:40:25 +01:00
parent 2cf4007b05
commit d990354547
2 changed files with 32 additions and 3 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 2022-03-13_11:17:13 18968 FHEM/82_LGTV_WebOS.pm
UPD 2022-03-17_08:25:38 54313 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
UPD 2022-03-17_08:40:15 54825 lib/FHEM/Devices/LGTV/LGTVWebOS.pm

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

@ -994,6 +994,8 @@ sub WriteServiceReadings {
my $hash = shift;
my $decode_json = shift;
::readingsBeginUpdate($hash);
for my $services ( @{ $decode_json->{payload}{services} } ) {
::readingsBulkUpdateIfChanged(
$hash,
@ -1002,6 +1004,8 @@ sub WriteServiceReadings {
);
}
::readingsEndUpdate( $hash, 1 );
return;
}
@ -1009,6 +1013,8 @@ sub WriteDeviceReadings {
my $hash = shift;
my $decode_json = shift;
::readingsBeginUpdate($hash);
for my $devices ( @{ $decode_json->{payload}{devices} } ) {
if ( !exists( $hash->{helper}{device}{inputs}{ $devices->{label} } )
@ -1029,6 +1035,8 @@ sub WriteDeviceReadings {
);
}
::readingsEndUpdate( $hash, 1 );
return;
}
@ -1038,6 +1046,9 @@ sub WriteProgramlistReadings {
require Date::Parse;
my $count = 0;
::readingsBeginUpdate($hash);
for my $programList ( @{ $decode_json->{payload}{programList} } ) {
if (
@ -1069,6 +1080,8 @@ sub WriteProgramlistReadings {
}
}
::readingsEndUpdate( $hash, 1 );
return;
}
@ -1076,6 +1089,8 @@ sub WriteMuteReadings {
my $hash = shift;
my $decode_json = shift;
::readingsBeginUpdate($hash);
if (
exists( $decode_json->{payload}{'mute'} )
&& ( $decode_json->{payload}{'mute'} eq 'true'
@ -1115,6 +1130,8 @@ sub WriteMuteReadings {
::readingsBulkUpdateIfChanged( $hash, 'mute', 'off' );
}
::readingsEndUpdate( $hash, 1 );
return;
}
@ -1122,6 +1139,8 @@ sub Write3dReadings {
my $hash = shift;
my $decode_json = shift;
::readingsBeginUpdate($hash);
if ( $decode_json->{payload}{status3D}{status} eq 'false'
|| $decode_json->{payload}{status3D}{status} == 0 )
{
@ -1139,6 +1158,8 @@ sub Write3dReadings {
::readingsBulkUpdateIfChanged( $hash, '3DMode',
$decode_json->{payload}{status3D}{pattern} );
::readingsEndUpdate( $hash, 1 );
return;
}
@ -1146,6 +1167,8 @@ sub WriteAppIdReadings {
my $hash = shift;
my $decode_json = shift;
::readingsBeginUpdate($hash);
if (
(
$decode_json->{payload}{appId} =~ /com.webos.app.externalinput/x
@ -1173,6 +1196,8 @@ sub WriteAppIdReadings {
::readingsBulkUpdateIfChanged( $hash, 'input', '-' );
}
::readingsEndUpdate( $hash, 1 );
return;
}
@ -1182,6 +1207,8 @@ sub WriteTypeReadings {
my $response;
::readingsBeginUpdate($hash);
if ( $decode_json->{type} eq 'registered'
&& exists( $decode_json->{payload}{'client-key'} ) )
{
@ -1225,6 +1252,8 @@ sub WriteTypeReadings {
if ( $hash->{helper}{device}{runsetcmd} > 0 );
}
::readingsEndUpdate( $hash, 1 );
return $response;
}
@ -1236,8 +1265,6 @@ sub WriteReadings {
::Log3( $name, 4, "LGTV_WebOS ($name) - Beginn Readings writing" );
::readingsBeginUpdate($hash);
if ( ref( $decode_json->{payload}{services} ) eq "ARRAY"
&& scalar( @{ $decode_json->{payload}{services} } ) > 0 )
{
@ -1266,6 +1293,8 @@ sub WriteReadings {
WriteAppIdReadings( $hash, $decode_json );
}
::readingsBeginUpdate($hash);
if ( exists( $decode_json->{type} ) ) {
$response = WriteTypeReadings( $hash, $decode_json );
}