FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

check if the data connection to the Pioneer AV receiver is still up

Browse Source 
player commands are now available for more inputs
"play" was not in the drop down list of available set commands

git-svn-id: https://svn.fhem.de/fhem/trunk@6170 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hofrichter 2014-06-27 16:39:53 +00:00
parent dd27510cbb
commit d3812b1094
3 changed files with 1247 additions and 1146 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/CHANGED
View File

@ -1,5 +1,11 @@
# 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.
- bugfix: 70_PIONEERAVR.pm: player commands are now available for more inputs
"play" was not in the drop down list of available set commands
check every 120s if the data connection to the Pioneer AV receiver is still up
check if we get a reply from the Pioneer AV receiver not later than 3s after a command was sent
fix for alias names of inputs
70_PIONEERAVRZONE.pm: bugfix in logging
- change: 00_RPII2C.pm: hardware access changed to ioctl and syswrite/read
SMBus module not needed anymore but still usable, see attribute useHWLib
possibility to swap I2C-0 to P5 for Rev. B raspberries via attribute swap_i2c0 (not tested yet)

2365
fhem/FHEM/70_PIONEERAVR.pm
View File

File diff suppressed because it is too large Load Diff

22
fhem/FHEM/71_PIONEERAVRZONE.pm
View File

@ -317,10 +317,10 @@ PIONEERAVRZONE_Parse($$)
my $inputNr = $1;
Log3 $hash,5,"PIONEERAVRZONE $name: ".dq($msg) ." interpreted as: Zone2 - Input is set to inputNr: $inputNr ";
if ( defined ( $IOhash->{helper}{INPUTNAMES}->{$inputNr}{aliasName}) ) {
Log3 $hash,5,"PIONEERAVRZONE $name: Zone2 - Input aliasName for input $inputNr is " . $hash->{helper}{INPUTNAMES}{$inputNr}{aliasName};
Log3 $hash,5,"PIONEERAVRZONE $name: Zone2 - Input aliasName for input $inputNr is " . $IOhash->{helper}{INPUTNAMES}{$inputNr}{aliasName};
readingsBulkUpdate($hash, "input", $IOhash->{helper}{INPUTNAMES}->{$inputNr}{aliasName} );
} elsif ( defined ( $IOhash->{helper}{INPUTNAMES}->{$inputNr}{name}) ) {
Log3 $hash,5,"PIONEERAVRZONE $name: Zone2 - Input Name for input $inputNr is " . $hash->{helper}{INPUTNAMES}{$inputNr}{name};
Log3 $hash,5,"PIONEERAVRZONE $name: Zone2 - Input Name for input $inputNr is " . $IOhash->{helper}{INPUTNAMES}{$inputNr}{name};
readingsBulkUpdate($hash, "input", $IOhash->{helper}{INPUTNAMES}->{$inputNr}{name} );
} else {
readingsBulkUpdate($hash, "input", $msg );
@ -420,10 +420,10 @@ PIONEERAVRZONE_Parse($$)
my $inputNr = $1;
Log3 $hash,5,"PIONEERAVRZONE $name: ".dq($msg) ." interpreted as: hdZone - Input is set to inputNr: $inputNr ";
if ( defined ( $IOhash->{helper}{INPUTNAMES}->{$1}{aliasName}) ) {
Log3 $hash,5,"PIONEERAVRZONE $name: hdZone - Input aliasName for input $inputNr is " . $hash->{helper}{INPUTNAMES}{$inputNr}{aliasName};
Log3 $hash,5,"PIONEERAVRZONE $name: hdZone - Input aliasName for input $inputNr is " . $IOhash->{helper}{INPUTNAMES}{$inputNr}{aliasName};
readingsBulkUpdate($hash, "input", $IOhash->{helper}{INPUTNAMES}->{$1}{aliasName} );
} elsif ( defined ( $IOhash->{helper}{INPUTNAMES}->{$1}{name}) ) {
Log3 $hash,5,"PIONEERAVRZONE $name: hdZone - Input Name for input $inputNr is " . $hash->{helper}{INPUTNAMES}{$inputNr}{name};
Log3 $hash,5,"PIONEERAVRZONE $name: hdZone - Input Name for input $inputNr is " . $IOhash->{helper}{INPUTNAMES}{$inputNr}{name};
readingsBulkUpdate($hash, "input", $IOhash->{helper}{INPUTNAMES}->{$1}{name} );
} else {
Log3 $hash,5,"PIONEERAVRZONE $name: Zone3 - InputName: can't find Name for input $inputNr";
@ -529,13 +529,13 @@ PIONEERAVRZONE_Define($$)
}
#####################################
#Function to show special chars (e.g. \n\r) in logs
sub
dq($)
{
my ($s)= @_;
$s= "<nothing>" unless(defined($s));
return "\"" . escapeLogLine($s) . "\"";
}
#sub
#dq($)
#{
# my ($s)= @_;
# $s= "<nothing>" unless(defined($s));
# return "\"" . escapeLogLine($s) . "\"";
#}
1;