Make gaus return memacls for containers (with a unique tag so we can

distinguish them containers the user can administer.)

diff --git a/server/qsupport.pc b/server/qsupport.pc
index 7ed92fa4a4c2f8e0f8e08c96f4e72a90dc3c5932..55b82097e34af7a53833f69297f4e4999f9b0141 100644 (file)
--- a/server/qsupport.pc
+++ b/server/qsupport.pc
@@ -906,6 +906,23 @@ int get_ace_internal(char *atype, int aid,
     }
   EXEC SQL CLOSE csr117c;
 
+  rargv[0] = "CONTAINER-MEMACL";
+  EXEC SQL DECLARE csr117d CURSOR FOR
+    SELECT name FROM containers c
+    WHERE c.memacl_type = :type AND c.memacl_id = :id;
+  if (dbms_errno)
+    return mr_errcode;
+  EXEC SQL OPEN csr117d;
+  while (1)
+    {
+      EXEC SQL FETCH csr117d INTO :name;
+      if (sqlca.sqlcode)
+       break;
+      (*action)(2, rargv, actarg);
+      found++;
+    }
+  EXEC SQL CLOSE csr117d;
+
   if (!found)
     return MR_NO_MATCH;
   return MR_SUCCESS;