[moira.git] / server / increment.pc

/*
 *	$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 <mit-copyright.h>
#include <moira.h>
#include <fcntl.h>
#include <unistd.h>
#include <signal.h>
#include "mr_server.h"
#include "query.h"
#include "qrtn.h"
EXEC SQL INCLUDE sqlca;

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);
char **copy_argv(char **argv, int argc);
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] = malloc(ARGLEN);
      after[i] = malloc(ARGLEN);
    }
}


/* 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 CLUSTER_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 CLUSTER_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 = malloc(sizeof(struct iupdate));
  iu->table = table_name[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);
}

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[17], serv[17];
  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 = 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();
}


void next_incremental(void)
{
  struct iupdate *iu;
  char *argv[MAXARGC * 2 + 4], cafter[3], cbefore[3], prog[BUFSIZ];
  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();
}


char **copy_argv(char **argv, int argc)
{
  char **ret = malloc(sizeof(char *) * argc);
  while (--argc >= 0)
    ret[argc] = strsave(strtrim(argv[argc]));
  return ret;
}

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