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

fix decode Error

Browse Source
This commit is contained in:
Marko Oldenburg 2017-02-11 13:12:20 +01:00
parent 59c2851a7c
commit cde4da6c8e
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
82_LGTV_WebOS.pm
View File

@ -50,7 +50,7 @@ use JSON qw(decode_json encode_json);
my $version = "0.0.47"; my $version = "0.0.49";
@ -541,7 +541,7 @@ sub LGTV_WebOS_Write($@) {
return Log3 $name, 4, "LGTV_WebOS ($name) - socket not connected" return Log3 $name, 4, "LGTV_WebOS ($name) - socket not connected"
unless($hash->{CD}); unless($hash->{CD});
Log3 $name, 5, "LGTV_WebOS ($name) - $string"; Log3 $name, 4, "LGTV_WebOS ($name) - $string";
syswrite($hash->{CD}, $string); syswrite($hash->{CD}, $string);
return undef; return undef;
} }
@ -560,7 +560,7 @@ sub LGTV_WebOS_Read($) {
$len = sysread($hash->{CD},$buf,4096); # die genaue Puffergröße wird noch ermittelt $len = sysread($hash->{CD},$buf,4096); # die genaue Puffergröße wird noch ermittelt
if( !defined($len) or !$len ) { if( !defined($len) or !$len ) {
Log3 $name, 5, "LGTV_WebOS ($name) - connection closed by remote Host"; Log3 $name, 4, "LGTV_WebOS ($name) - connection closed by remote Host";
LGTV_WebOS_Close($hash); LGTV_WebOS_Close($hash);
return; return;
} }
@ -571,7 +571,7 @@ sub LGTV_WebOS_Read($) {
} }
Log3 $name, 5, "LGTV_WebOS ($name) - received buffer data, start response processing: $buf"; Log3 $name, 4, "LGTV_WebOS ($name) - received buffer data, start response processing: $buf";
LGTV_WebOS_ResponseProcessing($hash,$buf); LGTV_WebOS_ResponseProcessing($hash,$buf);
} }
@ -611,7 +611,7 @@ sub LGTV_WebOS_ProcessRead($$) {
Log3 $name, 5, "LGTV_WebOS ($name) - Decoding JSON message. Length: " . length($json) . " Content: " . $json; Log3 $name, 5, "LGTV_WebOS ($name) - Decoding JSON message. Length: " . length($json) . " Content: " . $json;
my $obj = decode($json); my $obj = decode_json($json);
if(defined($obj->{type})) { if(defined($obj->{type})) {
Log3 $name, 4, "LGTV_WebOS ($name) - no type in object, json error"; Log3 $name, 4, "LGTV_WebOS ($name) - no type in object, json error";
@ -619,7 +619,7 @@ sub LGTV_WebOS_ProcessRead($$) {
} elsif(defined($obj->{error})) { } elsif(defined($obj->{error})) {
Log3 $name, 3, "LGTV_WebOS ($name) - Received error message: " . $json; Log3 $name, 4, "LGTV_WebOS ($name) - Received error message: " . $json;
} }
($json,$tail) = LGTV_WebOS_ParseMsg($hash, $tail); ($json,$tail) = LGTV_WebOS_ParseMsg($hash, $tail);
@ -654,7 +654,7 @@ sub LGTV_WebOS_Handshake($) {
$hash->{helper}{wsKey} = $wsKey; $hash->{helper}{wsKey} = $wsKey;
Log3 $name, 5, "LGTV_WebOS ($name) - send Handshake to WriteFn"; Log3 $name, 4, "LGTV_WebOS ($name) - send Handshake to WriteFn";
LGTV_WebOS_TimerStatusRequest($hash); LGTV_WebOS_TimerStatusRequest($hash);
@ -714,7 +714,7 @@ sub LGTV_WebOS_ResponseProcessing($$) {
if(not defined($json) and not ($json) ) { if(not defined($json) and not ($json) ) {
Log3 $name, 5, "LGTV_WebOS ($name) - Corrected JSON String empty"; Log3 $name, 4, "LGTV_WebOS ($name) - Corrected JSON String empty";
return; return;
} }
my $decode_json = decode_json($json); my $decode_json = decode_json($json);