*** empty log message ***

[moira.git] / server / qaccess.dc

diff --git a/server/qaccess.dc b/server/qaccess.dc
index f86f6b97bed29813bfb520ddeff84518c82df946..8e0dd44051f209db4031db320905d168911a5a39 100644 (file)
--- a/server/qaccess.dc
+++ b/server/qaccess.dc
@@ -405,6 +405,9 @@ access_ahal(q, argv, cl)
     char *client_type;
     int status, client_id;
 
+    if (q->type == RETRIEVE)
+      return(MR_SUCCESS);
+
     id = *(int *)argv[1];
 
     EXEC SQL SELECT count(name) INTO :cnt from hostalias WHERE mach_id = :id;
@@ -415,7 +418,6 @@ access_ahal(q, argv, cl)
      */
     if (q->type == APPEND && cnt >= 2)
       return(MR_PERM);
-
     EXEC SQL SELECT m.owner_type, m.owner_id, s.owner_type, s.owner_id
       INTO :mtype, :mid, :stype, :sid FROM machine m, subnet s
       WHERE m.mach_id=:id and s.snet_id=m.snet_id;
@@ -430,3 +432,19 @@ access_ahal(q, argv, cl)
     else
       return(MR_PERM);
 }
+
+
+
+/* access_snt - check for retrieving network structure
+ */
+
+access_snt(q, argv, cl)
+    struct query *q;
+    char *argv[];
+    client *cl;
+{
+    if(q->type == RETRIEVE)
+       return(MR_SUCCESS);
+
+    return(MR_PERM);
+}