[moira.git] / gen / mailhub.pc

/* $Id$
 *
 * This generates the /usr/lib/aliases file for the mailhub.
 *
 * (c) Copyright 1988-1998 by the Massachusetts Institute of Technology.
 * For copying and distribution information, please see the file
 * <mit-copyright.h>.
 */

#include <mit-copyright.h>
#include <moira.h>
#include <moira_site.h>

#include <sys/stat.h>

#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "util.h"

EXEC SQL INCLUDE sqlca;

RCSID("$Header$");

char *whoami = "mailhub.gen";
char *db = "moira/moira";
char *divide = "##############################################################";

#define MAX_LINE_WIDTH	72
#define MAX_ALIAS_WIDTH 592

#define FALSE 0
#define TRUE (!FALSE)

struct hash *users, *machines, *strings, *lists;
struct user {
  char *login;
  char *pobox;
};
struct member {
  struct member *next;
  char *name;
  int list_id;
};
struct list {
  char *name;
  char maillist;
  char *description;
  char acl_t;
  int acl_id;
  char mailman;
  char *mailman_server;
  struct member *m;
};

void get_info(void);
int check_string(char *s);
void output_login(int dummy, void *names, void *out);
void output_mlist(int id, void *list, void *out);
void output_membership(struct list *l, FILE *out);
void put_fill(FILE *aliases, char *string);
void do_people(void);

int incount = 0;

int main(int argc, char **argv)
{
  time_t tm = time(NULL);
  char filename[MAXPATHLEN], *targetfile;
  FILE *out = stdout;

  srand(tm);
  EXEC SQL CONNECT :db;

  if (argc == 2)
    {
      targetfile = argv[1];
      sprintf(filename, "%s~", targetfile);
      if (!(out = fopen(filename, "w")))
	{
	  fprintf(stderr, "unable to open %s for output\n", filename);
	  exit(MR_OCONFIG);
	}
    }
  else if (argc != 1)
    {
      fprintf(stderr, "usage: %s [outfile]\n", argv[0]);
      exit(MR_ARGS);
    }

  fprintf(out, "%s\n# Aliases File Extract of %s", divide, ctime(&tm));
  fprintf(out, "# This file is automatically generated, "
	  "do not edit it directly.\n%s\n\n", divide);

  get_info();

  EXEC SQL COMMIT;

  incount = 0;
  fprintf(out, "\n%s\n# Mailing lists\n%s\n\n", divide, divide);
  hash_step(lists, output_mlist, out);
  fprintf(stderr, "Output %d lists\n", incount);

  incount = 0;
  fprintf(out, "\n%s\n# People\n%s\n\n", divide, divide);
  hash_step(users, output_login, out);
  fprintf(stderr, "Output %d users\n", incount);

  fprintf(out, "\n%s\n# End of aliases file\n", divide);

  if (fclose(out))
    {
      perror("close failed");
      exit(MR_CCONFIG);
    }

  if (argc == 2)
    fix_file(targetfile);
  exit(MR_SUCCESS);
}

