From b63047825012dcc8e989d5aac41135d7b6650e63 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Thu, 18 Jan 2018 19:31:07 +0100
Subject: [PATCH] change writen routine

---
 74_CometBlueBTLE.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/74_CometBlueBTLE.pm b/74_CometBlueBTLE.pm
index 4edf3c9..7e32963 100644
--- a/74_CometBlueBTLE.pm
+++ b/74_CometBlueBTLE.pm
@@ -471,7 +471,7 @@ sub CometBlueBTLE_ExecGatttool_Run($) {
         $cmd .= "gatttool -i $hci -b $mac ";
         $cmd .= "--char-read -a $handle" if($gattCmd eq 'read');
         $cmd .= "--char-write-req -a $handle -n $value" if($gattCmd eq 'write');
-        $cmd = "timeout 15 ".$cmd." --listen" if($gattCmd eq 'write');
+        $cmd = "timeout 15 ".$cmd." --listen" if($gattCmd eq 'write' and $handle eq $gatttChar{'payload'});
         $cmd .= " 2>&1 /dev/null";
         $cmd .= "'" if($sshHost ne 'none');
         
@@ -497,6 +497,8 @@ sub CometBlueBTLE_ExecGatttool_Run($) {
         
         if($gtResult[1] =~ /^([0-9a-f]{2}(\s?))*$/) {
             return "$name|$mac|ok|$gattCmd|$handle|$json_notification";
+        } elsif($gtResult[0] eq 'Characteristic value was written successfully' and $gattCmd eq 'write') {
+            return "$name|$mac|ok|$gattCmd|$handle|$json_notification";
         } else {
             return "$name|$mac|error|$gattCmd|$handle|$json_notification";
         }