mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

37_harmony.pm: some more Development Guidelines AV compatibility

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6823 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme1968
2014-10-27 21:15:03 +00:00
parent bbfe2974f6
commit 7063e3a8ae
1 changed files with 21 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
fhem/FHEM/37_harmony.pm
View File

@@ -216,6 +216,20 @@ harmony_actionOfCommand($$)
return undef;
}
sub
harmony_hubOfDevice($)
{
my ($id) = @_;
foreach my $d (sort keys %defs) {
next if( !defined($defs{$d}) );
next if( $defs{$d}->{TYPE} ne "harmony" );
next if( $defs{$d}->{id} );
next if( !harmony_deviceOfId($defs{$d}, $id) );
Log3 undef, 3, "harmony: found IODev $d for device $id" ;
return $d;
}
}
sub
harmony_Set($$@)
@@ -232,6 +246,13 @@ harmony_Set($$@)
return "no hub found for device $name ($param)" if( !$hash->{hub} );
}
if( $cmd ne "?" ) {
my $device = harmony_deviceOfId( $defs{$hash->{hub}}, $hash->{id} );
if( harmony_actionOfCommand( $device, $cmd ) ) {
$param = $cmd;
$cmd = "command";
}
}
if( $cmd eq "command" ) {
$param2 = $param;
@@ -1259,20 +1280,6 @@ harmony_GetPower($$)
return $power;
}
sub
harmony_hubOfDevice($)
{
my ($id) = @_;
foreach my $d (sort keys %defs) {
next if( !defined($defs{$d}) );
next if( $defs{$d}->{TYPE} ne "harmony" );
next if( $defs{$d}->{id} );
next if( !harmony_deviceOfId($defs{$d}, $id) );
Log3 undef, 3, "harmony: found IODev $d for device $id" ;
return $d;
}
}
sub
harmony_Get($$@)
{
my ($hash, $name, $cmd, $param) = @_;