From d2b8cac7413c4daaa7eca55e8916f1e02b36a347 Mon Sep 17 00:00:00 2001 From: jpawlowski Date: Sun, 14 Dec 2014 12:25:35 +0000 Subject: [PATCH] ENIGMA2: allow direct sending of integer remoteControl commands git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@7206 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- FHEM/70_ENIGMA2.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/FHEM/70_ENIGMA2.pm b/FHEM/70_ENIGMA2.pm index d9648be8c..f5ee6bdb5 100644 --- a/FHEM/70_ENIGMA2.pm +++ b/FHEM/70_ENIGMA2.pm @@ -519,6 +519,8 @@ sub ENIGMA2_Set($@) { } my $request = ENIGMA2_GetRemotecontrolCommand( uc( $a[2] ) ); + $request = $a[2] + if ( $request eq "" && $a[2] =~ /^\d+$/ ); if ( uc( $a[2] ) eq "POWER" ) { return ENIGMA2_Set( $hash, $name, "toggle" ); @@ -527,7 +529,7 @@ sub ENIGMA2_Set($@) { return ENIGMA2_Set( $hash, $name, "mute" ); } elsif ( $request ne "" ) { - $cmd = "command=" . ENIGMA2_GetRemotecontrolCommand( $a[2] ); + $cmd = "command=" . $request; $cmd .= "&rcu=" . $attr{$name}{remotecontrol} if defined( $attr{$name}{remotecontrol} ); $cmd .= "&type=long"