From: mar <mar>
Date: Mon, 28 Aug 1989 15:12:31 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: ASRSNAP1001~71
X-Git-Url: http://andersk.mit.edu/gitweb/moira.git/commitdiff_plain/7593ae520ae088c6434d5035844871ec9ecd5124

Initial revision
---

diff --git a/server/increment.qc b/server/increment.qc
new file mode 100644
index 00000000..7f682a9d
--- /dev/null
+++ b/server/increment.qc
@@ -0,0 +1,397 @@
+/*
+ *	$Source$
+ *	$Author$
+ *	$Header$
+ *
+ *	Copyright (C) 1989 by the Massachusetts Institute of Technology
+ *	For copying and distribution information, please see the file
+ *	<mit-copyright.h>.
+ * 
+ */
+
+#ifndef lint
+static char *rcsid_qrtn_qc = "$Header$";
+#endif lint
+
+#include <mit-copyright.h>
+#include <sms.h>
+#include "query.h"
+#include "sms_server.h"
+
+extern char *whoami;
+
+#define MAXARGC 15
+
+/* structures to save before args */
+static char beforeb[MAXARGC][ARGLEN];
+static char *before[MAXARGC];
+##char *barg0, *barg1, *barg2, *barg3, *barg4;
+##char *barg5, *barg6, *barg7, *barg8, *barg9;
+##char *barg10, *barg11, *barg12, *barg13, *barg14;
+static int beforec;
+static char *beforetable;
+
+/* structures to save after args */
+static char afterb[MAXARGC][ARGLEN];
+static char *after[MAXARGC];
+##char *aarg0, *aarg1, *aarg2, *aarg3, *aarg4;
+##char *aarg5, *aarg6, *aarg7, *aarg8, *aarg9;
+##char *aarg10, *aarg11, *aarg12, *aarg13, *aarg14;
+static int afterc;
+
+/* structures to save entire sets of incremental changes */
+struct save_queue *incremental_sq;
+struct iupdate {
+    char *table;
+    int beforec;
+    char **before;
+    int afterc;
+    char **after;
+};
+
+
+incremental_init()
+{
+    int i;
+
+    for (i = 0; i < MAXARGC; i++) {
+	before[i] = &beforeb[i][0];
+	after[i] = &afterb[i][0];
+    }
+    barg0 = before[0];
+    barg1 = before[1];
+    barg2 = before[2];
+    barg3 = before[3];
+    barg4 = before[4];
+    barg5 = before[5];
+    barg6 = before[6];
+    barg7 = before[7];
+    barg8 = before[8];
+    barg9 = before[9];
+    barg10 = before[10];
+    barg11 = before[11];
+    barg12 = before[12];
+    barg13 = before[13];
+    barg14 = before[14];
+    aarg0 = after[0];
+    aarg1 = after[1];
+    aarg2 = after[2];
+    aarg3 = after[3];
+    aarg4 = after[4];
+    aarg5 = after[5];
+    aarg6 = after[6];
+    aarg7 = after[7];
+    aarg8 = after[8];
+    aarg9 = after[9];
+    aarg10 = after[10];
+    aarg11 = after[11];
+    aarg12 = after[12];
+    aarg13 = after[13];
+    aarg14 = after[14];
+    incremental_sq = sq_create();
+}
+
+
+##incremental_before(table, qual, argv)
+##char *table;
+##char *qual;
+char **argv;
+##{
+##  int id;
+    char buffer[512];
+
+    beforetable = table;
+
+    if (!strcmp(table, "users")) {
+##	retrieve (barg0 = u.login, barg1 = text(u.uid),
+##		  barg2 = u.shell, barg3 = u.last, barg4 = u.first,
+##		  barg5 = u.middle, barg6 = text(u.status),
+##		  barg7 = u.mit_id, barg8 = u.mit_year)
+##		where qual
+	beforec = 9;
+    } else if (!strcmp(table, "machine")) {
+##	retrieve (barg0 = m.name, barg1 = m.type) where qual
+	beforec = 2;
+    } else if (!strcmp(table, "cluster")) {
+##	retrieve (barg0 = c.name, barg1 = c.desc, barg2 = c.location)
+##	  	where qual
+	beforec = 3;
+    } else if (!strcmp(table, "mcmap")) {
+	strcpy(barg0, argv[0]);
+	strcpy(barg1, argv[1]);
+	beforec = 2;
+    } else if (!strcmp(table, "svc")) {
+	strcpy(barg0, argv[0]);
+	strcpy(barg1, argv[1]);
+	strcpy(barg2, argv[2]);
+	beforec = 3;
+    } else if (!strcmp(table, "filesys")) {
+##	range of fs is filesys
+##	retrieve (barg0 = fs.label, barg1 = fs.type, barg2 = text(fs.mach_id),
+##		  barg3 = fs.name, barg4 = fs.mount, barg5 = fs.access,
+##		  barg6 = fs.comments, barg7 = text(fs.owner),
+##		  barg8 = text(fs.owners), barg9 = text(fs.createflg),
+##		  barg10 = fs.lockertype)
+##	  where qual
+	beforec = 11;
+    } else if (!strcmp(table, "nfsquota")) {
+	strcpy(barg0, argv[0]);
+	strcpy(barg1, argv[1]);
+	sprintf(buffer, "%s and filesys.filsys_id = nq.filsys_id", qual);
+	qual = buffer;
+##	range of nq is nfsquota
+##	retrieve (barg2 = text(nq.quota), barg3 = filesys.name) where qual
+	beforec = 4;
+    } else if (!strcmp(table, "list")) {
+##	retrieve (barg0 = l.name, barg1 = text(l.active),
+##		  barg2 = text(l.public), barg3 = text(l.hidden),
+##		  barg4 = text(l.maillist), barg5 = text(l.group),
+##		  barg6 = text(l.gid), barg7 = l.acl_type,
+##		  barg8 = text(l.acl_id), barg9 = l.desc)
+##	  where qual
+	beforec = 10;
+    } else if (!strcmp(table, "members")) {
+	id = (int) argv[0];
+##	repeat retrieve (barg0 = list.name) where list.list_id = @id
+	strcpy(barg1, argv[1]);
+	id = (int) argv[2];
+	if (!strcmp(barg1, "USER")) {
+##	    repeat retrieve (barg2 = users.login) where users.users_id = @id
+	} else if (!strcmp(barg1, "LIST")) {
+##	    repeat retrieve (barg2 = list.name) where list.list_id = @id
+	} else if (!strcmp(barg1, "STRING")) {
+##	    repeat retrieve (barg2 = strings.string)
+##		where strings.string_id = @id
+	} else if (!strcmp(barg1, "KERBEROS")) {
+##	    repeat retrieve (barg2 = strings.string)
+##		where strings.string_id = @id
+	}
+	beforec = 3;
+    } /* else
+      com_err(whoami, 0, "unknown table in incremental_before"); */
+##}
+
+
+incremental_clear_before()
+{
+    beforec = 0;
+}
+
+incremental_clear_after()
+{
+    incremental_after("clear", 0);
+}
+
+
+
+##incremental_after(table, qual, argv)
+##char *table;
+##char *qual;
+char **argv;
+##{
+    char buffer[2048];
+##  int id, i;
+    struct iupdate *iu;
+    char **copy_argv();
+
+    if (!strcmp(table, "users")) {
+##	retrieve (aarg0 = u.login, aarg1 = text(u.uid),
+##		  aarg2 = u.shell, aarg3 = u.last, aarg4 = u.first,
+##		  aarg5 = u.middle, aarg6 = text(u.status),
+##		  aarg7 = u.mit_id, aarg8 = u.mit_year)
+##		where qual
+	afterc = 9;
+    } else if (!strcmp(table, "machine")) {
+##	retrieve (aarg0 = m.name, aarg1 = m.type) where qual
+	afterc = 2;
+    } else if (!strcmp(table, "cluster")) {
+##	retrieve (aarg0 = c.name, aarg1 = c.desc, aarg2 = c.location)
+##	  	where qual
+	afterc = 3;
+    } else if (!strcmp(table, "mcmap")) {
+	strcpy(aarg0, argv[0]);
+	strcpy(aarg1, argv[1]);
+	afterc = 2;
+    } else if (!strcmp(table, "svc")) {
+	strcpy(aarg0, argv[0]);
+	strcpy(aarg1, argv[1]);
+	strcpy(aarg2, argv[2]);
+	afterc = 3;
+    } else if (!strcmp(table, "filesys")) {
+##	range of fs is filesys
+##	retrieve (aarg0 = fs.label, aarg1 = fs.type,
+##		  aarg2 = text(fs.mach_id),
+##		  aarg3 = fs.name, aarg4 = fs.mount, aarg5 = fs.access,
+##		  aarg6 = fs.comments, aarg7 = text(fs.owner),
+##		  aarg8 = text(fs.owners), aarg9 = text(fs.createflg),
+##		  aarg10 = fs.lockertype)
+##	  where qual
+	afterc = 11;
+    } else if (!strcmp(table, "nfsquota")) {
+	strcpy(aarg0, argv[0]);
+	strcpy(aarg1, argv[1]);
+	sprintf(buffer, "%s and filesys.filsys_id = nq.filsys_id", qual);
+	qual = buffer;
+##	range of nq is nfsquota
+##	retrieve (aarg2 = text(nq.quota), aarg3 = filesys.name) where qual
+	afterc = 4;
+    } else if (!strcmp(table, "list")) {
+##	retrieve (aarg0 = l.name, aarg1 = text(l.active),
+##		  aarg2 = text(l.public), aarg3 = text(l.hidden),
+##		  aarg4 = text(l.maillist), aarg5 = text(l.group),
+##		  aarg6 = text(l.gid), aarg7 = l.acl_type,
+##		  aarg8 = text(l.acl_id), aarg9 = l.desc)
+##	  where qual
+	afterc = 10;
+    } else if (!strcmp(table, "members")) {
+	id = (int) argv[0];
+##	repeat retrieve (aarg0 = list.name) where list.list_id = @id
+	strcpy(aarg1, argv[1]);
+	id = (int) argv[2];
+	if (!strcmp(aarg1, "USER")) {
+##	    repeat retrieve (aarg2 = users.login) where users.users_id = @id
+	} else if (!strcmp(aarg1, "LIST")) {
+##	    repeat retrieve (aarg2 = list.name) where list.list_id = @id
+	} else if (!strcmp(aarg1, "STRING")) {
+##	    repeat retrieve (aarg2 = strings.string)
+##		where strings.string_id = @id
+	} else if (!strcmp(aarg1, "KERBEROS")) {
+##	    repeat retrieve (aarg2 = strings.string)
+##		where strings.string_id = @id
+	}
+	afterc = 3;
+    } else if (!strcmp(table, "clear")) {
+	afterc = 0;
+	table = beforetable;
+    } /* else
+      com_err(whoami, 0, "unknown table in incremental_after"); */
+
+    iu = (struct iupdate *) malloc(sizeof(struct iupdate));
+    iu->table = table;
+    iu->beforec = beforec;
+    iu->before = copy_argv(before, beforec);
+    iu->afterc = afterc;
+    iu->after = copy_argv(after, afterc);
+    sq_save_data(incremental_sq, iu);
+
+#ifdef DEBUG
+    sprintf(buffer, "INCREMENTAL(%s, [", table);
+    for (i = 0; i < beforec; i++) {
+	if (i == 0)
+	  strcat(buffer, strtrim(before[0]));
+	else {
+	    strcat(buffer, ", ");
+	    strcat(buffer, strtrim(before[i]));
+	}
+    }
+    strcat(buffer, "], [");
+    for (i = 0; i < afterc; i++) {
+	if (i == 0)
+	  strcat(buffer, strtrim(after[0]));
+	else {
+	    strcat(buffer, ", ");
+	    strcat(buffer, strtrim(after[i]));
+	}
+    }
+    strcat(buffer, "])");
+    com_err(whoami, 0, buffer);
+#endif DEBUG
+##}
+
+
+/* Called when the current transaction is committed to start any queued
+ * incremental updates
+ */
+
+incremental_update()
+{
+    struct iupdate *iu;
+    char *argv[MAXARGC * 2 + 4], cafter[3], cbefore[3];
+    int i;
+
+    while (sq_get_data(incremental_sq, &iu)) {
+	argv[1] = iu->table;
+	sprintf(cbefore, "%d", iu->beforec);
+	argv[2] = cbefore;
+	sprintf(cafter, "%d", iu->afterc);
+	argv[3] = cafter;
+	for (i = 0; i < iu->beforec; i++)
+	  argv[4 + i] = before[i];
+	for (i = 0; i < iu->afterc; i++)
+	  argv[4 + iu->beforec + i] = after[i];
+	invoke_updates(argv, 4 + iu->beforec + iu->afterc);
+	free_argv(iu->before, iu->beforec);
+	free_argv(iu->after, iu->afterc);
+	free(iu);
+    }
+    sq_destroy(incremental_sq);
+    incremental_sq = sq_create();
+}
+
+
+/* THIS IS WRONG.  We should keep a table of services getting incremental
+ * updates.  But for now, just assume AFS
+ */
+
+invoke_updates(argv, argc)
+char **argv;
+int argc;
+{
+    int pid, i;
+    char *prog;
+
+    prog = "/u1/sms/bin/afs.incr";
+    argv[0] = prog;
+    argv[argc] = 0;
+    pid = vfork();
+    switch (pid) {
+    case 0:
+	for (i = getdtablesize() - 1; i > 2; i--)
+	  close(i);
+	execv(prog, argv);
+	exit(1);
+    case -1:
+	com_err(whoami, 0, "Failed to start incremental update");
+	return;
+    default:
+	return;
+    }
+}
+
+
+/* Called when the current transaction is aborted to throw away any queued
+ * incremental updates
+ */
+
+incremental_flush()
+{
+    struct iupdate *iu;
+
+    while (sq_get_data(incremental_sq, &iu)) {
+	free_argv(iu->before, iu->beforec);
+	free_argv(iu->after, iu->afterc);
+	free(iu);
+    }
+    sq_destroy(incremental_sq);
+    incremental_sq = sq_create();
+}
+
+
+char **copy_argv(argv, argc)
+char **argv;
+int argc;
+{
+    char **ret = (char **)malloc(sizeof(char *) * argc);
+    while (--argc >= 0)
+      ret[argc] = strsave(strtrim(argv[argc]));
+    return(ret);
+}
+
+free_argv(argv, argc)
+char **argv;
+int argc;
+{
+    while (--argc >= 0)
+      free(argv[argc]);
+    free(argv);
+}