From: mike <mike>
Date: Fri, 4 Sep 1987 17:50:03 +0000 (+0000)
Subject: Renamed delete_list_members to followup_delete_list.  New routine removes
X-Git-Tag: BETA5-24-88~61
X-Git-Url: http://andersk.mit.edu/gitweb/moira.git/commitdiff_plain/89647f6816f18b52acdf3d7fae4eb1f28b802fbc

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 cdc46b67..09efa598 100644
--- 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)
 ##}
 
 /**
- ** 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;