From: danw <danw>
Date: Wed, 1 Oct 1997 19:59:35 +0000 (+0000)
Subject: Require mere mortals to specify at least one of the arguments to get_host.
X-Git-Url: http://andersk.mit.edu/gitweb/moira.git/commitdiff_plain/6aece3c5f2a917a25d2fbeead2a7608afcfae8b9

Require mere mortals to specify at least one of the arguments to get_host.
---

diff --git a/server/qaccess.pc b/server/qaccess.pc
index 03664311..2f3c7a83 100644
--- a/server/qaccess.pc
+++ b/server/qaccess.pc
@@ -361,7 +361,11 @@ int access_host(q, argv, cl)
 	  WHERE s.snet_id=:id;
 	mid =0;
     } else if (q->type == RETRIEVE) {
-	return(MR_SUCCESS);
+	if (strcmp(argv[0], "*") || strcmp(argv[1], "*") ||
+	    strcmp(argv[2], "*") || strcmp(argv[3], "*"))
+	    return(MR_SUCCESS);
+	else
+	    return(MR_PERM);
     } else {
 	id = *(int *)argv[0];
 	EXEC SQL SELECT m.owner_type, m.owner_id, s.owner_type, s.owner_id