init sms error table

[moira.git] / gen / aliases.qc

diff --git a/gen/aliases.qc b/gen/aliases.qc
index 75492aa937a1699f0a4abd178e259aa4afcf8ae2..074986d478e07242c5a59d22bfd084b0ecacc0b1 100644 (file)
--- a/gen/aliases.qc
+++ b/gen/aliases.qc
@@ -5,9 +5,14 @@
  *     user pobox entries
  *     maillist expansions
  *     sublists of maillists
+ *
+ *  (c) Copyright 1988 by the Massachusetts Institute of Technology.
+ *  For copying and distribution information, please see the file
+ *  <mit-copyright.h>.
  */
 
 
+#include <mit-copyright.h>
 #include <stdio.h>
 #include <string.h>
 #include <sms.h>
@@ -39,7 +44,9 @@ char **argv;
     int ingerr();
 
     IIseterr(ingerr);
+    initialize_sms_error_table();
 ##  ingres sms
+##  set lockmode session where level = table
 
     if (argc == 2) {
        if (stat(argv[1], &sb) == 0) {
@@ -47,7 +54,7 @@ char **argv;
 ##         retrieve (flag1 = int4(interval("min",tblstats.modtime - filetime)))
 ##             where tblstats.table = "list"
 ##         retrieve (flag2 = int4(interval("min",tblstats.modtime - filetime)))
-##             where tblstats.table = "members"
+##             where tblstats.table = "imembers"
 ##         retrieve (flag3 = int4(interval("min",tblstats.modtime - filetime)))
 ##             where tblstats.table = "users"
            if (flag1 < 0 && flag2 < 0 && flag3 < 0) {
@@ -149,6 +156,10 @@ get_info()
     register struct member *m;
     register struct list *memberlist;
 
+    /* get locks */
+##  retrieve (buf = list.modtime) where list.list_id = 0
+##  retrieve (buf = users.modtime) where users.users_id = 0
+
     fprintf(stderr, "Loading machines\n");
     machines = create_hash(1000);
 ##  retrieve (id = machine.mach_id, name = machine.#name) {
@@ -205,8 +216,9 @@ get_info()
 
 
     fprintf(stderr, "Loading members\n");
-##  range of m is members
-##  retrieve (id = m.list_id, type = m.member_type, mid = m.member_id) {
+##  range of m is imembers
+##  retrieve (id = m.list_id, type = m.member_type, mid = m.member_id)
+##     where m.direct = 1  {
        if (l = (struct list *) hash_lookup(lists, id)) {
            m = (struct member *) malloc(sizeof(struct member));
            m->name = (char *) NULL;