-## {
-## char *list_name;
-## char *list_type;
-## char *member_name;
-## char *member_type;
-## int list_id;
-## int value;
-## int rowcount;
- char errmsg[64];
- char *p_errmsg = errmsg;
-
- list_type = argv[0];
- list_name = argv[1];
- member_type = argv[2];
- member_name = argv[3];
-
-## range of l is list
-## repeat retrieve (list_id = l.id)
-## where l.name = @list_name and l.type = @list_type
- sprintf(argv[4], "%d", list_id);
-
- if (!strcmp(member_type, "acl") || !strcmp(member_type, "group") ||
- !strcmp(member_type, "mail")) {
-## repeat retrieve (value = l.id)
-## where l.name = @member_name and l.type = @member_type
-## inquire_equel (rowcount = "rowcount")
- if (rowcount == 0) {
- sprintf(errmsg, "(No such list: %s)", member_name);
- (*action)(1, p_errmsg, actarg);
- return(-1);
- }
- } else if (!strcmp(member_type, "user")) {
-## range of u is users
-## repeat retrieve (value = u.id) where u.login = @member_name
-## inquire_equel (rowcount = "rowcount")
- if (rowcount == 0) {
- sprintf(errmsg, "(No such user: %s)", member_name);
- (*action)(1, p_errmsg, actarg);
- return(-1);
- }
- } else if (!strcmp(member_type, "string")) {
-## range of s is strings
-## repeat retrieve (value = s.id) where s.string = @member_name
-## inquire_equel (rowcount = "rowcount")
- if (rowcount == 0) {
-## range of tbi is tbinfo
-## retrieve (value = tbi.value1) where tbi.table = "strings"
- value++;
-## replace tbi (value1 = value) where tbi.table = "strings"
-## append to strings (id = value, string = member_name)
- }
- } else {
- sprintf(errmsg, "(Unknown member type: %s)", member_type);
- (*action)(1, p_errmsg, actarg);
- return(-1);
+##{
+## char *list_name;
+## char *list_type;
+## char *member_name;
+## char *member_type;
+## int list_id;
+## int value;
+## int rowcount;
+ char errmsg[64];
+ char *p_errmsg = errmsg;
+
+ list_type = argv[0];
+ list_name = argv[1];
+ member_type = argv[2];
+ member_name = argv[3];
+
+## range of l is list
+## repeat retrieve (list_id = l.id)
+## where l.name = @list_name and l.type = @list_type
+ sprintf(argv[4], "%d", list_id);
+
+ if (!strcmp(member_type, "acl") || !strcmp(member_type, "group") ||
+ !strcmp(member_type, "mail")) {
+## repeat retrieve (value = l.id)
+## where l.name = @member_name and l.type = @member_type
+## inquire_equel (rowcount = "rowcount")
+ if (rowcount == 0) {
+ sprintf(errmsg, "(No such list: %s)", member_name);
+ (*action)(1, p_errmsg, actarg);
+ return(-1);
+ }
+ } else if (!strcmp(member_type, "user")) {
+## range of u is users
+## repeat retrieve (value = u.id) where u.login = @member_name
+## inquire_equel (rowcount = "rowcount")
+ if (rowcount == 0) {
+ sprintf(errmsg, "(No such user: %s)", member_name);
+ (*action)(1, p_errmsg, actarg);
+ return(-1);
+ }
+ } else if (!strcmp(member_type, "string")) {
+## range of s is strings
+## repeat retrieve (value = s.id) where s.string = @member_name
+## inquire_equel (rowcount = "rowcount")
+ if (rowcount == 0) {
+## range of tbi is tbinfo
+## retrieve (value = tbi.value1) where tbi.table = "strings"
+ value++;
+## replace tbi (value1 = value) where tbi.table = "strings"
+## append to strings (id = value, string = member_name)