void get_info(void)
{
  EXEC SQL BEGIN DECLARE SECTION;
  int id, pid, iid, bid, cnt, maillistp, acl, mid, mailman;
  char mname[MACHINE_NAME_SIZE], str[STRINGS_STRING_SIZE];
  char login[USERS_LOGIN_SIZE], potype[USERS_POTYPE_SIZE];
  char lname[LIST_NAME_SIZE], desc[LIST_DESCRIPTION_SIZE];
  char type[LIST_ACL_TYPE_SIZE], mailman_server[MACHINE_NAME_SIZE];
  EXEC SQL END DECLARE SECTION;
  char *s;
  struct user *u;
  struct list *l, *memberlist;
  struct member *m;

  /* The following is declarative, not executed,
   * and so is dependent on where it is in the file,
   * not in the order of execution of statements.
   */
  EXEC SQL WHENEVER SQLERROR GOTO sqlerr;

  cnt = 0;
  machines = create_hash(100);

  EXEC SQL DECLARE m_cursor CURSOR FOR
    SELECT mach_id, name
    FROM machine
    WHERE status = 1
    AND ( mach_id IN ( SELECT UNIQUE pop_id FROM users ) OR
	  mach_id IN ( SELECT UNIQUE mach_id FROM filesys
		       WHERE type = 'IMAP' ) )
    ORDER BY mach_id;
  EXEC SQL OPEN m_cursor;
  while (1)
    {
      EXEC SQL FETCH m_cursor INTO :id, :mname;
      if (sqlca.sqlcode)
	break;
      if ((s = strchr(mname, '.')))
	*s = '\0';
      else
	strtrim(mname);
#ifdef ATHENA
      strcat(mname, ".LOCAL");
#endif
      if (hash_store(machines, id, strdup(mname)) < 0)
	{
	  fprintf(stderr, "Out of memory!\n");
	  exit(MR_NO_MEM);
	}
      cnt++;
    }
  EXEC SQL CLOSE m_cursor;

  fprintf(stderr, "Loaded %d machines\n", cnt);

  cnt = 0;
  strings = create_hash(11001);

  EXEC SQL DECLARE s_cursor CURSOR FOR
    SELECT string_id, string
    FROM strings
    ORDER BY string_id;
  EXEC SQL OPEN s_cursor;
  while (1)
    {
      EXEC SQL FETCH s_cursor INTO :id, :str;
      if (sqlca.sqlcode)
	break;
      if (hash_store(strings, id, strdup(strtrim(str))) < 0)
	{
	  fprintf(stderr, "Out of memory!\n");
	  exit(MR_NO_MEM);
	}
      cnt++;
    }
  EXEC SQL CLOSE s_cursor;

  fprintf(stderr, "Loaded %d strings\n", cnt);

  cnt = 0;
  users = create_hash(13001);

  EXEC SQL DECLARE u_cursor CURSOR FOR
    SELECT users_id, login, potype, pop_id, imap_id, box_id
    FROM users
    WHERE status != 3
    ORDER BY users_id;
  EXEC SQL OPEN u_cursor;
  while (1)
    {
      char *saddr = NULL, *paddr = NULL;

      EXEC SQL FETCH u_cursor INTO :id, :login, :potype, :pid, :iid, :bid;
      if (sqlca.sqlcode)
	break;
      u = malloc(sizeof(struct user));
      u->login = strdup(strtrim(login));

      if (!strcmp(strtrim(potype), "NONE"))
	u->pobox = NULL;
      else
	{
	  /* If SMTP or SPLIT, get SMTP address. */
	  if (potype[0] == 'S')
	    {
	      saddr = hash_lookup(strings, bid);

	      /* If SMTP, clear pid and iid. */
	      if (potype[1] == 'M')
		pid = iid = 0;
	    }

	  /* If IMAP, or SPLIT with IMAP, set pid to mach_id. */
	  if (potype[0] == 'I' || (potype[0] == 'S' && iid))
	    {
	      EXEC SQL SELECT mach_id INTO :pid FROM filesys
		WHERE filsys_id = :iid;
	    }

	  if (pid && (s = hash_lookup(machines, pid)))
	    {
	      paddr = malloc(strlen(u->login) + strlen(s) + 2);
	      sprintf(paddr, "%s@%s", u->login, s);
	    }

	  if (paddr && saddr)
	    {
	      u->pobox = malloc(strlen(paddr) + strlen(saddr) + 3);
	      sprintf(u->pobox, "%s, %s", paddr, saddr);
	      free(paddr);
	    }
	  else if (paddr)
	    u->pobox = paddr;
	  else
	    u->pobox = saddr;
	}

      check_string(u->login);
      if (hash_store(users, id, u) < 0)
	{
	  fprintf(stderr, "Out of memory!\n");
	  exit(MR_NO_MEM);
	}
      cnt++;
    }
  EXEC SQL CLOSE u_cursor;
  fprintf(stderr, "Loaded %d users\n", cnt);

  cnt = 0;
  lists = create_hash(15000);

  EXEC SQL DECLARE l_cursor CURSOR FOR
    SELECT l.list_id, l.name, l.maillist, l.description, l.acl_type, l.acl_id,
    l.mailman, m.name
    FROM list l, machine m
    WHERE active != 0 AND l.mailman_id = m.mach_id
    ORDER BY list_id;
  EXEC SQL OPEN l_cursor;
  while (1)
    {
      EXEC SQL FETCH l_cursor INTO :id, :lname, :maillistp, :desc, :type, :acl,
	:mailman, :mailman_server;
      if (sqlca.sqlcode)
	break;
      l = malloc(sizeof(struct list));
      l->name = strdup(strtrim(lname));
      l->maillist = maillistp;
      l->description = strdup(strtrim(desc));
      l->acl_t = type[0];
      l->acl_id = acl;
      l->mailman = mailman;
      l->mailman_server = strdup(strtrim(mailman_server));
      l->m = NULL;
      if (hash_store(lists, id, l) < 0)
	{
	  fprintf(stderr, "Out of memory!\n");
	  exit(MR_NO_MEM);
	}
      cnt++;
    }
  EXEC SQL CLOSE l_cursor;
  fprintf(stderr, "Loaded %d lists\n", cnt);

  cnt = 0;

  EXEC SQL DECLARE m_cursor2 CURSOR FOR
    SELECT list_id, member_type, member_id
    FROM imembers
    WHERE direct = 1
    ORDER BY list_id;
  EXEC SQL OPEN m_cursor2;
  while (1)
    {
      EXEC SQL FETCH m_cursor2 INTO :id, :type, :mid;
      if (sqlca.sqlcode)
	break;
      cnt++;
      if ((l = hash_lookup(lists, id)))
	{
	  m = malloc(sizeof(struct member));
	  if (type[0] == 'U' && (u = hash_lookup(users, mid)))
	    {
	      m->list_id = 0;
	      m->name = u->login;
	      m->next = l->m;
	      l->m = m;
	    }
	  else if (type[0] == 'L' && (memberlist = hash_lookup(lists, mid)))
	    {
	      m->list_id = mid;
	      m->name = memberlist->name;
	      m->next = l->m;
	      l->m = m;
	    }
	  else if (type[0] == 'S' && (s = hash_lookup(strings, mid)))
	    {
	      m->list_id = 0;
	      m->next = l->m;
	      l->m = m;
	      m->name = s;
	    }
	}
    }
  EXEC SQL CLOSE m_cursor2;
  fprintf(stderr, "Loaded %d members\n", cnt);

  EXEC SQL COMMIT;
  return;
sqlerr:
  db_error(sqlca.sqlcode);
  exit(MR_DBMS_ERR);
}


