From 548ade227a3ad0f5628da504fc3fe2cb20d84a20 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Tue, 16 Jun 2015 17:04:58 +0000
Subject: [PATCH] 00_ZWDongle.pm: shift SendStack for SEND_DATA:NO_ACK (Forum
 #37418)

git-svn-id: https://svn.fhem.de/fhem/trunk@8757 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_ZWDongle.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/00_ZWDongle.pm b/fhem/FHEM/00_ZWDongle.pm
index d63e5884b..471a8e2d4 100755
--- a/fhem/FHEM/00_ZWDongle.pm
+++ b/fhem/FHEM/00_ZWDongle.pm
@@ -681,9 +681,13 @@ ZWDongle_Read($@)
     Log3 $name, 4, "ZWDongle_Read $name: sending ACK, processing $msg";
     DevIo_SimpleWrite($hash, "06", 1);          # Send ACK
     
-    # SEND_DATA OK: remove message from SendStack. TODO: check the callbackId
-    if($msg =~ m/^0013..00/ ){
-      ZWDongle_shiftSendStack($hash, 5, "ZW_SEND_DATA:OK received");
+    # SEND_DATA answer: remove message from SendStack. TODO: check callbackId
+    if($msg =~ m/^0013..(..)/ ){
+      my $m = $1;
+      my %msg = ('00'=>'OK', '01'=>'NO_ACK', '02'=>'FAIL',
+                 '03'=>'NOT_IDLE', '04'=>'NOROUTE' );
+      $m = $msg{$m} ? "UNKNOWN $m" : $msg{$m};
+      ZWDongle_shiftSendStack($hash, 5, "ZW_SEND_DATA:$m received");
     }
     
     last if(defined($local) && (!defined($regexp) || ($msg =~ m/$regexp/)));