From ee40adceb2736a3ba93b85e61bb46f7503e1ef7c Mon Sep 17 00:00:00 2001
From: Douglas Clowes <dcl@ansto.gov.au>
Date: Tue, 26 Aug 2014 13:30:39 +1000
Subject: [PATCH] Add asyncqueue 'transact' command and list the protocol

---
 asyncqueue.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/asyncqueue.c b/asyncqueue.c
index 6695a2b8..3a315a0e 100644
--- a/asyncqueue.c
+++ b/asyncqueue.c
@@ -892,7 +892,7 @@ int AsyncQueueAction(SConnection * pCon, SicsInterp * pSics,
   char line[132];
   pAsyncQueue self = (pAsyncQueue) pData;
   if (argc > 1) {
-    if (strcasecmp("send", argv[1]) == 0) {
+    if (strcasecmp("send", argv[1]) == 0 || strcasecmp("transact", argv[1]) == 0) {
       AsyncUnit myUnit;
       char cmd[10240];
       char rsp[10240];
@@ -1117,6 +1117,8 @@ int AsyncQueueAction(SConnection * pCon, SicsInterp * pSics,
       SCPrintf(pCon, eValue, "%s.trace = %d", argv[0], self->trace);
       if (self->noreply_text)
         SCPrintf(pCon, eValue, "%s.noreply = %s", argv[0], self->noreply_text);
+      if (self->protocol && self->protocol->protocolName)
+        SCPrintf(pCon, eValue, "%s.protocol = %s", argv[0], self->protocol->protocolName);
       return OKOK;
     }
   }