From b9199d6e708f0d06b9fc2ff005b84044b0d96657 Mon Sep 17 00:00:00 2001 From: hofrichter Date: Fri, 20 Jun 2014 20:49:14 +0000 Subject: [PATCH] new module for Pioneer AV receiver zones PIONEERAVRZONE.pm git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6147 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/CHANGED | 1 + fhem/FHEM/71_PIONEERAVRZONE.pm | 656 +++++++++++++++++++++++++++++++++ fhem/HISTORY | 6 +- fhem/MAINTAINER.txt | 1 + 4 files changed, 663 insertions(+), 1 deletion(-) create mode 100644 fhem/FHEM/71_PIONEERAVRZONE.pm diff --git a/fhem/CHANGED b/fhem/CHANGED index f02d1544b..c9a21d97d 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,6 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - feature: new modules 70_PIONEERAVR.pm and PIONEERAVRZONE.pm - feature: FLOORPLAN has new style 7 to display commands only. - added: 89_HEATRONIC.pm (heikoranft) - bugfix: duration parsing of calendar events in 57_Calendar.pm fixed diff --git a/fhem/FHEM/71_PIONEERAVRZONE.pm b/fhem/FHEM/71_PIONEERAVRZONE.pm new file mode 100644 index 000000000..83872b980 --- /dev/null +++ b/fhem/FHEM/71_PIONEERAVRZONE.pm @@ -0,0 +1,656 @@ +# $Id$ +############################################################################## +# +# 71_PIONEERAVRZONE.pm +# +# This file is part of Fhem. +# +# Fhem is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 2 of the License, or +# (at your option) any later version. +# +# Fhem is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with Fhem. If not, see . +# +############################################################################## + + +package main; + +use strict; +use warnings; +use Time::HiRes qw(gettimeofday); + +sub PIONEERAVRZONE_Get($@); +sub PIONEERAVRZONE_Set($@); +sub PIONEERAVRZONE_Attr($@); +sub PIONEERAVRZONE_Define($$); + +################################### +sub +PIONEERAVRZONE_Initialize($) +{ + my ($hash) = @_; + + $hash->{Match} = ".+"; + + $hash->{GetFn} = "PIONEERAVRZONE_Get"; + $hash->{SetFn} = "PIONEERAVRZONE_Set"; + $hash->{DefFn} = "PIONEERAVRZONE_Define"; + $hash->{ParseFn} = "PIONEERAVRZONE_Parse"; + + $hash->{AttrFn} = "PIONEERAVRZONE_Attr"; + $hash->{AttrList} = "IODev zone ". + $readingFnAttributes; +} + + +################################### +sub +PIONEERAVRZONE_Changed($$$) +{ + my ($hash, $cmd, $value)= @_; + + readingsBeginUpdate($hash); + my $state= $cmd; + + if(defined($value) && $value ne "") { + readingsBulkUpdate($hash, $cmd, $value); + $state.= " $value"; + } + readingsBulkUpdate($hash, "state", $state); + readingsEndUpdate($hash, 1); + my $name= $hash->{NAME}; + Log3 $hash, 4 , "PIONEERAVRZONE $name $state"; + return $state; +} + +################################### + +sub +PIONEERAVRZONE_Get($@) +{ + my ($hash, @a)= @_; + + my $name= $hash->{NAME}; + my $zone= $hash->{helper}{ZONE}; + my $expect= ".*"; + return "get $name needs at least one argument" if(int(@a) < 2); + my $cmdName= $a[1]; + + my $IOhash= $hash->{IODev}; + if ($cmdName eq "input" ) { + } elsif (!defined($IOhash->{helper}{GETS}{$zone}{$cmdName})) { + my $gets= $IOhash->{helper}{GETS}{$zone}; + return "$name error: unknown argument $cmdName, choose one of " . + (join " ", sort keys %$gets); + } + + my $cmd= $IOhash->{helper}{GETS}{$zone}{$cmdName}; + + my $v= IOWrite($hash, $cmd); + +# return PIONEERAVRZONE_Changed($hash, $cmdname, $v);; + return undef; +} + + +############################# +sub +PIONEERAVRZONE_Set($@) +{ + my ($hash, @a)= @_; + + my $name= $hash->{NAME}; + my $type= $hash->{TYPE}; + return "set $name needs at least one argument" if(int(@a) < 2); + my $cmd= $a[1]; + + my $IOhash= $hash->{IODev}; + my $zone= $hash->{helper}{ZONE}; + my $vmax = 0; + my $zahl= 0; + my $muteStr =""; + + my @setsWithoutArg= ("off","toggle","volumeUp","volumeDown","muteOn","muteOff","muteToggle","inputUp","inputDown"); + + Log3 $name, 5, "PIONEERAVRZONE $name: called function PIONEERAVR_Set()"; + + return "No Argument given" if ( !defined( $cmd ) ); + + my $inputNames= $IOhash->{helper}{INPUTNAMES}; + + # get all input names (preferable the aliasName) of the enabled inputs for the drop down list of "set input xxx" + my @listInputNames = (); + foreach my $key ( keys %{$IOhash->{helper}{INPUTNAMES}} ) { + if (defined($IOhash->{helper}{INPUTNAMES}->{$key}{enabled})) { + if ( $IOhash->{helper}{INPUTNAMES}->{$key}{enabled} eq "1" ) { + if ($IOhash->{helper}{INPUTNAMES}{$key}{aliasName}) { + push(@listInputNames,$IOhash->{helper}{INPUTNAMES}{$key}{aliasName}); + } elsif ($IOhash->{helper}{INPUTNAMES}{$key}{name}) { + push(@listInputNames,$IOhash->{helper}{INPUTNAMES}{$key}{name}); + } + } + } + } + if (($zone eq "zone2") || ($zone eq "zone3")) { + $muteStr = " mute:on,off,toggle"; + } + my $list = + "on:noArg off:noArg toggle:noArg input:" + . join(',', sort @listInputNames) + . " inputUp:noArg inputDown:noArg" + . " volumeUp:noArg volumeDown:noArg" + . $muteStr + . " statusRequest:noArg volume:slider,0,1,100" + . " volumeStraight:slider,-80,1,".$vmax; + + if ( $cmd eq "?" ) { + Log3 $name, 5, "PIONEERAVRZONE set $name " . $cmd; + return SetExtensions($hash, $list, $name, $cmd, @a); + } + + + if(@a == 2) { + Log3 $name, 5, "PIONEERAVRZONE $name: Set $cmd"; + + #### simple set commands without attributes + #### we just "translate" the human readable command to the PioneerAvr command + #### lookup in $IOhash->{helper}{SETS}{$zone} if the command exists and what to write to PioneerAvr + if ( $cmd ~~ @setsWithoutArg ) { + Log3 $name, 5, "PIONEERAVR $name: Set $cmd (setsWithoutArg)"; + my $setCmd= $IOhash->{helper}{SETS}{$zone}{$cmd}; + my $v= IOWrite($hash, $setCmd); + Log3 $hash, 5, "PIONEERAVR $name: Set_IOwrite($zone ... $cmd ): $setCmd"; + return undef; + + ### Power on + ### Command: PO + ### according to "Elite & Pioneer FY14AVR IP & RS-232 7-31-13.xlsx" (notice) we need to send and + ### wait 100ms before the first command is accepted by the Pioneer AVR + } elsif ( $cmd eq "on" ) { + Log3 $name, 5, "PIONEERAVR $name: Set $cmd "; + my $setCmd= ""; + IOWrite($hash, $setCmd); + select(undef, undef, undef, 0.1); + + if ( $zone eq "zone2" ) { + $setCmd = "APO"; + } elsif ( $zone eq "zone3" ) { + $setCmd = "BPO"; + } elsif ( $zone eq "hdZone" ) { + $setCmd = "ZEO"; + } + IOWrite($hash, $setCmd); + select(undef, undef, undef, 0.1); + Log3 $hash, 5, "PIONEERAVR $name: Set_IOwrite: $setCmd"; + return undef; + + # statusRequest: execute all "get" commands to update the readings + } elsif ( $cmd eq "statusRequest") { + Log3 $name, 5, "PIONEERAVR $name: Set $cmd "; + foreach my $key ( keys %{$IOhash->{helper}{GETS}{$zone}} ) { + IOWrite($hash, $IOhash->{helper}{GETS}->{$zone}->{$key}); + } + return undef; + } + #### commands with argument(s) + } elsif(@a > 2) { + my $arg = $a[2]; + ####Input (all available Inputs of the Pioneer Avr -> see 'get $name loadInputNames') + ####according to http://www.fhemwiki.de/wiki/DevelopmentGuidelinesAV + if ( $cmd eq "input" ) { + foreach my $key ( keys %{$IOhash->{helper}{INPUTNAMES}} ) { + if ( $IOhash->{helper}{INPUTNAMES}->{$key}{name} eq $arg ) { + IOWrite($hash, sprintf "%02dFN", $key); + readingsSingleUpdate($hash, "input", $arg, 1 ); + } + } + return undef; + #####VolumeStraight (-80.5 - 12) in dB + ####according to http://www.fhemwiki.de/wiki/DevelopmentGuidelinesAV + } elsif ( $cmd eq "volumeStraight" ) { + $zahl = 80.5 + $arg; + if ( $zone eq "zone2" ) { + IOWrite($hash, sprintf "%02dZV", $zahl); + } elsif ( $zone eq "zone3" ) { + IOWrite($hash, sprintf "%02dYV", $zahl); + } + readingsBeginUpdate($hash); + readingsBulkUpdate($hash, "volumeStraight", $arg ); + readingsBulkUpdate($hash, "volume", sprintf "%d", ($a[2]+80)/0.8 ); + readingsEndUpdate($hash, 1); + return undef; + ####Volume (0 - 100) in % + ####according to http://www.fhemwiki.de/wiki/DevelopmentGuidelinesAV + } elsif ( $cmd eq "volume" ) { + $zahl = sprintf "%d", $arg*0.8; + if ( $zone eq "zone2" ) { + IOWrite($hash, sprintf "%02dZV", $zahl); + } elsif ( $zone eq "zone3" ) { + IOWrite($hash, sprintf "%02dYV", $zahl); + } + readingsBeginUpdate($hash); + readingsBulkUpdate($hash, "volumeStraight", $zahl - 80 ); + readingsBulkUpdate($hash, "volume", sprintf "%d", $a[2] ); + readingsEndUpdate($hash, 1); + return undef; + ####Mute (on|off|toggle) + ####according to http://www.fhemwiki.de/wiki/DevelopmentGuidelinesAV + } elsif ( $cmd eq "mute" ) { + if ($arg eq "on") { + IOWrite($hash, $IOhash->{helper}{SETS}{$zone}{muteOn}); + readingsSingleUpdate($hash, "mute", "on", 1 ); + } + elsif ($arg eq "off") { + IOWrite($hash, $IOhash->{helper}{SETS}{$zone}{muteOff}); + readingsSingleUpdate($hash, "mute", "off", 1 ); + } + elsif ($arg eq "toggle") { + IOWrite($hash, $IOhash->{helper}{SETS}{$zone}{muteToggle}); + } + return undef; + } else { + return SetExtensions($hash, $list, $name, $cmd, @a); + } + } else { + return SetExtensions($hash, $list, $name, $cmd, @a); + } +return undef; + +} + +############################# +sub +PIONEERAVRZONE_Parse($$) +{ + # we are called from dispatch() from the physical device + # we never come here if $msg does not match $hash->{MATCH} in the first place + # NOTE: we will update all matching readings for all (logical) devices, not just the first! + + my ($IOhash, $msg) = @_; # IOhash points to the PIONEERAVR, not to the PIONEERAVRZONE + + my @matches; + my $name= $IOhash->{NAME}; + my $state = ''; + + #Debug "Trying to find a match for \"" . escapeLogLine($msg) ."\""; + # walk over all clients + foreach my $d (keys %defs) { + my $hash= $defs{$d}; + if($hash->{TYPE} eq "PIONEERAVRZONE" && $hash->{IODev} eq $IOhash) { + my $zone= $hash->{helper}{ZONE}; + readingsBeginUpdate($hash); + # zone2 + if ($zone eq "zone2") { + # volume zone2 + # ZVXX + # XX 00 ... 81 -> -81dB ... 0dB + if ( $msg =~ m/^ZV(\d\d)$/ ) { + readingsBulkUpdate($hash, "volumeStraight", $1 - 81 ); + readingsBulkUpdate($hash, "volume", sprintf "%d", $1/0.8 ); + push @matches, $d; + # Mute zone2 + # Z2MUTX + # X = 0: Mute on; X = 1: Mute off + } elsif ( $msg =~ m/^Z2MUT(\d)$/) { + if ($1) { + readingsBulkUpdate($hash, "mute", "off" ); + } + else { + readingsBulkUpdate($hash, "mute", "on" ); + } + push @matches, $d; + # Input zone2 + # Z2FXX + # XX -> input number 00 ... 49 + } elsif ($msg =~ m/^Z2F(\d\d)$/ ) { + if ( defined ( $IOhash->{helper}{INPUTNAMES}->{$1}{aliasName}) ) { + readingsBulkUpdate($hash, "input", $IOhash->{helper}{INPUTNAMES}->{$1}{aliasName} ); + } elsif ( defined ( $IOhash->{helper}{INPUTNAMES}->{$1}{name}) ) { + readingsBulkUpdate($hash, "input", $IOhash->{helper}{INPUTNAMES}->{$1}{name} ); + } else { + readingsBulkUpdate($hash, "input", $msg ); + } + push @matches, $d; + # Power zone2 + # APRX + # X = 0: Power on; X = 1: Power off + } elsif ( $msg =~ m/^APR(0|1)$/ ) { + if ($1 == "0") { + readingsBulkUpdate($hash, "power", "on" ); + $state = "on"; + } elsif ($1 == "1") { + readingsBulkUpdate($hash, "power", "off" ); + $state = "off"; + } + # Set reading for state + # + if ( !defined( $hash->{READINGS}{state}{VAL} ) + || $hash->{READINGS}{state}{VAL} ne $state ) + { + readingsBulkUpdate( $hash, "state", $state ); + } + } + push @matches, $d; + # zone3 + } elsif ($zone eq "zone3") { + # volume zone3 + # YVXX + # XX 00 ... 81 -> -81dB ... 0dB + if ( $msg =~ m/^YV(\d\d)$/ ) { + readingsBulkUpdate($hash, "volumeStraight", $1 - 81 ); + readingsBulkUpdate($hash, "volume", sprintf "%d", $1/0.8 ); + push @matches, $d; + # Mute zone3 + # Z3MUTX + # X = 0: Mute on; X = 1: Mute off + } elsif ( $msg =~ m/^Z3MUT(\d)$/) { + if ($1) { + readingsBulkUpdate($hash, "mute", "off" ); + } + else { + readingsBulkUpdate($hash, "mute", "on" ); + } + push @matches, $d; + # Input zone3 + # Z3FXX + # XX -> input number 00 ... 49 + } elsif ($msg =~ m/^Z3F(\d\d)$/ ) { + if ( defined ( $IOhash->{helper}{INPUTNAMES}->{$1}{aliasName}) ) { + readingsBulkUpdate($hash, "input", $IOhash->{helper}{INPUTNAMES}->{$1}{aliasName} ); + } elsif ( defined ( $IOhash->{helper}{INPUTNAMES}->{$1}{name}) ) { + readingsBulkUpdate($hash, "input", $IOhash->{helper}{INPUTNAMES}->{$1}{name} ); + } else { + readingsBulkUpdate($hash, "input", $msg ); + } + push @matches, $d; + # Power zone3 + # BPRX + # X = 0: Power on; X = 1: Power off + } elsif ( $msg =~ m/^BPR(0|1)$/ ) { + if ($1 == "0") { + readingsBulkUpdate($hash, "power", "on" ); + $state = "on"; + } elsif ($1 == "1") { + readingsBulkUpdate($hash, "power", "off" ); + $state = "off"; + } + # Set reading for state + # + if ( !defined( $hash->{READINGS}{state}{VAL} ) + || $hash->{READINGS}{state}{VAL} ne $state ) + { + readingsBulkUpdate( $hash, "state", $state ); + } + push @matches, $d; + } + # hdZone + } elsif ($zone eq "hdZone") { + # Input hdZone + # ZEAXX + # XX -> input number 00 ... 49 + if ($msg =~ m/^ZEA(\d\d)$/ ) { + if ( defined ( $IOhash->{helper}{INPUTNAMES}->{$1}{aliasName}) ) { + readingsBulkUpdate($hash, "input", $IOhash->{helper}{INPUTNAMES}->{$1}{aliasName} ); + } elsif ( defined ( $IOhash->{helper}{INPUTNAMES}->{$1}{name}) ) { + readingsBulkUpdate($hash, "input", $IOhash->{helper}{INPUTNAMES}->{$1}{name} ); + } else { + readingsBulkUpdate($hash, "input", $msg ); + } + push @matches, $d; + # Power hdZone + # ZEPX + # X = 0: Power on; X = 1: Power off + } elsif ( $msg =~ m/^ZEP(0|1)$/ ) { + if ($1 == "0") { + readingsBulkUpdate($hash, "power", "on" ); + $state = "on"; + } elsif ($1 == "1") { + readingsBulkUpdate($hash, "power", "off" ); + $state = "off"; + } + # Set reading for state + # + if ( !defined( $hash->{READINGS}{state}{VAL} ) + || $hash->{READINGS}{state}{VAL} ne $state ) + { + readingsBulkUpdate( $hash, "state", $state ); + } + push @matches, $d; + } + } + readingsEndUpdate($hash, 1); + + } + } + return @matches if(@matches); + return "UNDEFINED PIONEERAVRZONE message1 $msg"; + +} + +##################################### +sub +PIONEERAVRZONE_Attr($@) +{ + + my @a = @_; + my $hash= $defs{$a[1]}; + + return undef; +} + +############################# +sub +PIONEERAVRZONE_Define($$) +{ + my ($hash, $def) = @_; + my @a = split("[ \t]+", $def); + + return "Usage: define PIONEERAVRZONE [ [...]]" if(int(@a) < 2); + my $name= $a[0]; + + AssignIoPort($hash); + + my $IOhash= $hash->{IODev}; + if(!defined($IOhash)) { + my $err= "PIONEERAVRZONE $name error: no I/O device."; + Log3 $hash, 1, $err; + return $err; + } + + #2. Parameter (Zone) + my $zone=""; + if(defined($a[2])) { + if ($a[2] =~ m/[zone\d]|[hdZone]/) { + $zone= $a[2]; + } + } else { + my $err= "PIONEERAVRZONE define $name error: unknown Zone '$zone' -> must be one of [zone2|zone3hdZone] (I/O device is " + . $IOhash->{NAME} . ")."; + Log3 $hash, 1, $err; + return $err; + } + + if(!defined($IOhash->{helper}{SETS}{$zone})) { + my $err= "PIONEERAVRZONE define $name error: unknown Zone $zone (I/O device is " + . $IOhash->{NAME} . ")."; + Log3 $hash, 1, $err; + return $err; + } + + $hash->{helper}{ZONE}= $zone; + + # set default attributes + unless ( exists( $attr{$name}{webCmd} ) ) { + $attr{$name}{webCmd} = 'volume:mute:input'; + } + unless ( exists( $attr{$name}{devStateIcon} ) ) { + $attr{$name}{devStateIcon} = + 'on:rc_GREEN:off off:rc_STOP:on absent:rc_RED'; + } + + return undef; + +} + +1; + +=pod +=begin html + + +

