[moira.git] / server / increment.dc

/*
 *	$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_increment_dc = "$Header$";
#endif lint

#include <fcntl.h>
#include <mit-copyright.h>
#include <moira.h>
#include "query.h"
#include "mr_server.h"
EXEC SQL INCLUDE sqlca;

extern char *whoami;
char *malloc();

int inc_pid = 0;
int inc_running = 0;
time_t inc_started;

#define MAXARGC 15

EXEC SQL WHENEVER SQLERROR CALL ingerr;

/* structures to save before args */
static char beforeb[MAXARGC][ARGLEN];
static char *before[MAXARGC];
EXEC SQL BEGIN DECLARE SECTION;
char *barg0, *barg1, *barg2, *barg3, *barg4;
char *barg5, *barg6, *barg7, *barg8, *barg9;
char *barg10, *barg11, *barg12, *barg13, *barg14;
EXEC SQL END DECLARE SECTION;
static int beforec;
static char *beforetable;

/* structures to save after args */
static char afterb[MAXARGC][ARGLEN];
static char *after[MAXARGC];
EXEC SQL BEGIN DECLARE SECTION;
char *aarg0, *aarg1, *aarg2, *aarg3, *aarg4;
char *aarg5, *aarg6, *aarg7, *aarg8, *aarg9;
char *aarg10, *aarg11, *aarg12, *aarg13, *aarg14;
EXEC SQL END DECLARE SECTION;
static int afterc;

/* structures to save entire sets of incremental changes */
struct save_queue *incremental_sq = NULL;
struct save_queue *incremental_exec = NULL;
struct iupdate {
    char *table;
    int beforec;
    char **before;
    int afterc;
    char **after;
    char *service;
};


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];
    if (incremental_sq == NULL)
      incremental_sq = sq_create();
    if (incremental_exec == NULL)
      incremental_exec = sq_create();
}


