FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-17 11:26:03 +00:00
Code Issues Releases Wiki Activity

70_ONKYO_AVR.pm: add Shutdown function and internet-radio-preset setter

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12364 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2016-10-17 18:12:08 +00:00
parent 91d2fbd5ed
commit 4997d03740
2 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
fhem/FHEM/70_ONKYO_AVR.pm
View File

@ -44,6 +44,7 @@ sub ONKYO_AVR_Get($$$);
sub ONKYO_AVR_Define($$$);
sub ONKYO_AVR_Undefine($$);
sub ONKYO_AVR_Notify($$);
sub ONKYO_AVR_Shutdown($);
#########################
# Forward declaration for remotecontrol module
@ -70,6 +71,7 @@ sub ONKYO_AVR_Initialize($) {
$hash->{GetFn} = "ONKYO_AVR_Get";
$hash->{SetFn} = "ONKYO_AVR_Set";
$hash->{NotifyFn} = "ONKYO_AVR_Notify";
$hash->{ShutdownFn} = "ONKYO_AVR_Shutdown";
$hash->{parseParams} = 1;
no warnings 'qw';
@ -423,6 +425,16 @@ sub ONKYO_AVR_Undefine($$) {
return undef;
}
###################################
sub ONKYO_AVR_Shutdown($) {
my ($hash) = @_;
my $name = $hash->{NAME};
Log3 $name, 5, "ONKYO_AVR $name: called function ONKYO_AVR_Shutdown()";
DevIo_CloseDev($hash);
return undef;
}
###################################
sub ONKYO_AVR_Read($) {
my ($hash) = @_;
@ -2334,6 +2346,34 @@ sub ONKYO_AVR_Set($$$) {
}
}
# internet-radio-preset
elsif ( lc( @$a[1] ) eq "internet-radio-preset" ) {
if ( !defined( @$a[2] ) ) {
$return = "No argument given";
}
else {
if ( $state eq "off" ) {
$return = ONKYO_AVR_SendCommand( $hash, "power", "on" );
$return .= fhem "sleep 5;set $name " . @$a[1] . " " . @$a[2];
}
elsif ( $hash->{INPUT} ne "2B" ) {
$return = ONKYO_AVR_SendCommand( $hash, "input", "2B" );
$return .= fhem "sleep 5;set $name " . @$a[1] . " " . @$a[2];
}
elsif ( @$a[2] =~ /^\d*$/ ) {
Log3 $name, 3, "ONKYO_AVR set $name " . @$a[1] . " " . @$a[2];
$return = ONKYO_AVR_SendCommand(
$hash,
lc( @$a[1] ),
ONKYO_AVR_dec2hex( @$a[2] )
);
}
else {
$return = "Invalid argument format";
}
}
}
# preset
elsif ( lc( @$a[1] ) eq "preset" ) {
if ( !defined( @$a[2] ) ) {

28
fhem/FHEM/71_ONKYO_AVR_ZONE.pm
View File

@ -887,6 +887,34 @@ sub ONKYO_AVR_ZONE_Set($$$) {
}
}
# internet-radio-preset
elsif ( lc( @$a[1] ) eq "internet-radio-preset" ) {
if ( !defined( @$a[2] ) ) {
$return = "No argument given";
}
else {
if ( $state eq "off" ) {
$return = ONKYO_AVR_SendCommand( $hash, "power", "on" );
$return .= fhem "sleep 5;set $name " . @$a[1] . " " . @$a[2];
}
elsif ( $hash->{INPUT} ne "2B" ) {
$return = ONKYO_AVR_SendCommand( $hash, "input", "2B" );
$return .= fhem "sleep 5;set $name " . @$a[1] . " " . @$a[2];
}
elsif ( @$a[2] =~ /^\d*$/ ) {
Log3 $name, 3, "ONKYO_AVR set $name " . @$a[1] . " " . @$a[2];
$return = ONKYO_AVR_SendCommand(
$hash,
lc( @$a[1] ),
ONKYO_AVR_dec2hex( @$a[2] )
);
}
else {
$return = "Invalid argument format";
}
}
}
# preset
elsif ( lc( @$a[1] ) eq "preset" ) {
if ( !defined( @$a[2] ) ) {