PIONEERAVRZONE

+
    +
    + + Define +
      + define <name> PIONEERAVRZONE <zone> +

      + + Defines a Zone (zone2, zone3 or hdZone) of a PioneerAVR device.

      + + Normally, the logical PIONEERAVRZONE is attached to the latest previously defined physical PIONEERAVR device + for I/O. Use the IODev attribute of the logical PIONEERAVRZONE to attach to any + physical PioneerAVR device, e.g. attr myPioneerAvrZone2 IODev myPioneerAvr. +

      + + Examples: +

        + define myPioneerAvrZone2 PIONEERAVRZONE zone2
        + attr myPioneerAvrZone2 IODev myPIONEERAVR +
      +
      +
    + + + Set +
      + set <name> <what> [<value>] +

      + where <what> is one of +
    • reopen
      • +
    • off
      turn zone power on
      • +
    • on
      turn zone power on
      • +
    • toggle
      toggles zone power
      • +
    • volume <0 ... 100>
      zone volume in % of the maximum volume
      • +
    • volumeUp
      increases the zone volume by 0.5dB
      • +
    • volumeDown
      decreases the zone volume by 0.5dB
      • +
    • volumeStraight<-80.5 ... 12>
      same values for zone volume as shown on the display of the Pioneer AV receiver
      • +
    • mute
      • +
    • input
      the list of possible (i.e. not deactivated) + inputs is read in during Fhem start and with get statusRequest
      • +
    • inputUp
      change zone input to next input
      • +
    • inputDown
      change zone input to previous input
      • + +

      + Example: +
        + set VSX923Zone2 on
        +
      +

      +
    + + Get +
      +
    • get <name> input +

      + Update the reading for the zone input +
      • +
    +

    + + + Attributes +

    +
      +
    • IOdev Name of the device which communicates with the phisical Pioneer AV receiver via ethernet or rs232
      • +
    • verbose
      • +
    +

    +