incremental_before(table, qual, argv)
char *table;
EXEC SQL BEGIN DECLARE SECTION; 
char *qual;
EXEC SQL END DECLARE SECTION; 
char **argv;
{
    EXEC SQL BEGIN DECLARE SECTION;
    int id;
    EXEC SQL END DECLARE SECTION;

    char buffer[512], *name;

    beforetable = table;

    if (!strcmp(table, "users")) {
	EXEC SQL SELECT u.login, CHAR(u.uid), u.shell, u.last, u.first, u.middle, 
	    CHAR(u.status), u.clearid, u.type
	  INTO :barg0, :barg1, :barg2, :barg3, :barg4, :barg5, :barg6,
	    :barg7, :barg8
	  FROM users u WHERE :qual;
	beforec = 9;
    } else if (!strcmp(table, "machine")) {
	EXEC SQL SELECT m.name, m.vendor INTO :barg0, :barg1 FROM machine m
	  WHERE :qual;
	beforec = 2;
    } else if (!strcmp(table, "cluster")) {
	EXEC SQL SELECT c.name, c.description, c.location 
	  INTO :barg0, :barg1, :barg2
	  FROM cluster c 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")) {
	EXEC SQL SELECT fs.label, fs.type, CHAR(fs.mach_id), fs.name, 
	    fs.mount, fs.access, fs.comments, CHAR(fs.owner), CHAR(fs.owners),
            CHAR(fs.createflg), fs.lockertype
	  INTO :barg0, :barg1, :barg2, :barg3, :barg4, :barg5, :barg6, 
            :barg7, :barg8, :barg9, :barg10
	  FROM filesys fs WHERE :qual;
        name = malloc(0);
        id = atoi(barg2);
        id_to_name(id, "MACHINE", &name);
        strcpy(barg2, name);
        id = atoi(barg7);
        id_to_name(id, "USER", &name);
        strcpy(barg7, name);
        id = atoi(barg8);
        id_to_name(id, "LIST", &name);
        strcpy(barg8, name);
        free(name);
	beforec = 11;
    } else if (!strcmp(table, "quota")) {
	strcpy(barg0, "?");
	strcpy(barg1, argv[1]);
	strcpy(barg2, "?");
	sprintf(buffer, "%s AND fs.filsys_id = q.filsys_id", qual);
	qual = buffer;
	EXEC SQL SELECT CHAR(q.quota), fs.name INTO :barg3, :barg4
	  FROM quota q, filesys fs WHERE :qual;
	beforec = 5;
    } else if (!strcmp(table, "list")) {
	EXEC SQL SELECT l.name, CHAR(l.active), CHAR(l.publicflg), 
	    CHAR(l.hidden), CHAR(l.maillist), CHAR(l.grouplist), CHAR(l.gid), 
	    l.acl_type, CHAR(l.acl_id), l.description
	  INTO :barg0, :barg1, :barg2, :barg3, :barg4, :barg5, :barg6,
	    :barg7, :barg8, :barg9
	  FROM list l WHERE :qual;
	beforec = 10;
    } else if (!strcmp(table, "members")) {
	id = (int) argv[0];
 	EXEC SQL SELECT CHAR(active), CHAR(publicflg), CHAR(hidden),
		CHAR(maillist), CHAR(grouplist), CHAR(gid)
		INTO :barg3, :barg4, :barg5, :barg6, :barg7, :barg8
		FROM list WHERE list_id = :id;
	name = malloc(0);
	id_to_name(id, "LIST", &name);
	strcpy(barg0, name);
	strcpy(barg1, argv[1]);
	id = (int) argv[2];
	if (!strcmp(barg1, "USER")) {
	    id_to_name(id, barg1, &name);
	} else if (!strcmp(barg1, "LIST")) {
	    id_to_name(id, barg1, &name);
	} else if (!strcmp(barg1, "STRING")) {
	    id_to_name(id, barg1, &name);
	} else if (!strcmp(barg1, "KERBEROS")) {
	    id_to_name(id, "STRING", &name);
	}
	strcpy(barg2, name);
	free(name);
	beforec = 9;
    } /* 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;
EXEC SQL BEGIN DECLARE SECTION; 
char *qual;
EXEC SQL END DECLARE SECTION; 
char **argv;
{
    char buffer[2048], *name;
EXEC SQL BEGIN DECLARE SECTION; 
    int id, i;
EXEC SQL END DECLARE SECTION; 
    struct iupdate *iu;
    char **copy_argv();

    if (!strcmp(table, "users")) {
	EXEC SQL SELECT u.login, CHAR(u.uid), u.shell, u.last, u.first, 
	    u.middle, CHAR(u.status), u.clearid, u.type
	  INTO :aarg0, :aarg1, :aarg2, :aarg3, :aarg4, :aarg5,
	    :aarg6, :aarg7, :aarg8
	  FROM users u WHERE :qual;
	afterc = 9;
    } else if (!strcmp(table, "machine")) {
	EXEC SQL SELECT m.name, m.vendor INTO :aarg0, :aarg1
	  FROM machine m WHERE :qual;
	afterc = 2;
    } else if (!strcmp(table, "cluster")) {
	EXEC SQL SELECT c.name, c.description, c.location 
	  INTO :aarg0, :aarg1, :aarg2
	  FROM cluster c 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")) {
        EXEC SQL SELECT CHAR(fs.label), fs.type, CHAR(fs.mach_id), fs.name, 
	    fs.mount, fs.access, fs.comments, CHAR(fs.owner), CHAR(fs.owners),
	    CHAR(fs.createflg), fs.lockertype
          INTO :aarg0, :aarg1, :aarg2, :aarg3, :aarg4, :aarg5, :aarg6,
	      :aarg7, :aarg8, :aarg9, :aarg10
          FROM filesys fs WHERE :qual;
        name = malloc(0);
        id = atoi(aarg2);
        id_to_name(id, "MACHINE", &name);
        strcpy(aarg2, name);
        id = atoi(aarg7);
        id_to_name(id, "USER", &name);
        strcpy(aarg7, name);
        id = atoi(aarg8);
        id_to_name(id, "LIST", &name);
        strcpy(aarg8, name);
        free(name);
	afterc = 11;
    } else if (!strcmp(table, "quota")) {
	strcpy(aarg0, "?");
	strcpy(aarg1, argv[1]);
	strcpy(aarg2, "?");
	sprintf(buffer, "%s and fs.filsys_id = q.filsys_id and q.type = '%s'",
		qual, argv[1]);
	qual = buffer;
	EXEC SQL SELECT CHAR(q.quota), fs.name INTO :aarg3, :aarg4
	  FROM quota q, filesys fs WHERE :qual;
	afterc = 5;
    } else if (!strcmp(table, "list")) {
	EXEC SQL SELECT l.name, CHAR(l.active), CHAR(l.publicflg), 
	    CHAR(l.hidden), CHAR(l.maillist), CHAR(l.grouplist), CHAR(l.gid), 
            l.acl_type, CHAR(l.acl_id), l.description
	  INTO :aarg0, :aarg1, :aarg2, :aarg3, :aarg4, :aarg5, :aarg6,
	     :aarg7, :aarg8, :aarg9
	  FROM list l WHERE :qual;
	afterc = 10;
    } else if (!strcmp(table, "members")) {
	id = (int) argv[0];
 	EXEC SQL SELECT CHAR(active), CHAR(publicflg), CHAR(hidden),
		CHAR(maillist), CHAR(grouplist), CHAR(gid)
		INTO :aarg3, :aarg4, :aarg5, :aarg6, :aarg7, :aarg8
		FROM list WHERE list_id = :id;
	name = malloc(0);
	id_to_name(id, "LIST", &name);
	strcpy(aarg0, name);
	strcpy(aarg1, argv[1]);
	id = (int) argv[2];
	if (!strcmp(aarg1, "USER")) {
	    id_to_name(id, aarg1, &name);
	} else if (!strcmp(aarg1, "LIST")) {
	    id_to_name(id, aarg1, &name);
	} else if (!strcmp(aarg1, "STRING")) {
	    id_to_name(id, aarg1, &name);
	} else if (!strcmp(aarg1, "KERBEROS")) {
	    id_to_name(id, "STRING", &name);
	}
	strcpy(aarg2, name);
	free(name);
	afterc = 9;
    } 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 = strsave(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.  This caches the update table the first time it
 * is called.
 */

struct inc_cache {
    struct inc_cache *next;
    char *table;
    char *service;
};


incremental_update()
{
    static int inited = 0;
    static struct inc_cache *cache;
    struct inc_cache *c;
    EXEC SQL BEGIN DECLARE SECTION;
    char tab[17], serv[17];
    EXEC SQL END DECLARE SECTION;
    struct iupdate *iu;

    if (!inited) {
	inited++;

	EXEC SQL DECLARE inc CURSOR FOR SELECT tablename, service FROM incremental;
	EXEC SQL OPEN inc;
	while (1) {
	    EXEC SQL FETCH inc INTO :tab, :serv;
	    if (sqlca.sqlcode != 0) break;
    	    c = (struct inc_cache *)malloc(sizeof(struct inc_cache));
	    c->next = cache;
	    c->table = strsave(strtrim(tab));
	    c->service = strsave(strtrim(serv));
	    cache = c;
	}
	EXEC SQL CLOSE inc;
	EXEC SQL COMMIT WORK;
    }

    while (sq_remove_data(incremental_sq, &iu)) {
	for (c = cache; c; c = c->next) {
	    if (!strcmp(c->table, iu->table)) {
		iu->service = c->service;
		sq_save_data(incremental_exec, iu);
	    }
	}
    }
    if (inc_running == 0)
      next_incremental();
}


next_incremental()
{
    struct iupdate *iu;
    char *argv[MAXARGC * 2 + 4], cafter[3], cbefore[3], prog[BUFSIZ];
    int i;

    if (incremental_exec == NULL)
      incremental_init();

    if (sq_empty(incremental_exec) ||
	(inc_running && now - inc_started < INC_TIMEOUT))
      return;

    if (inc_running)
      com_err(whoami, 0, "incremental timeout on pid %d", inc_pid);

    sq_remove_data(incremental_exec, &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] = iu->before[i];
    for (i = 0; i < iu->afterc; i++)
      argv[4 + iu->beforec + i] = iu->after[i];

    sprintf(prog, "%s/%s.incr", BIN_DIR, iu->service);
#ifdef DEBUG
    com_err(whoami, 0, "forking %s", prog);
#endif
    argv[0] = prog;
    argv[4 + iu->beforec + iu->afterc] = 0;
    inc_pid = vfork();
    switch (inc_pid) {
    case 0:
	execv(prog, argv);
	_exit(1);
    case -1:
	com_err(whoami, 0, "Failed to start incremental update");
	break;
    default:
	inc_running = 1;
	inc_started = now;
    }

    free_argv(iu->before, iu->beforec);
    free_argv(iu->after, iu->afterc);
    free(iu->table);
    free(iu);

}


/* 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->table);
	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);
}
Commit	Line	Data
32cfe906	1	/*
	2	* $Source$
	3	* $Author$
	4	* $Header$
	5	*
	6	* Copyright (C) 1989 by the Massachusetts Institute of Technology
	7	* For copying and distribution information, please see the file
	8	* <mit-copyright.h>.
	9	*
	10	*/
	11
	12	#ifndef lint
	13	static char *rcsid_increment_dc = "$Header$";
	14	#endif lint
	15
af0171d9	16	#include <fcntl.h>
32cfe906	17	#include <mit-copyright.h>
	18	#include <moira.h>
	19	#include "query.h"
	20	#include "mr_server.h"
45bf7573	21	EXEC SQL INCLUDE sqlca;
32cfe906	22
	23	extern char *whoami;
	24	char *malloc();
	25
	26	int inc_pid = 0;
	27	int inc_running = 0;
	28	time_t inc_started;
	29
	30	#define MAXARGC 15
	31
45bf7573	32	EXEC SQL WHENEVER SQLERROR CALL ingerr;
45bf7573	33
32cfe906	34	/* structures to save before args */
	35	static char beforeb[MAXARGC][ARGLEN];
	36	static char *before[MAXARGC];
	37	EXEC SQL BEGIN DECLARE SECTION;
	38	char barg0, barg1, barg2, barg3, *barg4;
	39	char barg5, barg6, barg7, barg8, *barg9;
	40	char barg10, barg11, barg12, barg13, *barg14;
	41	EXEC SQL END DECLARE SECTION;
	42	static int beforec;
	43	static char *beforetable;
	44
	45	/* structures to save after args */
	46	static char afterb[MAXARGC][ARGLEN];
	47	static char *after[MAXARGC];
	48	EXEC SQL BEGIN DECLARE SECTION;
	49	char aarg0, aarg1, aarg2, aarg3, *aarg4;
	50	char aarg5, aarg6, aarg7, aarg8, *aarg9;
	51	char aarg10, aarg11, aarg12, aarg13, *aarg14;
	52	EXEC SQL END DECLARE SECTION;
	53	static int afterc;
	54
	55	/* structures to save entire sets of incremental changes */
	56	struct save_queue *incremental_sq = NULL;
	57	struct save_queue *incremental_exec = NULL;
	58	struct iupdate {
	59	char *table;
	60	int beforec;
	61	char **before;
	62	int afterc;
	63	char **after;
	64	char *service;
	65	};
	66
	67
	68	incremental_init()
	69	{
	70	int i;
	71
	72	for (i = 0; i < MAXARGC; i++) {
	73	before[i] = &beforeb[i][0];
	74	after[i] = &afterb[i][0];
	75	}
	76	barg0 = before[0];
	77	barg1 = before[1];
	78	barg2 = before[2];
	79	barg3 = before[3];
	80	barg4 = before[4];
	81	barg5 = before[5];
	82	barg6 = before[6];
	83	barg7 = before[7];
	84	barg8 = before[8];
	85	barg9 = before[9];
	86	barg10 = before[10];
	87	barg11 = before[11];
	88	barg12 = before[12];
	89	barg13 = before[13];
	90	barg14 = before[14];
	91	aarg0 = after[0];
	92	aarg1 = after[1];
	93	aarg2 = after[2];
	94	aarg3 = after[3];
	95	aarg4 = after[4];
	96	aarg5 = after[5];
	97	aarg6 = after[6];
98	aarg7 = after[7];
99	aarg8 = after[8];
100	aarg9 = after[9];
101	aarg10 = after[10];
102	aarg11 = after[11];
103	aarg12 = after[12];
104	aarg13 = after[13];
105	aarg14 = after[14];
106	if (incremental_sq == NULL)
107	incremental_sq = sq_create();
108	if (incremental_exec == NULL)
109	incremental_exec = sq_create();
110	}
111
112
113	incremental_before(table, qual, argv)
114	char *table;
45bf7573	115	EXEC SQL BEGIN DECLARE SECTION;
32cfe906	116	char *qual;
45bf7573	117	EXEC SQL END DECLARE SECTION;
32cfe906	118	char **argv;
	119	{
	120	EXEC SQL BEGIN DECLARE SECTION;
	121	int id;
	122	EXEC SQL END DECLARE SECTION;
	123
	124	char buffer[512], *name;
	125
	126	beforetable = table;
	127
	128	if (!strcmp(table, "users")) {
0c345c78	129	EXEC SQL SELECT u.login, CHAR(u.uid), u.shell, u.last, u.first, u.middle,
0c345c78	130	CHAR(u.status), u.clearid, u.type
a313cad2	131	INTO :barg0, :barg1, :barg2, :barg3, :barg4, :barg5, :barg6,
a313cad2	132	:barg7, :barg8
0c345c78	133	FROM users u WHERE :qual;
32cfe906	134	beforec = 9;
32cfe906	135	} else if (!strcmp(table, "machine")) {
2eb0fc99	136	EXEC SQL SELECT m.name, m.vendor INTO :barg0, :barg1 FROM machine m
a313cad2	137	WHERE :qual;
32cfe906	138	beforec = 2;
32cfe906	139	} else if (!strcmp(table, "cluster")) {
0c345c78	140	EXEC SQL SELECT c.name, c.description, c.location
45bf7573	141	INTO :barg0, :barg1, :barg2
0c345c78	142	FROM cluster c WHERE :qual;
32cfe906	143	beforec = 3;
	144	} else if (!strcmp(table, "mcmap")) {
	145	strcpy(barg0, argv[0]);
	146	strcpy(barg1, argv[1]);
	147	beforec = 2;
	148	} else if (!strcmp(table, "svc")) {
	149	strcpy(barg0, argv[0]);
	150	strcpy(barg1, argv[1]);
	151	strcpy(barg2, argv[2]);
	152	beforec = 3;
	153	} else if (!strcmp(table, "filesys")) {
0c345c78	154	EXEC SQL SELECT fs.label, fs.type, CHAR(fs.mach_id), fs.name,
	155	fs.mount, fs.access, fs.comments, CHAR(fs.owner), CHAR(fs.owners),
	156	CHAR(fs.createflg), fs.lockertype
a313cad2	157	INTO :barg0, :barg1, :barg2, :barg3, :barg4, :barg5, :barg6,
a313cad2	158	:barg7, :barg8, :barg9, :barg10
0c345c78	159	FROM filesys fs WHERE :qual;
bc5e9d66	160	name = malloc(0);
	161	id = atoi(barg2);
	162	id_to_name(id, "MACHINE", &name);
	163	strcpy(barg2, name);
	164	id = atoi(barg7);
	165	id_to_name(id, "USER", &name);
	166	strcpy(barg7, name);
	167	id = atoi(barg8);
	168	id_to_name(id, "LIST", &name);
	169	strcpy(barg8, name);
	170	free(name);
32cfe906	171	beforec = 11;
	172	} else if (!strcmp(table, "quota")) {
	173	strcpy(barg0, "?");
	174	strcpy(barg1, argv[1]);
	175	strcpy(barg2, "?");
0c345c78	176	sprintf(buffer, "%s AND fs.filsys_id = q.filsys_id", qual);
32cfe906	177	qual = buffer;
0c345c78	178	EXEC SQL SELECT CHAR(q.quota), fs.name INTO :barg3, :barg4
0c345c78	179	FROM quota q, filesys fs WHERE :qual;
32cfe906	180	beforec = 5;
32cfe906	181	} else if (!strcmp(table, "list")) {
0c345c78	182	EXEC SQL SELECT l.name, CHAR(l.active), CHAR(l.publicflg),
	183	CHAR(l.hidden), CHAR(l.maillist), CHAR(l.grouplist), CHAR(l.gid),
	184	l.acl_type, CHAR(l.acl_id), l.description
a313cad2	185	INTO :barg0, :barg1, :barg2, :barg3, :barg4, :barg5, :barg6,
0c345c78	186	:barg7, :barg8, :barg9
0c345c78	187	FROM list l WHERE :qual;
32cfe906	188	beforec = 10;
	189	} else if (!strcmp(table, "members")) {
	190	id = (int) argv[0];
5be1b7fc	191	EXEC SQL SELECT CHAR(active), CHAR(publicflg), CHAR(hidden),
	192	CHAR(maillist), CHAR(grouplist), CHAR(gid)
	193	INTO :barg3, :barg4, :barg5, :barg6, :barg7, :barg8
	194	FROM list WHERE list_id = :id;
32cfe906	195	name = malloc(0);
	196	id_to_name(id, "LIST", &name);
	197	strcpy(barg0, name);
	198	strcpy(barg1, argv[1]);
	199	id = (int) argv[2];
	200	if (!strcmp(barg1, "USER")) {
	201	id_to_name(id, barg1, &name);
	202	} else if (!strcmp(barg1, "LIST")) {
	203	id_to_name(id, barg1, &name);
	204	} else if (!strcmp(barg1, "STRING")) {
	205	id_to_name(id, barg1, &name);
	206	} else if (!strcmp(barg1, "KERBEROS")) {
	207	id_to_name(id, "STRING", &name);
	208	}
	209	strcpy(barg2, name);
	210	free(name);
5be1b7fc	211	beforec = 9;
32cfe906	212	} /* else
32cfe906	213	com_err(whoami, 0, "unknown table in incremental_before"); */
a313cad2	214	}
32cfe906	215
	216
	217	incremental_clear_before()
	218	{
	219	beforec = 0;
	220	}
	221
	222	incremental_clear_after()
	223	{
	224	incremental_after("clear", 0);
	225	}
	226
	227
	228
a313cad2	229	incremental_after(table, qual, argv)
a313cad2	230	char *table;
45bf7573	231	EXEC SQL BEGIN DECLARE SECTION;
a313cad2	232	char *qual;
a313cad2	233	EXEC SQL END DECLARE SECTION;
32cfe906	234	char **argv;
a313cad2	235	{
32cfe906	236	char buffer[2048], *name;
a313cad2	237	EXEC SQL BEGIN DECLARE SECTION;
	238	int id, i;
	239	EXEC SQL END DECLARE SECTION;
32cfe906	240	struct iupdate *iu;
	241	char **copy_argv();
	242
	243	if (!strcmp(table, "users")) {
0c345c78	244	EXEC SQL SELECT u.login, CHAR(u.uid), u.shell, u.last, u.first,
0c345c78	245	u.middle, CHAR(u.status), u.clearid, u.type
a313cad2	246	INTO :aarg0, :aarg1, :aarg2, :aarg3, :aarg4, :aarg5,
a313cad2	247	:aarg6, :aarg7, :aarg8
0c345c78	248	FROM users u WHERE :qual;
32cfe906	249	afterc = 9;
32cfe906	250	} else if (!strcmp(table, "machine")) {
2eb0fc99	251	EXEC SQL SELECT m.name, m.vendor INTO :aarg0, :aarg1
0c345c78	252	FROM machine m WHERE :qual;
32cfe906	253	afterc = 2;
32cfe906	254	} else if (!strcmp(table, "cluster")) {
0c345c78	255	EXEC SQL SELECT c.name, c.description, c.location
45bf7573	256	INTO :aarg0, :aarg1, :aarg2
0c345c78	257	FROM cluster c WHERE :qual;
32cfe906	258	afterc = 3;
	259	} else if (!strcmp(table, "mcmap")) {
	260	strcpy(aarg0, argv[0]);
	261	strcpy(aarg1, argv[1]);
	262	afterc = 2;
	263	} else if (!strcmp(table, "svc")) {
	264	strcpy(aarg0, argv[0]);
	265	strcpy(aarg1, argv[1]);
	266	strcpy(aarg2, argv[2]);
	267	afterc = 3;
	268	} else if (!strcmp(table, "filesys")) {
0c345c78	269	EXEC SQL SELECT CHAR(fs.label), fs.type, CHAR(fs.mach_id), fs.name,
	270	fs.mount, fs.access, fs.comments, CHAR(fs.owner), CHAR(fs.owners),
	271	CHAR(fs.createflg), fs.lockertype
a313cad2	272	INTO :aarg0, :aarg1, :aarg2, :aarg3, :aarg4, :aarg5, :aarg6,
	273	:aarg7, :aarg8, :aarg9, :aarg10
	274	FROM filesys fs WHERE :qual;
bc5e9d66	275	name = malloc(0);
	276	id = atoi(aarg2);
	277	id_to_name(id, "MACHINE", &name);
	278	strcpy(aarg2, name);
	279	id = atoi(aarg7);
	280	id_to_name(id, "USER", &name);
	281	strcpy(aarg7, name);
	282	id = atoi(aarg8);
	283	id_to_name(id, "LIST", &name);
	284	strcpy(aarg8, name);
	285	free(name);
32cfe906	286	afterc = 11;
	287	} else if (!strcmp(table, "quota")) {
	288	strcpy(aarg0, "?");
	289	strcpy(aarg1, argv[1]);
	290	strcpy(aarg2, "?");
1d4c56d5	291	sprintf(buffer, "%s and fs.filsys_id = q.filsys_id and q.type = '%s'",
962364ec	292	qual, argv[1]);
32cfe906	293	qual = buffer;
0c345c78	294	EXEC SQL SELECT CHAR(q.quota), fs.name INTO :aarg3, :aarg4
0c345c78	295	FROM quota q, filesys fs WHERE :qual;
32cfe906	296	afterc = 5;
32cfe906	297	} else if (!strcmp(table, "list")) {
0c345c78	298	EXEC SQL SELECT l.name, CHAR(l.active), CHAR(l.publicflg),
	299	CHAR(l.hidden), CHAR(l.maillist), CHAR(l.grouplist), CHAR(l.gid),
	300	l.acl_type, CHAR(l.acl_id), l.description
a313cad2	301	INTO :aarg0, :aarg1, :aarg2, :aarg3, :aarg4, :aarg5, :aarg6,
a313cad2	302	:aarg7, :aarg8, :aarg9
0c345c78	303	FROM list l WHERE :qual;
32cfe906	304	afterc = 10;
	305	} else if (!strcmp(table, "members")) {
	306	id = (int) argv[0];
5be1b7fc	307	EXEC SQL SELECT CHAR(active), CHAR(publicflg), CHAR(hidden),
	308	CHAR(maillist), CHAR(grouplist), CHAR(gid)
	309	INTO :aarg3, :aarg4, :aarg5, :aarg6, :aarg7, :aarg8
	310	FROM list WHERE list_id = :id;
32cfe906	311	name = malloc(0);
	312	id_to_name(id, "LIST", &name);
	313	strcpy(aarg0, name);
	314	strcpy(aarg1, argv[1]);
	315	id = (int) argv[2];
	316	if (!strcmp(aarg1, "USER")) {
	317	id_to_name(id, aarg1, &name);
	318	} else if (!strcmp(aarg1, "LIST")) {
	319	id_to_name(id, aarg1, &name);
	320	} else if (!strcmp(aarg1, "STRING")) {
	321	id_to_name(id, aarg1, &name);
	322	} else if (!strcmp(aarg1, "KERBEROS")) {
	323	id_to_name(id, "STRING", &name);
	324	}
	325	strcpy(aarg2, name);
	326	free(name);
5be1b7fc	327	afterc = 9;
32cfe906	328	} else if (!strcmp(table, "clear")) {
	329	afterc = 0;
	330	table = beforetable;
	331	} /* else
	332	com_err(whoami, 0, "unknown table in incremental_after"); */
	333
	334	iu = (struct iupdate *) malloc(sizeof(struct iupdate));
	335	iu->table = strsave(table);
	336	iu->beforec = beforec;
	337	iu->before = copy_argv(before, beforec);
	338	iu->afterc = afterc;
	339	iu->after = copy_argv(after, afterc);
	340	sq_save_data(incremental_sq, iu);
	341
	342	#ifdef DEBUG
	343	sprintf(buffer, "INCREMENTAL(%s, [", table);
	344	for (i = 0; i < beforec; i++) {
	345	if (i == 0)
	346	strcat(buffer, strtrim(before[0]));
	347	else {
	348	strcat(buffer, ", ");
	349	strcat(buffer, strtrim(before[i]));
	350	}
	351	}
	352	strcat(buffer, "], [");
	353	for (i = 0; i < afterc; i++) {
	354	if (i == 0)
	355	strcat(buffer, strtrim(after[0]));
	356	else {
	357	strcat(buffer, ", ");
	358	strcat(buffer, strtrim(after[i]));
	359	}
	360	}
	361	strcat(buffer, "])");
	362	com_err(whoami, 0, buffer);
	363	#endif DEBUG
a313cad2	364	}
32cfe906	365
	366
	367	/* Called when the current transaction is committed to start any queued
	368	* incremental updates. This caches the update table the first time it
	369	* is called.
	370	*/
	371
	372	struct inc_cache {
	373	struct inc_cache *next;
	374	char *table;
	375	char *service;
	376	};
	377
	378
	379	incremental_update()
	380	{
	381	static int inited = 0;
	382	static struct inc_cache *cache;
	383	struct inc_cache *c;
	384	EXEC SQL BEGIN DECLARE SECTION;
	385	char tab[17], serv[17];
	386	EXEC SQL END DECLARE SECTION;
	387	struct iupdate *iu;
	388
	389	if (!inited) {
	390	inited++;
	391
45bf7573	392	EXEC SQL DECLARE inc CURSOR FOR SELECT tablename, service FROM incremental;
32cfe906	393	EXEC SQL OPEN inc;
	394	while (1) {
	395	EXEC SQL FETCH inc INTO :tab, :serv;
	396	if (sqlca.sqlcode != 0) break;
	397	c = (struct inc_cache *)malloc(sizeof(struct inc_cache));
	398	c->next = cache;
	399	c->table = strsave(strtrim(tab));
	400	c->service = strsave(strtrim(serv));
	401	cache = c;
	402	}
	403	EXEC SQL CLOSE inc;
de0954da	404	EXEC SQL COMMIT WORK;
32cfe906	405	}
	406
	407	while (sq_remove_data(incremental_sq, &iu)) {
	408	for (c = cache; c; c = c->next) {
	409	if (!strcmp(c->table, iu->table)) {
	410	iu->service = c->service;
	411	sq_save_data(incremental_exec, iu);
	412	}
	413	}
	414	}
	415	if (inc_running == 0)
	416	next_incremental();
	417	}
	418
	419
	420	next_incremental()
	421	{
	422	struct iupdate *iu;
	423	char argv[MAXARGC 2 + 4], cafter[3], cbefore[3], prog[BUFSIZ];
	424	int i;
	425
	426	if (incremental_exec == NULL)
	427	incremental_init();
	428
	429	if (sq_empty(incremental_exec) \|\|
	430	(inc_running && now - inc_started < INC_TIMEOUT))
	431	return;
	432
	433	if (inc_running)
	434	com_err(whoami, 0, "incremental timeout on pid %d", inc_pid);
	435
	436	sq_remove_data(incremental_exec, &iu);
	437	argv[1] = iu->table;
	438	sprintf(cbefore, "%d", iu->beforec);
	439	argv[2] = cbefore;
	440	sprintf(cafter, "%d", iu->afterc);
	441	argv[3] = cafter;
	442	for (i = 0; i < iu->beforec; i++)
	443	argv[4 + i] = iu->before[i];
	444	for (i = 0; i < iu->afterc; i++)
	445	argv[4 + iu->beforec + i] = iu->after[i];
	446
	447	sprintf(prog, "%s/%s.incr", BIN_DIR, iu->service);
	448	#ifdef DEBUG
	449	com_err(whoami, 0, "forking %s", prog);
	450	#endif
	451	argv[0] = prog;
	452	argv[4 + iu->beforec + iu->afterc] = 0;
	453	inc_pid = vfork();
	454	switch (inc_pid) {
	455	case 0:
	456	execv(prog, argv);
af0171d9	457	_exit(1);
32cfe906	458	case -1:
	459	com_err(whoami, 0, "Failed to start incremental update");
	460	break;
	461	default:
	462	inc_running = 1;
	463	inc_started = now;
	464	}
	465
	466	free_argv(iu->before, iu->beforec);
	467	free_argv(iu->after, iu->afterc);
	468	free(iu->table);
	469	free(iu);
	470
	471	}
	472
	473
	474	/* Called when the current transaction is aborted to throw away any queued
	475	* incremental updates
	476	*/
	477
	478	incremental_flush()
	479	{
	480	struct iupdate *iu;
	481
	482	while (sq_get_data(incremental_sq, &iu)) {
	483	free_argv(iu->before, iu->beforec);
	484	free_argv(iu->after, iu->afterc);
	485	free(iu->table);
	486	free(iu);
	487	}
	488	sq_destroy(incremental_sq);
	489	incremental_sq = sq_create();
	490	}
	491
	492
	493	char **copy_argv(argv, argc)
	494	char **argv;
	495	int argc;
	496	{
	497	char ret = (char )malloc(sizeof(char ) argc);
	498	while (--argc >= 0)
	499	ret[argc] = strsave(strtrim(argv[argc]));
	500	return(ret);
	501	}
	502
	503	free_argv(argv, argc)
	504	char **argv;
	505	int argc;
	506	{
	507	while (--argc >= 0)
	508	free(argv[argc]);
	509	free(argv);
	510	}