Renamed delete_list_members to followup_delete_list. New routine removes

list from maillists and groups tables in addition to the members table.

Added routines validate_label and validate_label_2 used in validating
filesys labels for get_filesys and delete_filesys respectively.

diff --git a/server/qsupport.qc b/server/qsupport.qc
index cdc46b670d165e24f4cf0f157ca67d39bd0280fc..09efa598f91840f2a64288593316da7bc6ae00ef 100644 (file)
--- a/server/qsupport.qc
+++ b/server/qsupport.qc
@@ -6,9 +6,16 @@
  *     Copyright (C) 1987 by the Massachusetts Institute of Technology
  *
  *     $Log$
- *     Revision 1.13  1987-09-01 16:24:01  wesommer
- *     A list should be considered modified if its acl changes.
+ *     Revision 1.14  1987-09-04 17:50:03  mike
+ *     Renamed delete_list_members to followup_delete_list.  New routine removes
+ *     list from maillists and groups tables in addition to the members table.
  *
+ *     Added routines validate_label and validate_label_2 used in validating
+ *     filesys labels for get_filesys and delete_filesys respectively.
+ *
+Revision 1.13  87/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.
@@ -881,8 +888,9 @@ followup_usha(q, argv)
 ##}
 \f
 /**
- ** delete_list_members - called after the delete_list query to clean up
- **                      members table.
+ ** followup_delete_list - called after the delete_list query to clean up
+ **                       members table; also deletes list from maillist
+ **                        and groups tables.
  **
  ** Inputs: argv[0] - list_id
  **
@@ -892,7 +900,7 @@ followup_usha(q, argv)
  **
  **/
 
-delete_list_members(q, argv)
+followup_delete_list(q, argv)
     struct query *q;
     register char *argv[];
 ##{
@@ -927,6 +935,8 @@ delete_list_members(q, argv)
     sq_destroy(sq);
 
 ##  repeat delete m where m.#list_id = @list_id
+##  repeat delete maillists where maillists.#list_id = @list_id
+##  repeat delete groups where groups.#list_id = @list_id
 
     return(SMS_SUCCESS);
 ##}
@@ -1757,6 +1767,29 @@ validate_name(argv, vo)
     return ((rowcount == 1) ? SMS_EXISTS : vo->error);
 ##}
 
+/* Special validation routine for get_filesys */
+validate_label(q, argv)
+    struct query *q;
+    char *argv[];
+{
+    register char *label;
+    register char *c;
+
+    label = argv[0];
+    c = (char *)index(label, '*');
+    if (c == label) return(SMS_NOT_UNIQUE);
+    return(SMS_SUCCESS);
+}
+
+/* Special validation routine for delete_filesys */
+validate_label_2(q, argv)
+    struct query *q;
+    char *argv[];
+{
+    if (index(argv[0], '*') != 0) return(SMS_NOT_UNIQUE);
+    return(SMS_SUCCESS);
+}
+
 validate_date(argv, vo)
     char *argv[];
     struct valobj *vo;