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

add multi Player for groupWithMember

Browse Source
This commit is contained in:
Marko Oldenburg 2017-02-27 14:59:46 +01:00
parent ccf0731351
commit a2b6c92ed9
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
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.62"; my $version = "0.1.63";
# Declare functions # Declare functions
sub HEOSGroup_Initialize($); sub HEOSGroup_Initialize($);

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.62"; my $version = "0.1.63";
my %heosCmds = ( my %heosCmds = (
'enableChangeEvents' => 'system/register_for_change_events?enable=', 'enableChangeEvents' => 'system/register_for_change_events?enable=',

12
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.62"; my $version = "0.1.63";
# Declare functions # Declare functions
sub HEOSPlayer_Initialize($); sub HEOSPlayer_Initialize($);
@ -358,7 +358,12 @@ sub HEOSPlayer_Set($$@) {
} elsif( $cmd eq 'groupWithMember' ) { } elsif( $cmd eq 'groupWithMember' ) {
return "usage: groupWithMember" if( @args != 1 ); return "usage: groupWithMember" if( @args != 1 );
$string .= ",$defs{$args[0]}->{PID}"; foreach ( split('\,', $args[0]) ) {
$string .= ",$defs{$_}->{PID}";
printf "String: $string\n";
}
$heosCmd = 'createGroup'; $heosCmd = 'createGroup';
} elsif( $cmd eq 'clearGroup' ) { } elsif( $cmd eq 'clearGroup' ) {
@ -591,7 +596,8 @@ sub HEOSPlayer_Set($$@) {
my $sid = ReadingsVal($name,".input", "9999"); my $sid = ReadingsVal($name,".input", "9999");
my $list = "getPlayerInfo:noArg getPlayState:noArg getNowPlayingMedia:noArg getPlayMode:noArg play:noArg stop:noArg pause:noArg mute:on,off volume:slider,0,5,100 volumeUp:slider,0,1,10 volumeDown:slider,0,1,10 repeat:one,all,off shuffle:on,off channelUp:noArg channelDown:noArg next:noArg prev:noArg history:track,channel "; my $list = "getPlayerInfo:noArg getPlayState:noArg getNowPlayingMedia:noArg getPlayMode:noArg play:noArg stop:noArg pause:noArg mute:on,off volume:slider,0,5,100 volumeUp:slider,0,1,10 volumeDown:slider,0,1,10 repeat:one,all,off shuffle:on,off channelUp:noArg channelDown:noArg next:noArg prev:noArg history:track,channel ";
$list .= "groupWithMember:" . join( ",", devspec2array("TYPE=HEOSPlayer:FILTER=NAME!=$name") ); #$list .= "groupWithMember:" . join( ",", devspec2array("TYPE=HEOSPlayer:FILTER=NAME!=$name") );
$list .= "groupWithMember:multiple-strict," . join( ",", devspec2array("TYPE=HEOSPlayer:FILTER=NAME!=$name") );
#Parameterlisten für FHEMWeb zusammen bauen #Parameterlisten für FHEMWeb zusammen bauen
$list .= " channel:slider,1,1,".scalar(@{$hash->{IODev}{helper}{favorites}}) if ( defined $hash->{IODev}{helper}{favorites} ); $list .= " channel:slider,1,1,".scalar(@{$hash->{IODev}{helper}{favorites}}) if ( defined $hash->{IODev}{helper}{favorites} );
#$list .= " playQueue:slider,1,1,".scalar(@{$hash->{helper}{queue}}) if ( defined $hash->{helper}{queue} ); #$list .= " playQueue:slider,1,1,".scalar(@{$hash->{helper}{queue}}) if ( defined $hash->{helper}{queue} );