Return containers you can administer in gaus output.

[moira.git] / server / qsupport.pc

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