- SECoP protocol for scriptcontext

2018-05-07 13:53:51 +02:00
parent da2b8c13d4
commit 19b3c71274
15 changed files with 288 additions and 27 deletions
--- a/loglisten.c
+++ b/loglisten.c
@ -133,13 +133,19 @@ int AnalyzeCommand(char *command) {
  
  Tcl_SplitList(NULL, command, &argc, &argv);
  arg0 = 0;
-  if (argc > 0 && strcmp(argv[0], "fulltransact") == 0) {
+  if (argc > 0 && (strcmp(argv[0], "fulltransact") == 0
+                   || strcmp(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
+      || strcmp(argv[arg0], "_tcl") == 0) {
+    writable = 0;
+    goto Free;
+  }
  pDes = FindCommandDescriptor(pServ->pSics, argv[arg0]);
  if (pDes == NULL) goto Free;
  if (pDes->parNode == NULL && GetDescriptorKey(pDes, "pardef") == NULL) goto Free;