From efe997eaa2700c052528bb6e052215c7fac9d855 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Tue, 9 Jun 2015 19:08:57 +0000
Subject: [PATCH] 10_CUL_HM: aesKey allow change experimental

git-svn-id: https://svn.fhem.de/fhem/trunk@8721 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 14 +++++++++++++-
 fhem/FHEM/HMConfig.pm  |  1 +
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index fb7c0369d..d3c2ae07e 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -4980,7 +4980,18 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
     }
     CUL_HM_UpdtCentral($name);
   }
-                                             
+ 
+  elsif($cmd eq "assignHmKey") { ##############################################
+    $state = "";
+    my $oldKeyIdx = ReadingsVal($name, "aesKeyNbr", "00");
+    return "current key unknown" if (!defined $oldKeyIdx || $oldKeyIdx eq "");
+
+    CUL_HM_PushCmdStack($hash,'++'.$flag.'04'.$id.$dst.'01'.
+                        sprintf("%02X",$oldKeyIdx));
+    CUL_HM_PushCmdStack($hash,'++'.$flag.'04'.$id.$dst.'01'.
+                        sprintf("%02X",($oldKeyIdx+1)));
+  }
+ 
   else{
     return "$cmd not implemented - contact sysop";
   }
@@ -5234,6 +5245,7 @@ sub CUL_HM_getConfig($){
   }
 }
 
+
 sub CUL_HM_calcDisWmSet($){
   my $dh = shift; 
   my ($txt,$col,$icon) = eval $dh->{exe};
diff --git a/fhem/FHEM/HMConfig.pm b/fhem/FHEM/HMConfig.pm
index 5f131b6e2..3cd3426cf 100644
--- a/fhem/FHEM/HMConfig.pm
+++ b/fhem/FHEM/HMConfig.pm
@@ -1378,6 +1378,7 @@ $culHmRegChan{"ROTO_ZEL-STG-RM-FWT03"}= $culHmRegChan{"HM-CC-TC03"};
                        raw           => "data ..."
                       ,reset         => ""
                       ,unpair        => ""
+                      ,assignHmKey   => ""
 );
 
 %culHmSubTypeDevSets = (# device of this subtype