+ +=end html +=begin html_DE + + +

PIONEERAVRZONE

+
    +
    + + Define +
      + define <name> PIONEERAVRZONE <zone> +

      + + Definiert ein PioneerAVR device für eine Zone Zone (zone2, zone3 or hdZone).

      + + Im Allgemeinen verwendet das logische device PIONEERAVRZONE das zuletzt definierte PIONEERAVR device für die Kommunikation mit dem Pioneer AV Receiver. + Mit dem Atribut IODev kann das PIONEERAVRZONE device jedes PIONEERAVR device zur Kommunikation verwenden, + z.B. attr myPioneerAvrZone2 IODev myPioneerAvr. +

      + + Examples: +

        + define myPioneerAvrZone2 PIONEERAVRZONE zone2
        + attr myPioneerAvrZone2 IODev myPIONEERAVR +
      +
      +
    + + + Set +
      + set <name> <was> [<value>] +

      + wobei <was> eines der folgenden Befehle sein kann: +
    • reopen
      • +
    • off
      Zone Ausschalten
      • +
    • on
      Zone Einschalten
      • +
    • toggle
      Zone Ein/Ausschalten
      • +
    • volume <0 ... 100>
      Zonenlautstärkein % der maximalen Lautstärke
      • +
    • volumeUp
      Zonenlautstärke um 0.5dB erhöhen
      • +
    • volumeDown
      Zonenlautstärke um 0.5dB verringern
      • +
    • volumeStraight<-80.5 ... 12>
      Einstellen der Zonenlautstärke mit einem Wert, wie er am Display des Pioneer AV Receiver angezeigt wird
      • +
    • mute
      • +
    • input
      Die Liste der verfügbaren (also der nicht deaktivierten) + Eingangsquellen wird beim Start von Fhem und auch mit get statusRequest eingelesen
      • +
    • inputUp
      nächste Eingangsquelle für die Zone auswählen
      • +
    • inputDown
      vorherige Eingangsquelle für die Zone auswählen
      • + +

      + Beispiel: +
        + set VSX923Zone2 on
        +
      +

      +
    + + Get +
      +
    • get <name> input +

      + reading für die Eingangsquelle aktualisieren +
      • +
    +

    + + + Attributes +

    +
      +
    • IOdev Name des device welches die Kommunikation mit dem Pioneer AV Receiver zur Verfügung stellt
      • +
    • verbose
      • +
    +

    +
