wesommer modified error reporting.

[moira.git] / server / qrtn.qc

diff --git a/server/qrtn.qc b/server/qrtn.qc
index 8461bab4e4db5f8eeff645afd98d5402733ba135..8868ce1a6950525e3071d07c67f69a0c3095e579 100644 (file)
--- a/server/qrtn.qc
+++ b/server/qrtn.qc
@@ -6,9 +6,15 @@
  *     Copyright (C) 1987 by the Massachusetts Institute of Technology
  *
  *     $Log$
- *     Revision 1.6  1987-08-04 01:30:54  wesommer
- *     Mike's changes; checked in prior to working over messages.
+ *     Revision 1.8  1987-08-10 16:22:26  mike
+ *     wesommer modified error reporting.
  *
+ * Revision 1.7  87/08/04  01:49:20  wesommer
+ * Rearranged messages.
+ * 
+ * Revision 1.6  87/08/04  01:30:54  wesommer
+ * Mike's changes; checked in prior to working over messages.
+ * 
  * Revision 1.5  87/06/21  16:37:58  wesommer
  * Changed include files, reindented things.
  * 
@@ -42,6 +48,7 @@ static int ingerr(num)
     int *num;
 {
     ingres_errno = SMS_INGRES_ERR;
+    com_err(whoami, SMS_INGRES_ERR, " code %d\n", ingres_errno);
     return *num;
 }
 
@@ -309,7 +316,8 @@ sms_process_query(cl, name, argc, argv_ro, action, actarg)
     else
 ##      abort
 
-    if (status != SMS_SUCCESS) com_err(whoami, status, " (Query failed)");
+    if (status != SMS_SUCCESS && log_flags & LOG_RES)
+       com_err(whoami, status, " (Query failed)");
     return(status);
 }
 
@@ -383,7 +391,6 @@ check_query_access(q, argv, cl)
 ##     retrieve (def_uid = users.users_id) where users.login = "default"
     }
 
-    com_err(whoami, 0, "checking for default access");
     /* check for default access */
 ##  range of m is members
 ##  repeat retrieve (exists = any(m.#member_id where m.list_id = @acl_id and
@@ -394,7 +401,6 @@ check_query_access(q, argv, cl)
     status = get_client(cl, &client_type, &client_id);
     if (status != SMS_SUCCESS) return(status);
 
-    com_err(whoami, 0, "checking for client in acl");
     /* see if client is in the list (or any of its sub-lists) */
     exists = find_member(acl_id, client_type, client_id, 0);
     return ((exists) ? SMS_SUCCESS : SMS_PERM);
@@ -454,7 +460,6 @@ get_client(cl, client_type, client_id)
     if (exists) return(1);
 
     /* are there any sub-lists? */
-    com_err(whoami, 0, "checking for sub-lists");
 ##  repeat retrieve (exists = any(m.#member_id where m.#list_id = @list_id and
 ##                   m.#member_type = "LIST"))
     if (!exists) return(0);
@@ -479,7 +484,6 @@ get_client(cl, client_type, client_id)
 
     if (child) return;
 
-    com_err(whoami, 0, "checking for client in sub-lists");
     /* at top-level, check sub-lists for client (breadth-first search) */
     while (sq_get_data(sq, &sublist)) {
        exists = find_member(sublist, member_type, member_id, sq);