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

debugging mode change, add utf8 encode for json string

Browse Source
This commit is contained in:
Marko Oldenburg 2017-02-03 08:54:57 +01:00
parent 4e3d2d05c7
commit 41765c10f9
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
21_HEOSMaster.pm
View File

@ -41,11 +41,11 @@ package main;
use strict; use strict;
use warnings; use warnings;
use JSON; use JSON qw(decode_json);
use Net::Telnet; use Net::Telnet;
my $version = "0.1.43"; my $version = "0.1.44";
my %heosCmds = ( my %heosCmds = (
@ -380,7 +380,7 @@ sub HEOSMaster_Read($) {
return; return;
} }
Log3 $name, 3, "HEOSMaster ($name) - received buffer data, start preprocessing: $buf"; Log3 $name, 4, "HEOSMaster ($name) - received buffer data, start preprocessing: $buf";
HEOSMaster_PreResponseProsessing($hash,$buf); HEOSMaster_PreResponseProsessing($hash,$buf);
} }
@ -439,7 +439,7 @@ sub HEOSMaster_ResponseProcessing($$) {
unless( defined($json)); unless( defined($json));
Log3 $name, 3, "HEOSMaster ($name) - json detected: $json"; Log3 $name, 4, "HEOSMaster ($name) - json detected: $json";
$decode_json = decode_json($json); $decode_json = decode_json($json);
return Log3 $name, 3, "HEOSMaster ($name) - decode_json has no Hash" return Log3 $name, 3, "HEOSMaster ($name) - decode_json has no Hash"

7
21_HEOSPlayer.pm
View File

@ -30,10 +30,11 @@ package main;
use strict; use strict;
use warnings; use warnings;
use JSON; use JSON qw(decode_json);
use Encode qw(encode_utf8);
my $version = "0.1.43"; my $version = "0.1.44";
@ -338,7 +339,7 @@ sub HEOSPlayer_Parse($$) {
my $decode_json; my $decode_json;
$decode_json = decode_json($json); $decode_json = decode_json(encode_utf8($json));
Log3 $name, 4, "HEOSPlayer ($name) - ParseFn wurde aufgerufen"; Log3 $name, 4, "HEOSPlayer ($name) - ParseFn wurde aufgerufen";