+ +=end html_DE +=cut diff --git a/fhem/HISTORY b/fhem/HISTORY index f83347943..0d232cd6a 100644 --- a/fhem/HISTORY +++ b/fhem/HISTORY @@ -581,4 +581,8 @@ - added new module 37_SHCdev.pm to support smarthomatic devices - Wed Jun 18 2014 (heikoranft) - - added new module 89_HEATRONIC.pm \ No newline at end of file + - added new module 89_HEATRONIC.pm + +- Fri Jun 20 2014 (hofrichter) + - added new module 70_PIONEERAVR.pm to support Pioneer AV receivers + - added new module 71_PIONEERAVRZONE.pm to support zones of PIONEER AV receivers diff --git a/fhem/MAINTAINER.txt b/fhem/MAINTAINER.txt index 8908eaa04..3dfe7315d 100644 --- a/fhem/MAINTAINER.txt +++ b/fhem/MAINTAINER.txt @@ -161,6 +161,7 @@ FHEM/70_Jabber.pm BioS http://forum.fhem.de Unterstue FHEM/70_JSONMETER.pm tupol http://forum.fhem.de Sonstiges FHEM/70_PHTV.pm loredo http://forum.fhem.de Multimedia FHEM/70_ONKYO_AVR.pm loredo http://forum.fhem.de Multimedia +FHEM/70_PIONEERAVR.pm hofrichter http://forum.fhem.de Multimedia FHEM/70_SCIVT.pm rudolfkoenig/orphan http://forum.fhem.de Sonstiges FHEM/70_SISPM.pm real-wusel http://forum.fhem.de Sonstiges FHEM/70_SML.pm bentele http://forum.fhem.de Sonstiges