From 4259c82dc34bdae208892c352f691dfd16d03ebf Mon Sep 17 00:00:00 2001
From: loredo <loredo@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 14 Dec 2014 12:25:35 +0000
Subject: [PATCH] ENIGMA2: allow direct sending of integer remoteControl
 commands

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7206 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/70_ENIGMA2.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/70_ENIGMA2.pm b/fhem/FHEM/70_ENIGMA2.pm
index d9648be8c..f5ee6bdb5 100644
--- a/fhem/FHEM/70_ENIGMA2.pm
+++ b/fhem/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"