From 273439650b8a0abf7652ebf9fc1b454ee2c90135 Mon Sep 17 00:00:00 2001
From: tom <tom>
Date: Wed, 29 Dec 1993 15:11:01 +0000
Subject: [PATCH] needed to modify acces on host alias table as well

---
 server/qaccess.dc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/server/qaccess.dc b/server/qaccess.dc
index f86f6b97..15632bf0 100644
--- 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;
-- 
2.45.2