void output_login(int dummy, void *user, void *out)
{
  struct user *u = user;

  incount++;
  if (u->pobox && check_string(u->login) && u->login[0] != '#')
    fprintf(out, "%s: %s\n", u->login, u->pobox);
}

int line_width, alias_width;
static const char *mailman_suffixes[] = { "-admin", "-owner", "-request",
					  "-bounces", "-confirm", "-join",
					  "-leave", "-subscribe",
					  "-unsubscribe", NULL };

void output_mlist(int id, void *list, void *out)
{
  struct list *l = list, *l1;
  struct user *u;
  int len = strlen(l->name), i;

  if (!l->maillist || !check_string(l->name))
    return;

  /* If standard user group appears on a list, substitute in the user. */
  if (l->m && l->m->next == NULL && !strcasecmp(l->name, l->m->name))
    return;

  put_fill(out, l->description);

  if (l->mailman && strcmp(l->mailman_server, "[NONE]"))
    {
      for (i = 0; mailman_suffixes[i]; i++)
	fprintf(out, "%s%s: %s%s@%s\n", l->name, mailman_suffixes[i], l->name,
		mailman_suffixes[i], l->mailman_server);
    }

  if (l->acl_t ==  'L' && (l1 = hash_lookup(lists, l->acl_id)))
    {
      fprintf(out, "owner-%s: ", l->name);
      if ((l1->maillist) && (strcmp(l->name, l1->name)))
	fprintf(out, "%s\n", l1->name);
      else
	{
	  alias_width = line_width = len + 8;
	  output_membership(l1, out);
	  fprintf(out, "\n");
	}
    }
  else if (l->acl_t ==  'U' && (u = hash_lookup(users, l->acl_id)))
    fprintf(out, "owner-%s: %s\n", l->name, u->login);

  fprintf(out, "%s: ", l->name);
  alias_width = line_width = len + 2;
  output_membership(l, out);
  fprintf(out, "\n\n");
  incount++;
}

void output_membership(struct list *l, FILE *out)
{
  struct member *m;
  struct list *l1;
  int word_width, linestart = 1;
  static int cont = 1;
  char str[8];

  for (m = l->m; m; m = m->next)
    {
      word_width = strlen(m->name);

      if (!linestart && alias_width + word_width + 2 > MAX_ALIAS_WIDTH)
	{
	  /* Make a continuation. */
	  sprintf(str, "%c%c%c%c%c%c", rand() % 26 + 97, rand() % 26 + 97,
		  rand() % 26 + 97, rand() % 26 + 97,
		  rand() % 26 + 97, rand() % 26 + 97);
	  fprintf(out, ",\n\tcont%d-%s\ncont%d-%s: ", cont, str, cont, str);
	  cont++;
	  alias_width = line_width = 17 + word_width;
	}
      else if (linestart)
	{
	  /* First word on line, so we can't wrap. */
	  line_width += word_width;
	  alias_width = line_width;
	  linestart = 0;
	}
      else if (line_width + word_width + 2 > MAX_LINE_WIDTH)
	{
	  /* Wrap. */
	  fputs(",\n\t", out);
	  alias_width += line_width + word_width + 2;
	  line_width = word_width + 8;
	}
      else
	{
	  /* Continue line. */
	  line_width += word_width + 2;
	  fputs(", ", out);
	}

      if (m->list_id && (l1 = hash_lookup(lists, m->list_id)) && !l1->maillist)
	output_membership(l1, out);
      else
	fputs(m->name, out);
    }
  if (!l->m)
    fprintf(out, "/dev/null");
}

/* Write a word-wrapped list description to the aliases file as a
 * comment. */
