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

diverse bugfixes für Player und Group

Browse Source
This commit is contained in:
Marko Oldenburg 2017-02-27 13:35:51 +01:00
parent 2f766e7c46
commit ccf0731351
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
21_HEOSGroup.pm
View File

@ -36,7 +36,7 @@ use warnings;
use JSON qw(decode_json); use JSON qw(decode_json);
use Encode qw(encode_utf8); use Encode qw(encode_utf8);
my $version = "0.1.61"; my $version = "0.1.62";
# Declare functions # Declare functions
sub HEOSGroup_Initialize($); sub HEOSGroup_Initialize($);
@ -216,7 +216,8 @@ sub HEOSGroup_Notify($$) {
return if( !$events ); return if( !$events );
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
my %playerEevents = map { my ( $key, $value ) = split /:\s/; $value =~ s/^\s+//; ( $key, $value ) } @$events; #my %playerEevents = map { my ( $key, $value ) = split /:\s/; $value =~ s/^\s+//; ( $key, $value ) } @$events;
my %playerEevents = map { my ( $key, $value ) = split /:\s/; ( $key, $value ) } @$events;
foreach my $key ( keys %playerEevents ) { foreach my $key ( keys %playerEevents ) {

2
21_HEOSMaster.pm
View File

@ -47,7 +47,7 @@ use Encode qw(encode_utf8);
use Net::Telnet; use Net::Telnet;
use Data::Dumper; use Data::Dumper;
my $version = "0.1.61"; my $version = "0.1.62";
my %heosCmds = ( my %heosCmds = (
'enableChangeEvents' => 'system/register_for_change_events?enable=', 'enableChangeEvents' => 'system/register_for_change_events?enable=',

9
21_HEOSPlayer.pm
View File

@ -37,7 +37,7 @@ use JSON qw(decode_json);
use Encode qw(encode_utf8); use Encode qw(encode_utf8);
use Data::Dumper; use Data::Dumper;
my $version = "0.1.61"; my $version = "0.1.62";
# Declare functions # Declare functions
sub HEOSPlayer_Initialize($); sub HEOSPlayer_Initialize($);
@ -272,7 +272,7 @@ sub HEOSPlayer_Set($$@) {
my $rvalue; my $rvalue;
my $favoritcount = 1; my $favoritcount = 1;
my $qcount = 1; my $qcount = 1;
my $string = ''; my $string = "pid=$pid";
#print "cmd ###################################################\n".Dumper($cmd); #print "cmd ###################################################\n".Dumper($cmd);
@ -358,7 +358,7 @@ sub HEOSPlayer_Set($$@) {
} elsif( $cmd eq 'groupWithMember' ) { } elsif( $cmd eq 'groupWithMember' ) {
return "usage: groupWithMember" if( @args != 1 ); return "usage: groupWithMember" if( @args != 1 );
$pid .= ",$defs{$args[0]}->{PID}"; $string .= ",$defs{$args[0]}->{PID}";
$heosCmd = 'createGroup'; $heosCmd = 'createGroup';
} elsif( $cmd eq 'clearGroup' ) { } elsif( $cmd eq 'clearGroup' ) {
@ -623,8 +623,7 @@ sub HEOSPlayer_Set($$@) {
return "Unknown argument $cmd, choose one of $list"; return "Unknown argument $cmd, choose one of $list";
} }
$string .= "pid=$pid";
$string .= "&$action" if( defined($action)); $string .= "&$action" if( defined($action));
IOWrite($hash,"$heosCmd","$string"); IOWrite($hash,"$heosCmd","$string");
Log3 $name, 4, "HEOSPlayer ($name) - IOWrite: $heosCmd $string IODevHash=$hash->{IODev}"; Log3 $name, 4, "HEOSPlayer ($name) - IOWrite: $heosCmd $string IODevHash=$hash->{IODev}";