From d12f8e14083cb45369354cc3af1315fd4a7b5679 Mon Sep 17 00:00:00 2001
From: zacheiss <zacheiss>
Date: Wed, 3 Sep 2003 18:39:25 +0000
Subject: [PATCH] Make gaus return memacls for containers (with a unique tag so
 we can distinguish them containers the user can administer.)

---
 server/qsupport.pc | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/server/qsupport.pc b/server/qsupport.pc
index 7ed92fa4..55b82097 100644
--- 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;
-- 
2.45.2