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

patch-packages #3

Merged
marko merged 11 commits from patch-packages into dev 2022-03-10 07:49:26 +00:00
Conversation 0 Commits 11 Files Changed 4 +41 -12
3 changed files with 41 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 302ad14dda - Show all commits

2
FHEM/82_LGTV_WebOS.pm
View File

@ -330,7 +330,7 @@ use FHEM::Meta;
],
"release_status": "stable",
"license": "GPL_2",
"version": "v3.4.2",
"version": "v3.6.0",
"author": [
"Marko Oldenburg <fhemdevelopment@cooltux.net>"
],

4
controls_LGTV_WebOS.txt
View File

@ -1,2 +1,2 @@
UPD 2022-02-02_12:25:53 18011 FHEM/82_LGTV_WebOS.pm
UPD 2022-02-02_13:49:22 54363 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
UPD 2022-02-02_14:30:51 18011 FHEM/82_LGTV_WebOS.pm
UPD 2022-02-02_14:30:52 55048 lib/FHEM/Devices/LGTV/LGTVWebOS.pm

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

@ -34,6 +34,13 @@ use strict;
use warnings;
use experimental qw /switch/;
## try / catch
use Try::Tiny;
# use Carp;
use autodie qw /:io/;
##
use GPUtils qw(GP_Import);
use FHEM::Meta;
@ -982,12 +989,23 @@ sub ResponseProcessing {
return;
}
my $decode_json = eval { decode_json( encode_utf8($json) ) };
if ($@) {
Log3( $name, 3,
"LGTV_WebOS ($name) - JSON error while request: $@" );
return;
my $decode_json;
try {
$decode_json = decode_json( encode_utf8($json) );
}
catch {
if ( $_->isa('autodie::exception') && $_->matches(':io') ) {
Log3( $name, 3,
"LGTV_WebOS ($name) autodie - JSON error while request: $_"
);
return;
}
else {
Log3( $name, 3,
"LGTV_WebOS ($name) - JSON error while request: $_" );
return;
}
}; # Note semicolon.
WriteReadings( $hash, $decode_json );
@ -1418,11 +1436,22 @@ sub CreateSendCommand {
#::Log3( $name, 5, "LGTV_WebOS ($name) - Payload Message: $command->{payload}{message}" );
my $cmd = eval { encode_json($command) };
if ($@) {
Log3( $name, 3, "LGTV_WebOS ($name) - can't $cmd encode to json: $@" );
return;
my $cmd;
try {
$cmd = encode_json($command);
}
catch {
if ( $_->isa('autodie::exception') && $_->matches(':io') ) {
Log3( $name, 3,
"LGTV_WebOS ($name) - can't $cmd encode to json: $_" );
return;
}
else {
Log3( $name, 3,
"LGTV_WebOS ($name) - can't $cmd encode to json: $_" );
return;
}
};
::Log3( $name, 5, "LGTV_WebOS ($name) - Sending command: $cmd" );