[moira.git] / gen / mitdir.qc

/* $Header$
 *
 * This generates the input file for the mkdirdb program for the MIT.EDU
 * mailhub.
 *
 *  (c) Copyright 1989 by the Massachusetts Institute of Technology.
 *  For copying and distribution information, please see the file
 *  <mit-copyright.h>.
 */


#include <mit-copyright.h>
#include <stdio.h>
#include <string.h>
#include <sms.h>
#include <sms_app.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/time.h>


extern int errno;
char *whoami = "finger.gen";
char *ingres_date_and_time();


main(argc, argv)
int argc;
char **argv;
{
    long tm = time(NULL);
    FILE *out= stdout;
    char filename[64], *targetfile;
    struct stat sb;
##  int flag1;
##  char *filetime;
    int ingerr();

    IIseterr(ingerr);
    initialize_sms_error_table();
##  ingres sms
##  set lockmode session where level = table

    if (argc == 2) {
	if (stat(argv[1], &sb) == 0) {
	    filetime = ingres_date_and_time(sb.st_mtime);
##	    retrieve (flag1 = int4(interval("min",tblstats.modtime - filetime)))
##		where tblstats.table = "users"
	    if (flag1 < 0) {
		fprintf(stderr, "File %s does not need to be rebuilt.\n",
			argv[1]);
		exit(SMS_NO_CHANGE);
	    }
	}
	targetfile = argv[1];
	sprintf(filename, "%s~", targetfile);
	if ((out = fopen(filename, "w")) == NULL) {
	    fprintf(stderr, "unable to open %s for output\n", filename);
	    exit(SMS_OCONFIG);
	}
    } else if (argc != 1) {
	fprintf(stderr, "usage: %s [outfile]\n", argv[0]);
	exit(SMS_ARGS);
    }

##  begin transaction
    get_info(out);
##  end transaction
##  exit

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

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


/*
 * ingerr: (supposedly) called when Ingres indicates an error.
 * I have not yet been able to get this to work to intercept a
 * database open error.
 */
#define INGRES_DEADLOCK 4700

static int ingerr(num)
    int *num;
{
    char buf[256];
    int ingres_errno;

    switch (*num) {
    case INGRES_DEADLOCK:
	ingres_errno = SMS_DEADLOCK;
	break;
    default:
	ingres_errno = SMS_INGRES_ERR;
    }
    com_err(whoami, SMS_INGRES_ERR, " code %d\n", *num);
    critical_alert("DCM", "Alias build encountered INGRES ERROR %d", *num);
    exit(ingres_errno);
}


get_info(out)
FILE *out;
##{
##  int id, pid, bid, mid;
##  char name[129], type[9], buf[257], fname[17], mname[17], lname[17];
##  char year[9], dept[13], oaddr[17], ophone[13], haddr[81], hphone[17];
    char stuemp, *mhost, *uname, *pob;
    struct hash *strings;

    /* get locks */
##  retrieve (buf = users.modtime) where users.users_id = 0

    strings = create_hash(2000);
##  retrieve (id = strings.string_id, name = strings.string) {
	hash_store(strings, id, strsave(strtrim(name)));
##  }


##  range of u is users
##  retrieve (id = u.users_id, name = u.login,
##	      fname = u.first, mname = u.middle, lname = u.last,
##	      year = u.mit_year, dept = u.mit_dept,
##	      oaddr = u.office_addr, ophone = u.office_phone,
##	      haddr = u.home_addr, hphone = u.home_phone,
##	      type = u.potype, bid = u.box_id) 
##    	where u.status != 3 {

    	if (id == 0)
	  continue;

	strtrim(year);
	if (atoi(year) || !strcmp(year, "G"))
	  stuemp = 'S';
	else if (!strcmp(year, "FACULTY") || !strcmp(year, "MITS") ||
		 !strcmp(year, "STAFF"))
	  stuemp = 'E';
	else if (!strcmp(year, "PROJECT") || !strcmp(year, "SYSTEM"))
	  continue;
	else
	  stuemp = '?';

	if (type[0] == 'S' & (pob = hash_lookup(strings, bid)) != NULL) {
	    uname = pob;
	    mhost = index(pob, '@');
	    if (mhost)
	      *mhost++ = 0;
	    else
	      mhost = &uname[strlen(uname) + 1];
	} else if (type[0] == 'N') {
	    mhost = "";
	    uname = "";
	} else {
	    mhost = "ATHENA.MIT.EDU";
	    uname = strtrim(name);
	}

	fprintf(out, "%c:%s:%s:%s:%s:",
		stuemp, "", strtrim(lname), strtrim(fname), strtrim(mname));
	fprintf(out, "%s:%s:%s:%s:%s:%s:%s:%s:",
		strtrim(oaddr), "", strtrim(ophone), "",
		"", "", uname, mhost);
	fprintf(out, "%s:%s:%s:%s:%s:%s:%s:%s:%s:%s:%s:%d\n",
		strtrim(haddr), "", "", "", strtrim(hphone),
		"", "", "", "", year, "", id);
##  }
##}
Commit	Line	Data
f59a4f24	1	/* $Header$
	2	*
	3	* This generates the input file for the mkdirdb program for the MIT.EDU
	4	* mailhub.
	5	*
	6	* (c) Copyright 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	#include <mit-copyright.h>
	13	#include <stdio.h>
	14	#include <string.h>
	15	#include <sms.h>
	16	#include <sms_app.h>
	17	#include <sys/types.h>
	18	#include <sys/stat.h>
	19	#include <sys/time.h>
	20
	21
	22	extern int errno;
	23	char *whoami = "finger.gen";
	24	char *ingres_date_and_time();
	25
	26
	27	main(argc, argv)
	28	int argc;
	29	char **argv;
	30	{
	31	long tm = time(NULL);
	32	FILE *out= stdout;
	33	char filename[64], *targetfile;
	34	struct stat sb;
	35	## int flag1;
	36	## char *filetime;
	37	int ingerr();
	38
	39	IIseterr(ingerr);
	40	initialize_sms_error_table();
	41	## ingres sms
	42	## set lockmode session where level = table
	43
	44	if (argc == 2) {
	45	if (stat(argv[1], &sb) == 0) {
	46	filetime = ingres_date_and_time(sb.st_mtime);
	47	## retrieve (flag1 = int4(interval("min",tblstats.modtime - filetime)))
	48	## where tblstats.table = "users"
	49	if (flag1 < 0) {
	50	fprintf(stderr, "File %s does not need to be rebuilt.\n",
	51	argv[1]);
	52	exit(SMS_NO_CHANGE);
	53	}
	54	}
	55	targetfile = argv[1];
	56	sprintf(filename, "%s~", targetfile);
	57	if ((out = fopen(filename, "w")) == NULL) {
	58	fprintf(stderr, "unable to open %s for output\n", filename);
	59	exit(SMS_OCONFIG);
	60	}
	61	} else if (argc != 1) {
	62	fprintf(stderr, "usage: %s [outfile]\n", argv[0]);
	63	exit(SMS_ARGS);
	64	}
65
66	## begin transaction
67	get_info(out);
68	## end transaction
69	## exit
70
71	if (fclose(out)) {
72	perror("close failed");
73	exit(SMS_CCONFIG);
74	}
75
76	if (argc == 2)
77	fix_file(targetfile);
78	exit(SMS_SUCCESS);
79	}
80
81
82	/*
83	* ingerr: (supposedly) called when Ingres indicates an error.
84	* I have not yet been able to get this to work to intercept a
85	* database open error.
86	*/
87	#define INGRES_DEADLOCK 4700
88
89	static int ingerr(num)
90	int *num;
91	{
92	char buf[256];
93	int ingres_errno;
94
95	switch (*num) {
96	case INGRES_DEADLOCK:
97	ingres_errno = SMS_DEADLOCK;
98	break;
99	default:
100	ingres_errno = SMS_INGRES_ERR;
101	}
102	com_err(whoami, SMS_INGRES_ERR, " code %d\n", *num);
103	critical_alert("DCM", "Alias build encountered INGRES ERROR %d", *num);
104	exit(ingres_errno);
105	}
106
107
108	get_info(out)
109	FILE *out;
110	##{
111	## int id, pid, bid, mid;
112	## char name[129], type[9], buf[257], fname[17], mname[17], lname[17];
113	## char year[9], dept[13], oaddr[17], ophone[13], haddr[81], hphone[17];
114	char stuemp, mhost, uname, *pob;
115	struct hash *strings;
116
117	/* get locks */
118	## retrieve (buf = users.modtime) where users.users_id = 0
119
120	strings = create_hash(2000);
121	## retrieve (id = strings.string_id, name = strings.string) {
122	hash_store(strings, id, strsave(strtrim(name)));
123	## }
124
125
126	## range of u is users
127	## retrieve (id = u.users_id, name = u.login,
128	## fname = u.first, mname = u.middle, lname = u.last,
129	## year = u.mit_year, dept = u.mit_dept,
130	## oaddr = u.office_addr, ophone = u.office_phone,
131	## haddr = u.home_addr, hphone = u.home_phone,
132	## type = u.potype, bid = u.box_id)
133	## where u.status != 3 {
134
135	if (id == 0)
136	continue;
137
138	strtrim(year);
139	if (atoi(year) \|\| !strcmp(year, "G"))
140	stuemp = 'S';
141	else if (!strcmp(year, "FACULTY") \|\| !strcmp(year, "MITS") \|\|
142	!strcmp(year, "STAFF"))
143	stuemp = 'E';
144	else if (!strcmp(year, "PROJECT") \|\| !strcmp(year, "SYSTEM"))
145	continue;
146	else
147	stuemp = '?';
148
149	if (type[0] == 'S' & (pob = hash_lookup(strings, bid)) != NULL) {
150	uname = pob;
151	mhost = index(pob, '@');
152	if (mhost)
153	*mhost++ = 0;
154	else
155	mhost = &uname[strlen(uname) + 1];
156	} else if (type[0] == 'N') {
157	mhost = "";
158	uname = "";
159	} else {
160	mhost = "ATHENA.MIT.EDU";
161	uname = strtrim(name);
162	}
163
164	fprintf(out, "%c:%s:%s:%s:%s:",
165	stuemp, "", strtrim(lname), strtrim(fname), strtrim(mname));
166	fprintf(out, "%s:%s:%s:%s:%s:%s:%s:%s:",
167	strtrim(oaddr), "", strtrim(ophone), "",
168	"", "", uname, mhost);
169	fprintf(out, "%s:%s:%s:%s:%s:%s:%s:%s:%s:%s:%s:%d\n",
170	strtrim(haddr), "", "", "", strtrim(hphone),
171	"", "", "", "", year, "", id);
172	## }
173	##}