[moira.git] / server / increment.pc

/* $Id$
 *
 * Deal with incremental updates
 *
 * Copyright (C) 1989-1998 by the Massachusetts Institute of Technology
 * For copying and distribution information, please see the file
 * <mit-copyright.h>.
 */

#include <mit-copyright.h>
#include "mr_server.h"
#include "query.h"
#include "qrtn.h"

#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

EXEC SQL INCLUDE sqlca;

RCSID("$Header$");

extern char *whoami;
extern char *table_name[];
extern int num_tables;

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

#define MAXARGC 15

EXEC SQL WHENEVER SQLERROR DO dbmserr();

/* structures to save before args */
static char *before[MAXARGC];
static int beforec;
static enum tables beforetable;

/* structures to save after args */
static char *after[MAXARGC];
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;
};

void next_incremental(void);
void free_argv(char **argv, int argc);
int table_num(char *table);

void incremental_init(void)
{
  int i;

  if (!incremental_sq)
    incremental_sq = sq_create();
  if (!incremental_exec)
    incremental_exec = sq_create();

  for (i = 0; i < MAXARGC; i++)
    {
      before[i] = xmalloc(MAX_FIELD_WIDTH);
      after[i] = xmalloc(MAX_FIELD_WIDTH);
    }
}


/* record the state of a table row before it is changed */

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

  char *name;

  beforetable = table;

  switch (table)
    {
    case USERS_TABLE:
      sprintf(stmt_buf, "SELECT u.login, u.unix_uid, u.shell, u.last, "
	      "u.first, u.middle, u.status, u.clearid, u.type "
	      "FROM users u WHERE %s", qual);
      dosql(before);
      beforec = 9;
      break;
    case MACHINE_TABLE:
      sprintf(stmt_buf, "SELECT m.name, m.vendor FROM machine m "
	      "WHERE %s", qual);
      dosql(before);
      beforec = 2;
      break;
    case CLUSTERS_TABLE:
      sprintf(stmt_buf, "SELECT c.name, c.description, c.location "
	      "FROM clusters c WHERE %s", qual);
      dosql(before);
      beforec = 3;
      break;
    case MCMAP_TABLE:
      strcpy(before[0], argv[0]);
      strcpy(before[1], argv[1]);
      beforec = 2;
      break;
    case SVC_TABLE:
      strcpy(before[0], argv[0]);
      strcpy(before[1], argv[1]);
      strcpy(before[2], argv[2]);
      beforec = 3;
      break;
    case FILESYS_TABLE:
      sprintf(stmt_buf, "SELECT fs.label, fs.type, fs.mach_id, fs.name, "
	      "fs.mount, fs.rwaccess, fs.comments, fs.owner, fs.owners, "
	      "fs.createflg, fs.lockertype FROM filesys fs WHERE %s", qual);
      dosql(before);
      name = malloc(0);
      id = atoi(before[2]);
      id_to_name(id, MACHINE_TABLE, &name);
      strcpy(before[2], name);
      id = atoi(before[7]);
      id_to_name(id, USERS_TABLE, &name);
      strcpy(before[7], name);
      id = atoi(before[8]);
      id_to_name(id, LIST_TABLE, &name);
      strcpy(before[8], name);
      free(name);
      beforec = 11;
      break;
    case QUOTA_TABLE:
      strcpy(before[0], "?");
      strcpy(before[1], argv[1]);
      strcpy(before[2], "?");
      sprintf(stmt_buf, "SELECT q.quota, fs.name FROM quota q, filesys fs "
	      "WHERE %s AND fs.filsys_id = q.filsys_id", qual);
      dosql(&(before[3]));
      strcpy(before[2], argv[1]);
      beforec = 5;
      break;
    case LIST_TABLE:
      sprintf(stmt_buf, "SELECT l.name, l.active, l.publicflg, l.hidden, "
	      "l.maillist, l.grouplist, l.gid, l.acl_type, l.acl_id, "
	      "l.description FROM list l WHERE %s", qual);
      dosql(before);
      beforec = 10;
      break;
    case IMEMBERS_TABLE:
      id = (int) argv[0];
      sprintf(stmt_buf, "SELECT active, publicflg, hidden, maillist, "
	      "grouplist, gid FROM list WHERE list_id = %d", id);
      dosql(&(before[3]));
      name = malloc(0);
      id_to_name(id, LIST_TABLE, &name);
      strcpy(before[0], name);
      strcpy(before[1], argv[1]);
      id = (int) argv[2];
      beforec = 9;
      if (!strcmp(before[1], "USER"))
	{
	  id_to_name(id, USERS_TABLE, &name);
	  EXEC SQL SELECT status INTO :before[9] FROM users
	    WHERE users_id = :id;
	  beforec = 10;
      }
      else if (!strcmp(before[1], "LIST"))
	id_to_name(id, LIST_TABLE, &name);
      else if (!strcmp(before[1], "STRING") || !strcmp(before[1], "KERBEROS"))
	id_to_name(id, STRINGS_TABLE, &name);
      strcpy(before[2], name);
      free(name);
      break;
    default:
	/*
	com_err(whoami, 0, "requested incremental on unexpected table `%s'",
		table_name[table]);
	*/
      break;
    }
}


void incremental_clear_before(void)
{
  beforec = 0;
}


/* add an element to the incremental queue for the changed row */

