From 38a111f7f999ca6d02e34c5934e78cf128c5fde4 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sat, 11 Apr 2015 06:12:13 +0000
Subject: [PATCH] 10_CUL_HM:improve burst access multi message

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@8412 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/10_CUL_HM.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/FHEM/10_CUL_HM.pm b/FHEM/10_CUL_HM.pm
index 0bbcf0998..100a0f779 100755
--- a/FHEM/10_CUL_HM.pm
+++ b/FHEM/10_CUL_HM.pm
@@ -4881,9 +4881,10 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
         $devHash->{helper}{prt}{sProc} != 1    # not processing
         ){
     if($rxType & 0x02){# handle burst Access devices - add burst Bit
-      my ($pre,$tp,$tail) = unpack 'A2A2A*',$devHash->{cmdStack}[0];
-      $devHash->{cmdStack}[0] = sprintf("%s%02X%s",$pre,(hex($tp)|0x10),$tail);
-      CUL_HM_ProcessCmdStack($devHash);
+      CUL_HM_SndCmd($devHash,"++B112$id$dst");
+#      my ($pre,$tp,$tail) = unpack 'A2A2A*',$devHash->{cmdStack}[0];
+#      $devHash->{cmdStack}[0] = sprintf("%s%02X%s",$pre,(hex($tp)|0x10),$tail);
+#      CUL_HM_ProcessCmdStack($devHash);
     }
     elsif (CUL_HM_getAttrInt($name,"burstAccess")){ #burstConditional - have a try
       $hash->{helper}{prt}{brstWu}=1;# start auto-burstWakeup
@@ -5547,7 +5548,7 @@ sub CUL_HM_SndCmd($$) {
   }
 
   $cmd =~ m/^(..)(.*)$/;
-  my ($mn, $cmd2) = ($1, $2);
+  my ($mn, $cmd2) =  unpack 'A2A*',$cmd;
 
   if($mn eq "++") {
     $mn = $io->{HM_CMDNR} ? (($io->{HM_CMDNR} +1)&0xff) : 1;