A list should be considered modified if its acl changes.

[moira.git] / server / qsupport.qc

diff --git a/server/qsupport.qc b/server/qsupport.qc
index c016c232e4b2c7407cc56f9a8651ca6a18e11660..cdc46b670d165e24f4cf0f157ca67d39bd0280fc 100644 (file)
--- a/server/qsupport.qc
+++ b/server/qsupport.qc
@@ -6,11 +6,18 @@
  *     Copyright (C) 1987 by the Massachusetts Institute of Technology
  *
  *     $Log$
- *     Revision 1.11  1987-08-28 14:55:45  mike
- *     Modified delete_locker to require only one argument, the login name.
- *     Modified get_groups_of_all_users and get_all_poboxes to disable INGRES
- *     table locking.
+ *     Revision 1.13  1987-09-01 16:24:01  wesommer
+ *     A list should be considered modified if its acl changes.
  *
+Revision 1.12  87/08/29  00:05:54  mike
+Fixed bug in check_nfs.
+Added code to upcasify machine names in validate_id.
+
+Revision 1.11  87/08/28  14:55:45  mike
+Modified delete_locker to require only one argument, the login name.
+Modified get_groups_of_all_users and get_all_poboxes to disable INGRES
+table locking.
+
 Revision 1.10  87/08/25  15:56:54  mike
 - Fixed bugs in get_groups_of_all_users
 - Added tblstats updates to add_user_group
@@ -456,12 +463,14 @@ setup_update_filesys(q, argv)
 ##  int rowcount;
 ##  char dir[32];
     char caccess;
+    register int status;
     register char *cp1;
     register char *cp2;
 
     caccess = (isupper(*access)) ? tolower(*access) : *access;
     if (caccess != 'r' && caccess != 'w') return(SMS_FILESYS_ACCESS);
 
+    status = SMS_NFS;
 ##  range of np is nfsphys
 ##  retrieve (dir = np.#dir) where np.#mach_id = mach_id
 ##  {
@@ -471,10 +480,13 @@ setup_update_filesys(q, argv)
             if (*cp1++ != *cp2) break;
             cp2++;
         }
-        if (*cp2 == 0) return(SMS_SUCCESS);
+        if (*cp2 == 0) {
+            status = SMS_SUCCESS;
+##           endretrieve
+        }
 ##  }
 
-    return(SMS_NFS);
+    return(status);
 ##}
 \f
 /* Followup Routines */
@@ -520,6 +532,7 @@ set_list_modtime_by_id(q, argv)
 
     list_id = *(int *)argv[0];
 ##  repeat replace list (modtime = "now") where list.#list_id = @list_id
+##  repeat replace list (modtime = "now") where list.#acl_id = @list_id
     return(SMS_SUCCESS);
 ##}
 
@@ -559,6 +572,7 @@ followup_amtl(q, argv)
     list_id = *(int *)argv[0];
 
 ##  repeat replace list (modtime = "now") where list.#list_id = @list_id
+##  repeat replace list (modtime = "now") where list.#acl_id = @list_id
 
     /* if query is not amtl or if member_type is not LIST then return */
     if (bcmp(q->shortname, "amtl", 4) || bcmp(argv[1], "LIST", 4)) 
@@ -1710,9 +1724,13 @@ validate_id(argv, vo)
 ##  char *idfield;
 ##  int id;
 ##  int rowcount;
+    register char *c;
 
     name = argv[vo->index];
     table = vo->table;
+    /* minor kludge to upcasify machine names */
+    if (!bcmp(table, "machine", 7))
+       for (c = name; *c; c++) if (islower(*c)) *c = toupper(*c);
     namefield = vo->namefield;
     idfield = vo->idfield;
 ##  retrieve (id = table.idfield) where table.namefield = name