diff --git a/fhem/FHEM/70_PIONEERAVR.pm b/fhem/FHEM/70_PIONEERAVR.pm index f72373837..052b85f46 100644 --- a/fhem/FHEM/70_PIONEERAVR.pm +++ b/fhem/FHEM/70_PIONEERAVR.pm @@ -1615,6 +1615,7 @@ PIONEERAVR_Set($@) . " speakers:off,A,B,A+B raw" . " mcaccMemory:1,2,3,4,5,6 eq:on,off standingWave:on,off" . " renameInputAlias" + . " inputSkip" . " remoteControl:" . join(',', sort keys (%{$hash->{helper}{REMOTECONTROL}})); @@ -2006,6 +2007,25 @@ PIONEERAVR_Set($@) Log3 $name, 3, "PIONEERAVR $name: set $cmd for inputName: $arg new name: $arg2 ! write $arg2 1RGB $inputToChange "; return undef; + # Change "skip input" + } elsif ( $cmd eq "inputSkip" ) { + Log3 $name, 3, "PIONEERAVR $name: set $cmd for inputName: $arg skip: $arg2 !"; + my $inputToChange = undef; + foreach my $key ( keys %{$hash->{helper}{INPUTNAMES}} ) { + if ( $hash->{helper}{INPUTNAMES}->{$key}{aliasName} eq $arg ) { + $inputToChange = sprintf "%02d", $key; + } elsif ( $hash->{helper}{INPUTNAMES}->{$key}{name} eq $arg ) { + $inputToChange = sprintf "%02d", $key; + } + } + if (( defined $inputToChange) && ($arg2 eq "0" or $arg2 eq "1")) {PIONEERAVR_Write( $hash, $inputToChange."030".$arg2."SSC")} + else { + my $err = "Warning: Could not modify inputSkip as the inputName: $arg was not found!"; + return $err; + }; + Log3 $name, 3, "PIONEERAVR $name: set $cmd for inputName: $arg skip: $arg2 !"; + return undef; + # selectScreenPage (player command) } elsif ($cmd eq "selectScreenPage") { Log3 $name, 5, "PIONEERAVR $name: set $cmd for inputNr: $inputNr (player command) argument: $arg !"; @@ -3470,6 +3490,7 @@ sub RC_layout_PioneerAVR() {
get statusRequest
. Renamed inputs are shown with their new (renamed) nameget statusRequest
eingelesen. Wurden die Eingänge am Pioneer AV Receiver umbenannt, wird der neue Name des Eingangs angezeigt.