+++ /dev/null
-/*
- * $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);
-}