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

bugfix Logmode und repeat off

Browse Source
This commit is contained in:
Marko Oldenburg 2017-02-03 16:08:10 +01:00
parent 41765c10f9
commit ce192034cd
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
21_HEOSMaster.pm
View File

@ -42,10 +42,11 @@ use strict;
use warnings; use warnings;
use JSON qw(decode_json); use JSON qw(decode_json);
use Encode qw(encode_utf8);
use Net::Telnet; use Net::Telnet;
my $version = "0.1.44"; my $version = "0.1.45";
my %heosCmds = ( my %heosCmds = (
@ -380,7 +381,7 @@ sub HEOSMaster_Read($) {
return; return;
} }
Log3 $name, 4, "HEOSMaster ($name) - received buffer data, start preprocessing: $buf"; Log3 $name, 5, "HEOSMaster ($name) - received buffer data, start preprocessing: $buf";
HEOSMaster_PreResponseProsessing($hash,$buf); HEOSMaster_PreResponseProsessing($hash,$buf);
} }
@ -433,14 +434,14 @@ sub HEOSMaster_ResponseProcessing($$) {
my $decode_json; my $decode_json;
Log3 $name, 3, "HEOSMaster ($name) - JSON String: $json"; Log3 $name, 5, "HEOSMaster ($name) - JSON String: $json";
return Log3 $name, 3, "HEOSMaster ($name) - empty answer received" return Log3 $name, 3, "HEOSMaster ($name) - empty answer received"
unless( defined($json)); unless( defined($json));
Log3 $name, 4, "HEOSMaster ($name) - json detected: $json"; Log3 $name, 4, "HEOSMaster ($name) - JSON detected!";
$decode_json = decode_json($json); $decode_json = decode_json(encode_utf8($json));
return Log3 $name, 3, "HEOSMaster ($name) - decode_json has no Hash" return Log3 $name, 3, "HEOSMaster ($name) - decode_json has no Hash"
unless(ref($decode_json) eq "HASH"); unless(ref($decode_json) eq "HASH");

6
21_HEOSPlayer.pm
View File

@ -34,7 +34,7 @@ use JSON qw(decode_json);
use Encode qw(encode_utf8); use Encode qw(encode_utf8);
my $version = "0.1.44"; my $version = "0.1.45";
@ -255,6 +255,10 @@ sub HEOSPlayer_Set($$@) {
} elsif($args[0] eq 'one') { } elsif($args[0] eq 'one') {
$rvalue = 'on_one'; $rvalue = 'on_one';
} else {
$rvalue = $args[0];
} }
$action = "repeat=$rvalue&shuffle=" . ReadingsVal($name,'shuffle','off'); $action = "repeat=$rvalue&shuffle=" . ReadingsVal($name,'shuffle','off');