void put_fill(FILE *aliases, char *string)
{
  char *c;
  int line_width;
  int word_width;

  if (!string || !*string)
    return;
  fputs("#  ", aliases);
  line_width = 3;

  while (1)
    {
      while (*string == ' ')
	string++;
      c = strchr(string, ' ');
      if (!c)
	word_width = strlen(string);
      else
	{
	  word_width = c - string;
	  *c = '\0';
	}

      if (line_width + word_width > MAX_LINE_WIDTH)
	{
	  fputs("\n#  ", aliases);
	  line_width = 3;
	  fputs(string, aliases);
	}
      else
	fputs(string, aliases);

      if (!c)
	break;
      /* add a space after the word */
      fputc(' ', aliases);
      word_width++;
      line_width += word_width;
      string += word_width;
      /* add another if after a period */
      if (*--c == '.')
	{
	  fputc(' ', aliases);
	  line_width++;
	}
    }

  fputc('\n', aliases);
}


/* Illegal chars: this no longer corresponds to the array 
 * in setup_alis.  '+' is a valid character in a string on 
 * a list, but is not a valid character in a listname.
 */

static int illegalchars[] = {
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* ^@ - ^O */
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* ^P - ^_ */
  1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, /* SPACE - / */
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, /* 0 - ? */
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* @ - O */
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, /* P - _ */
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* ` - o */
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, /* p - ^? */
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
};

int check_string(char *s)
{
  for (; *s; s++)
    {
      if (isupper(*s))
	*s = tolower(*s);

      if (illegalchars[(unsigned) *s])
	return 0;
    }
  return 1;
}
Commit	Line	Data
7ac48069	1	/* $Id$
bac4ceaa	2	*
	3	* This generates the /usr/lib/aliases file for the mailhub.
	4	*
7ac48069	5	* (c) Copyright 1988-1998 by the Massachusetts Institute of Technology.
	6	* For copying and distribution information, please see the file
	7	* <mit-copyright.h>.
bac4ceaa	8	*/
	9
	10	#include <mit-copyright.h>
bac4ceaa	11	#include <moira.h>
bac4ceaa	12	#include <moira_site.h>
7ac48069	13
bac4ceaa	14	#include <sys/stat.h>
7ac48069	15
	16	#include <ctype.h>
	17	#include <stdio.h>
	18	#include <stdlib.h>
	19	#include <string.h>
	20
	21	#include "util.h"
	22
bac4ceaa	23	EXEC SQL INCLUDE sqlca;
bac4ceaa	24
7ac48069	25	RCSID("$Header$");
7ac48069	26
bac4ceaa	27	char *whoami = "mailhub.gen";
9c04b191	28	char *db = "moira/moira";
bac4ceaa	29	char *divide = "##############################################################";
bac4ceaa	30
b033c6ed	31	#define MAX_LINE_WIDTH 72
b033c6ed	32	#define MAX_ALIAS_WIDTH 592
bac4ceaa	33
	34	#define FALSE 0
	35	#define TRUE (!FALSE)
	36
1c9c2ec8	37	struct hash users, machines, strings, lists;
7ac48069	38	struct user {
7ac48069	39	char *login;
7ac48069	40	char *pobox;
	41	};
	42	struct member {
	43	struct member *next;
	44	char *name;
	45	int list_id;
	46	};
	47	struct list {
	48	char *name;
	49	char maillist;
	50	char *description;
	51	char acl_t;
	52	int acl_id;
dd746314	53	char mailman;
dd746314	54	char *mailman_server;
7ac48069	55	struct member *m;
7ac48069	56	};
7ac48069	57
7ac48069	58	void get_info(void);
1c9c2ec8	59	int check_string(char *s);
1c9c2ec8	60	void output_login(int dummy, void names, void out);
496bdfea	61	void output_mlist(int id, void list, void out);
496bdfea	62	void output_membership(struct list l, FILE out);
7ac48069	63	void put_fill(FILE aliases, char string);
	64	void do_people(void);
	65
b033c6ed	66	int incount = 0;
b033c6ed	67
5eaef520	68	int main(int argc, char **argv)
bac4ceaa	69	{
b033c6ed	70	time_t tm = time(NULL);
dfaf9b68	71	char filename[MAXPATHLEN], *targetfile;
496bdfea	72	FILE *out = stdout;
5eaef520	73
496bdfea	74	srand(tm);
5eaef520	75	EXEC SQL CONNECT :db;
	76
	77	if (argc == 2)
	78	{
5eaef520	79	targetfile = argv[1];
	80	sprintf(filename, "%s~", targetfile);
	81	if (!(out = fopen(filename, "w")))
	82	{
	83	fprintf(stderr, "unable to open %s for output\n", filename);
	84	exit(MR_OCONFIG);
bac4ceaa	85	}
5eaef520	86	}
	87	else if (argc != 1)
	88	{
	89	fprintf(stderr, "usage: %s [outfile]\n", argv[0]);
	90	exit(MR_ARGS);
bac4ceaa	91	}
bac4ceaa	92
5eaef520	93	fprintf(out, "%s\n# Aliases File Extract of %s", divide, ctime(&tm));
	94	fprintf(out, "# This file is automatically generated, "
	95	"do not edit it directly.\n%s\n\n", divide);
bac4ceaa	96
5eaef520	97	get_info();
bac4ceaa	98
5eaef520	99	EXEC SQL COMMIT;
bac4ceaa	100
1c9c2ec8	101	incount = 0;
1c9c2ec8	102	fprintf(out, "\n%s\n# Mailing lists\n%s\n\n", divide, divide);
496bdfea	103	hash_step(lists, output_mlist, out);
1c9c2ec8	104	fprintf(stderr, "Output %d lists\n", incount);
bac4ceaa	105
1c9c2ec8	106	incount = 0;
	107	fprintf(out, "\n%s\n# People\n%s\n\n", divide, divide);
	108	hash_step(users, output_login, out);
	109	fprintf(stderr, "Output %d users\n", incount);
bac4ceaa	110
5eaef520	111	fprintf(out, "\n%s\n# End of aliases file\n", divide);
bac4ceaa	112
5eaef520	113	if (fclose(out))
	114	{
	115	perror("close failed");
	116	exit(MR_CCONFIG);
bac4ceaa	117	}
bac4ceaa	118
5eaef520	119	if (argc == 2)
	120	fix_file(targetfile);
	121	exit(MR_SUCCESS);
bac4ceaa	122	}
bac4ceaa	123
7ac48069	124	void get_info(void)
bac4ceaa	125	{
5eaef520	126	EXEC SQL BEGIN DECLARE SECTION;
dd746314	127	int id, pid, iid, bid, cnt, maillistp, acl, mid, mailman;
dfaf9b68	128	char mname[MACHINE_NAME_SIZE], str[STRINGS_STRING_SIZE];
	129	char login[USERS_LOGIN_SIZE], potype[USERS_POTYPE_SIZE];
	130	char lname[LIST_NAME_SIZE], desc[LIST_DESCRIPTION_SIZE];
dd746314	131	char type[LIST_ACL_TYPE_SIZE], mailman_server[MACHINE_NAME_SIZE];
5eaef520	132	EXEC SQL END DECLARE SECTION;
5eaef520	133	char *s;
44d12d58	134	struct user *u;
5eaef520	135	struct list l, memberlist;
44d12d58	136	struct member *m;
5eaef520	137
	138	/* The following is declarative, not executed,
	139	* and so is dependent on where it is in the file,
	140	* not in the order of execution of statements.
	141	*/
	142	EXEC SQL WHENEVER SQLERROR GOTO sqlerr;
	143
	144	cnt = 0;
b033c6ed	145	machines = create_hash(100);
5eaef520	146
	147	EXEC SQL DECLARE m_cursor CURSOR FOR
	148	SELECT mach_id, name
	149	FROM machine
	150	WHERE status = 1
cf807728	151	AND ( mach_id IN ( SELECT UNIQUE pop_id FROM users ) OR
	152	mach_id IN ( SELECT UNIQUE mach_id FROM filesys
	153	WHERE type = 'IMAP' ) )
5eaef520	154	ORDER BY mach_id;
	155	EXEC SQL OPEN m_cursor;
	156	while (1)
	157	{
dfaf9b68	158	EXEC SQL FETCH m_cursor INTO :id, :mname;
5eaef520	159	if (sqlca.sqlcode)
5eaef520	160	break;
dfaf9b68	161	if ((s = strchr(mname, '.')))
5eaef520	162	*s = '\0';
5eaef520	163	else
dfaf9b68	164	strtrim(mname);
bac4ceaa	165	#ifdef ATHENA
dfaf9b68	166	strcat(mname, ".LOCAL");
bac4ceaa	167	#endif
dfaf9b68	168	if (hash_store(machines, id, strdup(mname)) < 0)
5eaef520	169	{
	170	fprintf(stderr, "Out of memory!\n");
	171	exit(MR_NO_MEM);
bac4ceaa	172	}
5eaef520	173	cnt++;
bac4ceaa	174	}
5eaef520	175	EXEC SQL CLOSE m_cursor;
	176
	177	fprintf(stderr, "Loaded %d machines\n", cnt);
	178
	179	cnt = 0;
	180	strings = create_hash(11001);
	181
	182	EXEC SQL DECLARE s_cursor CURSOR FOR
	183	SELECT string_id, string
	184	FROM strings
	185	ORDER BY string_id;
	186	EXEC SQL OPEN s_cursor;
	187	while (1)
	188	{
dfaf9b68	189	EXEC SQL FETCH s_cursor INTO :id, :str;
5eaef520	190	if (sqlca.sqlcode)
5eaef520	191	break;
dfaf9b68	192	if (hash_store(strings, id, strdup(strtrim(str))) < 0)
5eaef520	193	{
	194	fprintf(stderr, "Out of memory!\n");
	195	exit(MR_NO_MEM);
bac4ceaa	196	}
5eaef520	197	cnt++;
bac4ceaa	198	}
5eaef520	199	EXEC SQL CLOSE s_cursor;
	200
	201	fprintf(stderr, "Loaded %d strings\n", cnt);
	202
	203	cnt = 0;
	204	users = create_hash(13001);
	205
	206	EXEC SQL DECLARE u_cursor CURSOR FOR
46c8036a	207	SELECT users_id, login, potype, pop_id, imap_id, box_id
5eaef520	208	FROM users
	209	WHERE status != 3
	210	ORDER BY users_id;
	211	EXEC SQL OPEN u_cursor;
	212	while (1)
	213	{
450849e9	214	char saddr = NULL, paddr = NULL;
450849e9	215
46c8036a	216	EXEC SQL FETCH u_cursor INTO :id, :login, :potype, :pid, :iid, :bid;
5eaef520	217	if (sqlca.sqlcode)
5eaef520	218	break;
7ac48069	219	u = malloc(sizeof(struct user));
dfaf9b68	220	u->login = strdup(strtrim(login));
5eaef520	221
450849e9	222	if (!strcmp(strtrim(potype), "NONE"))
	223	u->pobox = NULL;
	224	else
5eaef520	225	{
450849e9	226	/* If SMTP or SPLIT, get SMTP address. */
	227	if (potype[0] == 'S')
	228	{
	229	saddr = hash_lookup(strings, bid);
	230
	231	/* If SMTP, clear pid and iid. */
	232	if (potype[1] == 'M')
	233	pid = iid = 0;
	234	}
	235
	236	/* If IMAP, or SPLIT with IMAP, set pid to mach_id. */
	237	if (potype[0] == 'I' \|\| (potype[0] == 'S' && iid))
	238	{
	239	EXEC SQL SELECT mach_id INTO :pid FROM filesys
	240	WHERE filsys_id = :iid;
	241	}
	242
	243	if (pid && (s = hash_lookup(machines, pid)))
	244	{
	245	paddr = malloc(strlen(u->login) + strlen(s) + 2);
	246	sprintf(paddr, "%s@%s", u->login, s);
	247	}
	248
	249	if (paddr && saddr)
	250	{
	251	u->pobox = malloc(strlen(paddr) + strlen(saddr) + 3);
	252	sprintf(u->pobox, "%s, %s", paddr, saddr);
	253	free(paddr);
	254	}
	255	else if (paddr)
	256	u->pobox = paddr;
	257	else
	258	u->pobox = saddr;
5eaef520	259	}
1c9c2ec8	260
1c9c2ec8	261	check_string(u->login);
5eaef520	262	if (hash_store(users, id, u) < 0)
	263	{
	264	fprintf(stderr, "Out of memory!\n");
	265	exit(MR_NO_MEM);
bac4ceaa	266	}
5eaef520	267	cnt++;
bac4ceaa	268	}
5eaef520	269	EXEC SQL CLOSE u_cursor;
	270	fprintf(stderr, "Loaded %d users\n", cnt);
	271
	272	cnt = 0;
	273	lists = create_hash(15000);
	274
	275	EXEC SQL DECLARE l_cursor CURSOR FOR
dd746314	276	SELECT l.list_id, l.name, l.maillist, l.description, l.acl_type, l.acl_id,
	277	l.mailman, m.name
	278	FROM list l, machine m
	279	WHERE active != 0 AND l.mailman_id = m.mach_id
5eaef520	280	ORDER BY list_id;
	281	EXEC SQL OPEN l_cursor;
	282	while (1)
	283	{
dd746314	284	EXEC SQL FETCH l_cursor INTO :id, :lname, :maillistp, :desc, :type, :acl,
dd746314	285	:mailman, :mailman_server;
5eaef520	286	if (sqlca.sqlcode)
5eaef520	287	break;
7ac48069	288	l = malloc(sizeof(struct list));
dfaf9b68	289	l->name = strdup(strtrim(lname));
5eaef520	290	l->maillist = maillistp;
dfaf9b68	291	l->description = strdup(strtrim(desc));
5eaef520	292	l->acl_t = type[0];
5eaef520	293	l->acl_id = acl;
dd746314	294	l->mailman = mailman;
a14ad8b0	295	l->mailman_server = strdup(strtrim(mailman_server));
5eaef520	296	l->m = NULL;
	297	if (hash_store(lists, id, l) < 0)
	298	{
	299	fprintf(stderr, "Out of memory!\n");
	300	exit(MR_NO_MEM);
bac4ceaa	301	}
5eaef520	302	cnt++;
bac4ceaa	303	}
5eaef520	304	EXEC SQL CLOSE l_cursor;
	305	fprintf(stderr, "Loaded %d lists\n", cnt);
	306
	307	cnt = 0;
	308
	309	EXEC SQL DECLARE m_cursor2 CURSOR FOR
	310	SELECT list_id, member_type, member_id
	311	FROM imembers
	312	WHERE direct = 1
	313	ORDER BY list_id;
	314	EXEC SQL OPEN m_cursor2;
	315	while (1)
	316	{
	317	EXEC SQL FETCH m_cursor2 INTO :id, :type, :mid;
	318	if (sqlca.sqlcode)
	319	break;
	320	cnt++;
7ac48069	321	if ((l = hash_lookup(lists, id)))
5eaef520	322	{
7ac48069	323	m = malloc(sizeof(struct member));
7ac48069	324	if (type[0] == 'U' && (u = hash_lookup(users, mid)))
5eaef520	325	{
	326	m->list_id = 0;
	327	m->name = u->login;
	328	m->next = l->m;
	329	l->m = m;
	330	}
7ac48069	331	else if (type[0] == 'L' && (memberlist = hash_lookup(lists, mid)))
5eaef520	332	{
	333	m->list_id = mid;
	334	m->name = memberlist->name;
	335	m->next = l->m;
	336	l->m = m;
	337	}
	338	else if (type[0] == 'S' && (s = hash_lookup(strings, mid)))
	339	{
	340	m->list_id = 0;
	341	m->next = l->m;
	342	l->m = m;
	343	m->name = s;
bac4ceaa	344	}
	345	}
	346	}
5eaef520	347	EXEC SQL CLOSE m_cursor2;
	348	fprintf(stderr, "Loaded %d members\n", cnt);
	349
	350	EXEC SQL COMMIT;
	351	return;
	352	sqlerr:
	353	db_error(sqlca.sqlcode);
	354	exit(MR_DBMS_ERR);
bac4ceaa	355	}
	356
	357
496bdfea	358	void output_login(int dummy, void user, void out)
	359	{
	360	struct user *u = user;
	361
	362	incount++;
	363	if (u->pobox && check_string(u->login) && u->login[0] != '#')
	364	fprintf(out, "%s: %s\n", u->login, u->pobox);
	365	}
	366
	367	int line_width, alias_width;
514054a9	368	static const char *mailman_suffixes[] = { "-admin", "-owner", "-request",
	369	"-bounces", "-confirm", "-join",
	370	"-leave", "-subscribe",
	371	"-unsubscribe", NULL };
496bdfea	372
496bdfea	373	void output_mlist(int id, void list, void out)
bac4ceaa	374	{
7ac48069	375	struct list l = list, l1;
496bdfea	376	struct user *u;
514054a9	377	int len = strlen(l->name), i;
bac4ceaa	378
496bdfea	379	if (!l->maillist \|\| !check_string(l->name))
5eaef520	380	return;
bac4ceaa	381
496bdfea	382	/* If standard user group appears on a list, substitute in the user. */
5eaef520	383	if (l->m && l->m->next == NULL && !strcasecmp(l->name, l->m->name))
496bdfea	384	return;
5eaef520	385
496bdfea	386	put_fill(out, l->description);
5eaef520	387
dd746314	388	if (l->mailman && strcmp(l->mailman_server, "[NONE]"))
dd746314	389	{
514054a9	390	for (i = 0; mailman_suffixes[i]; i++)
	391	fprintf(out, "%s%s: %s%s@%s\n", l->name, mailman_suffixes[i], l->name,
	392	mailman_suffixes[i], l->mailman_server);
dd746314	393	}
dd746314	394
496bdfea	395	if (l->acl_t == 'L' && (l1 = hash_lookup(lists, l->acl_id)))
5eaef520	396	{
496bdfea	397	fprintf(out, "owner-%s: ", l->name);
	398	if ((l1->maillist) && (strcmp(l->name, l1->name)))
	399	fprintf(out, "%s\n", l1->name);
	400	else
	401	{
	402	alias_width = line_width = len + 8;
	403	output_membership(l1, out);
	404	fprintf(out, "\n");
	405	}
bac4ceaa	406	}
496bdfea	407	else if (l->acl_t == 'U' && (u = hash_lookup(users, l->acl_id)))
496bdfea	408	fprintf(out, "owner-%s: %s\n", l->name, u->login);
5eaef520	409
496bdfea	410	fprintf(out, "%s: ", l->name);
	411	alias_width = line_width = len + 2;
	412	output_membership(l, out);
	413	fprintf(out, "\n\n");
5eaef520	414	incount++;
bac4ceaa	415	}
bac4ceaa	416
496bdfea	417	void output_membership(struct list l, FILE out)
bac4ceaa	418	{
44d12d58	419	struct member *m;
496bdfea	420	struct list *l1;
496bdfea	421	int word_width, linestart = 1;
b033c6ed	422	static int cont = 1;
b033c6ed	423	char str[8];
5eaef520	424
5eaef520	425	for (m = l->m; m; m = m->next)
b033c6ed	426	{
	427	word_width = strlen(m->name);
	428
496bdfea	429	if (!linestart && alias_width + word_width + 2 > MAX_ALIAS_WIDTH)
b033c6ed	430	{
	431	/* Make a continuation. */
	432	sprintf(str, "%c%c%c%c%c%c", rand() % 26 + 97, rand() % 26 + 97,
	433	rand() % 26 + 97, rand() % 26 + 97,
	434	rand() % 26 + 97, rand() % 26 + 97);
	435	fprintf(out, ",\n\tcont%d-%s\ncont%d-%s: ", cont, str, cont, str);
	436	cont++;
	437	alias_width = line_width = 17 + word_width;
b033c6ed	438	}
496bdfea	439	else if (linestart)
b033c6ed	440	{
496bdfea	441	/* First word on line, so we can't wrap. */
b033c6ed	442	line_width += word_width;
b033c6ed	443	alias_width = line_width;
496bdfea	444	linestart = 0;
b033c6ed	445	}
	446	else if (line_width + word_width + 2 > MAX_LINE_WIDTH)
	447	{
	448	/* Wrap. */
496bdfea	449	fputs(",\n\t", out);
b033c6ed	450	alias_width += line_width + word_width + 2;
	451	line_width = word_width + 8;
	452	}
	453	else
	454	{
	455	/* Continue line. */
	456	line_width += word_width + 2;
496bdfea	457	fputs(", ", out);
b033c6ed	458	}
496bdfea	459
	460	if (m->list_id && (l1 = hash_lookup(lists, m->list_id)) && !l1->maillist)
	461	output_membership(l1, out);
	462	else
	463	fputs(m->name, out);
b033c6ed	464	}
5eaef520	465	if (!l->m)
5eaef520	466	fprintf(out, "/dev/null");
bac4ceaa	467	}
bac4ceaa	468
b033c6ed	469	/* Write a word-wrapped list description to the aliases file as a
b033c6ed	470	* comment. */
7ac48069	471	void put_fill(FILE aliases, char string)
492f333e	472	{
44d12d58	473	char *c;
b033c6ed	474	int line_width;
b033c6ed	475	int word_width;
492f333e	476
5eaef520	477	if (!string \|\| !*string)
	478	return;
	479	fputs("# ", aliases);
b033c6ed	480	line_width = 3;
5eaef520	481
	482	while (1)
	483	{
	484	while (*string == ' ')
	485	string++;
	486	c = strchr(string, ' ');
	487	if (!c)
b033c6ed	488	word_width = strlen(string);
5eaef520	489	else
5eaef520	490	{
b033c6ed	491	word_width = c - string;
5eaef520	492	*c = '\0';
492f333e	493	}
492f333e	494
b033c6ed	495	if (line_width + word_width > MAX_LINE_WIDTH)
5eaef520	496	{
5eaef520	497	fputs("\n# ", aliases);
b033c6ed	498	line_width = 3;
5eaef520	499	fputs(string, aliases);
	500	}
	501	else
	502	fputs(string, aliases);
	503
	504	if (!c)
	505	break;
	506	/* add a space after the word */
	507	fputc(' ', aliases);
b033c6ed	508	word_width++;
	509	line_width += word_width;
	510	string += word_width;
5eaef520	511	/* add another if after a period */
	512	if (*--c == '.')
	513	{
	514	fputc(' ', aliases);
b033c6ed	515	line_width++;
492f333e	516	}
	517	}
	518
5eaef520	519	fputc('\n', aliases);
492f333e	520	}
	521
	522
ad392f80	523	/* Illegal chars: this no longer corresponds to the array
	524	* in setup_alis. '+' is a valid character in a string on
	525	* a list, but is not a valid character in a listname.
	526	*/
1c9c2ec8	527
	528	static int illegalchars[] = {
	529	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* ^@ - ^O */
	530	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* ^P - ^_ */
	531	1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, /* SPACE - / */
	532	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, /* 0 - ? */
	533	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* @ - O */
	534	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, /* P - _ */
	535	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* ` - o */
	536	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, /* p - ^? */
	537	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
	538	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
	539	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
	540	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
	541	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
	542	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
	543	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
	544	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
	545	};
	546
	547	int check_string(char *s)
bac4ceaa	548	{
1c9c2ec8	549	for (; *s; s++)
	550	{
	551	if (isupper(*s))
	552	s = tolower(s);
	553
	554	if (illegalchars[(unsigned) *s])
	555	return 0;
	556	}
	557	return 1;
bac4ceaa	558	}