From c7402c0fcc2bf6b1e8a47017ed57d68eabedcf6d Mon Sep 17 00:00:00 2001
From: zolliker <markus.zolliker@psi.ch>
Date: Thu, 14 Nov 2024 09:08:20 +0100
Subject: [PATCH] improve behaviour of listening to log in SEA cases

use strcasecmp for certain commands
---
 loglisten.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/loglisten.c b/loglisten.c
index 3de67bb2..4927deba 100644
--- a/loglisten.c
+++ b/loglisten.c
@@ -133,15 +133,16 @@ int AnalyzeCommand(char *command) {
   
   Tcl_SplitList(NULL, command, &argc, &argv);
   arg0 = 0;
-  if (argc > 0 && (strcmp(argv[0], "fulltransact") == 0
-                   || strcmp(argv[0], "transact") == 0)) {
+  if (argc > 0 && (strcasecmp(argv[0], "fulltransact") == 0
+                   || strcasecmp(argv[0], "transact") == 0)) {
     arg0 = 1;
   }
   if (argc <= arg0 + 1) {
     writable = 0; /* single word -> guess read only */
     goto Free;
   }
-  if (strcmp(argv[arg0], "sicsdescriptor") == 0
+  if (strcmp(argv[arg0], "hval") == 0
+      || strcmp(argv[arg0], "sicsdescriptor") == 0
       || strcmp(argv[arg0], "_tcl") == 0) {
     writable = 0;
     goto Free;