void incremental_after(enum tables table, char *qual, char **argv)
{
  char *name;
  EXEC SQL BEGIN DECLARE SECTION;
  int id;
  EXEC SQL END DECLARE SECTION;
  struct iupdate *iu;

  switch (table)
    {
    case USERS_TABLE:
      sprintf(stmt_buf, "SELECT u.login, u.unix_uid, u.shell, u.last, "
	      "u.first, u.middle, u.status, u.clearid, u.type "
	      "FROM users u WHERE %s", qual);
      dosql(after);
      afterc = 9;
      break;
    case MACHINE_TABLE:
      sprintf(stmt_buf, "SELECT m.name, m.vendor FROM machine m "
	      "WHERE %s", qual);
      dosql(after);
      afterc = 2;
      break;
    case CLUSTERS_TABLE:
      sprintf(stmt_buf, "SELECT c.name, c.description, c.location "
	      "FROM clusters c WHERE %s", qual);
      dosql(after);
      afterc = 3;
      break;
    case MCMAP_TABLE:
      strcpy(after[0], argv[0]);
      strcpy(after[1], argv[1]);
      afterc = 2;
      break;
    case SVC_TABLE:
      strcpy(after[0], argv[0]);
      strcpy(after[1], argv[1]);
      strcpy(after[2], argv[2]);
      afterc = 3;
      break;
    case FILESYS_TABLE:
      sprintf(stmt_buf, "SELECT fs.label, fs.type, fs.mach_id, fs.name, "
	      "fs.mount, fs.rwaccess, fs.comments, fs.owner, fs.owners, "
	      "fs.createflg, fs.lockertype FROM filesys fs WHERE %s", qual);
      dosql(after);
      name = malloc(0);
      id = atoi(after[2]);
      id_to_name(id, MACHINE_TABLE, &name);
      strcpy(after[2], name);
      id = atoi(after[7]);
      id_to_name(id, USERS_TABLE, &name);
      strcpy(after[7], name);
      id = atoi(after[8]);
      id_to_name(id, LIST_TABLE, &name);
      strcpy(after[8], name);
      free(name);
      afterc = 11;
      break;
    case QUOTA_TABLE:
      strcpy(after[0], "?");
      strcpy(after[1], argv[1]);
      strcpy(after[2], "?");
      sprintf(stmt_buf, "SELECT q.quota, fs.name FROM quota q, filesys fs "
	      "WHERE %s and fs.filsys_id = q.filsys_id and q.type = '%s'",
	      qual, argv[1]);
      dosql(&(after[3]));
      afterc = 5;
      break;
    case LIST_TABLE:
      sprintf(stmt_buf, "SELECT l.name, l.active, l.publicflg, l.hidden, "
	      "l.maillist, l.grouplist, l.gid, l.acl_type, l.acl_id, "
	      "l.description FROM list l WHERE %s", qual);
      dosql(after);
      afterc = 10;
      break;
    case IMEMBERS_TABLE:
      id = (int) argv[0];
      sprintf(stmt_buf, "SELECT active, publicflg, hidden, maillist, "
	      "grouplist, gid FROM list WHERE list_id = %d", id);
      dosql(&(after[3]));
      name = malloc(0);
      id_to_name(id, LIST_TABLE, &name);
      strcpy(after[0], name);
      strcpy(after[1], argv[1]);
      id = (int) argv[2];
      afterc = 9;
      if (!strcmp(after[1], "USER"))
	{
	  id_to_name(id, USERS_TABLE, &name);
	  EXEC SQL SELECT status INTO :after[9] FROM users
	    WHERE users_id = :id;
	  afterc = 10;
	}
      else if (!strcmp(after[1], "LIST"))
	id_to_name(id, LIST_TABLE, &name);
      else if (!strcmp(after[1], "STRING") || !strcmp(after[1], "KERBEROS"))
	id_to_name(id, STRINGS_TABLE, &name);
      strcpy(after[2], name);
      free(name);
      break;
    case NO_TABLE:
      afterc = 0;
      table = beforetable;
      break;
    default:
	/*
	com_err(whoami, 0, "requested incremental on unexpected table `%s'",
		table_name[table]);
	*/
      break;
    }

  iu = xmalloc(sizeof(struct iupdate));
  iu->table = table_name[table];
  iu->beforec = beforec;
  iu->before = mr_copy_args(before, beforec);
  iu->afterc = afterc;
  iu->after = mr_copy_args(after, afterc);
  sq_save_data(incremental_sq, iu);
}

void incremental_clear_after(void)
{
  incremental_after(NO_TABLE, NULL, NULL);
}


/* 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, *service;
};


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

  if (!inited)
    {
      inited++;

      EXEC SQL DECLARE inc CURSOR FOR SELECT table_name, service
	FROM incremental;
      EXEC SQL OPEN inc;
      while (1)
	{
	  EXEC SQL FETCH inc INTO :tab, :serv;
	  if (sqlca.sqlcode)
	    break;
	  c = xmalloc(sizeof(struct inc_cache));
	  c->next = cache;
	  c->table = xstrdup(strtrim(tab));
	  c->service = xstrdup(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);
	      break;
	    }
	}
      if (!c)
	{
	  free_argv(iu->before, iu->beforec);
	  free_argv(iu->after, iu->afterc);
	  free(iu);
	}
    }
  if (inc_running == 0)
    next_incremental();
}


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

  if (!incremental_exec)
    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);
  argv[0] = prog;
  argv[4 + iu->beforec + iu->afterc] = 0;

  sigemptyset(&sigs);
  sigaddset(&sigs, SIGCHLD);
  sigprocmask(SIG_BLOCK, &sigs, NULL);
  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;
    }
  sigprocmask(SIG_UNBLOCK, &sigs, NULL);

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


/* Called when the current transaction is aborted to throw away any queued
 * incremental updates
 */

void incremental_flush(void)
{
  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();
}


void free_argv(char **argv, int argc)
{
  while (--argc >= 0)
    free(argv[argc]);
  free(argv);
}

int table_num(char *name)
{
  int i;

  for (i = num_tables - 1; i; i--)
    {
      if (!strcmp(table_name[i], name))
	break;
    }

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