From f0df8832d5c7342bcb7bff0d5cc40576aeaf508b Mon Sep 17 00:00:00 2001 From: zacheiss Date: Wed, 12 Jul 2000 22:11:41 +0000 Subject: [PATCH] rototill staff and student load programs --- regtape/Makefile.in | 8 +- regtape/common.h | 40 +++ regtape/common.pc | 423 ++++++++++++++++++++++++ regtape/staff.pc | 539 ++++-------------------------- regtape/staff.sql | 8 + regtape/student.pc | 787 +++++++------------------------------------- regtape/student.sql | 8 + 7 files changed, 665 insertions(+), 1148 deletions(-) create mode 100644 regtape/common.h create mode 100644 regtape/common.pc create mode 100644 regtape/staff.sql create mode 100644 regtape/student.sql diff --git a/regtape/Makefile.in b/regtape/Makefile.in index b014a396..aba082c1 100644 --- a/regtape/Makefile.in +++ b/regtape/Makefile.in @@ -26,11 +26,11 @@ SRCTOP=@top_srcdir@ BUILDTOP=.. mrbindir=@mrbindir@ -STUDENT_OBJS=student.o -STAFF_OBJS=staff.o +STUDENT_OBJS=student.o common.o +STAFF_OBJS=staff.o common.o VOTE_OBJS=vote.o -CFILES=student.c staff.c vote.c +CFILES=student.c staff.c common.c vote.c TARGET=student staff vote @@ -45,7 +45,7 @@ TARGET=student staff vote all: $(TARGET) clean: - rm -f $(STDENTS_OBJS) $(STAFF_OBJS) $(VOTE_OBJS) + rm -f $(STUDENT_OBJS) $(STAFF_OBJS) $(VOTE_OBJS) rm -f $(CFILES) $(TARGET) cleandir distclean: clean diff --git a/regtape/common.h b/regtape/common.h new file mode 100644 index 00000000..988fe1ab --- /dev/null +++ b/regtape/common.h @@ -0,0 +1,40 @@ +/* $Id$ + * + * Copyright (C) 1987-1999 by the Massachusetts Institute of Technology + * + */ + +struct entry { + char *id; + char *last; + char *first; + char *middle; + char *type; + + char *name; + char *dept; + char *haddr; + char *hphone; + char *oaddr; + char *ophone; + + char *xtitle; + char *xaddress; + char *xphone1; + char *xphone2; +}; + +void fixphone(char *phone); +void fixaddress(char *address); + +void process_entry(struct entry *e, int secure); +void newuser(struct entry *e, int secure); + +int set_next_users_id(void); +int set_next_uid(void); + +void sqlexit(void); +void dbmserr(char *where, int what); + +#define SQL_DUPLICATE -2112 +#define sqlfail() (sqlca.sqlcode && sqlca.sqlcode != 1403) diff --git a/regtape/common.pc b/regtape/common.pc new file mode 100644 index 00000000..8f89fd24 --- /dev/null +++ b/regtape/common.pc @@ -0,0 +1,423 @@ +/* $Id$ + * + * Staff/Student load common code + * + * Copyright (C) 1999 by the Massachusetts Institute of Technology + * For copying and distribution information, please see the file + * . + */ + +#include +#include +#include +#include +#include "common.h" + +#include +#include + +EXEC SQL INCLUDE sqlca; +extern void sqlglm(char *, unsigned int *, unsigned int *); + +RCSID("$Header$"); + +EXEC SQL BEGIN DECLARE SECTION; +extern char *prog; +extern int who; +EXEC SQL END DECLARE SECTION; + +extern char *whoami; + +#define MIN_ID_VALUE 100 +#define MAX_ID_VALUE 65535 + +/* Remove non-digits from a phone number. */ +void fixphone(char *phone) +{ + char *d = phone; + + while (*phone) + { + if (isdigit(*phone)) + *d++ = *phone; + phone++; + } + *d = '\0'; +} + +/* Remove characters from address that aren't safe for passwd files. */ +void fixaddress(char *address) +{ + char *p; + + while ((p = strchr(address, ','))) + *p = ';'; + while ((p = strchr(address, ':'))) + *p = ';'; +} + +void process_entry(struct entry *e, int secure) +{ + int changed; + char buf[MAX_FIELD_WIDTH], *from, *to; + EXEC SQL BEGIN DECLARE SECTION; + char *first, *last, *middle, *sid; + char *name = e->name, *xtitle = e->xtitle, *xaddr = e->xaddress; + char *xphone1 = e->xphone1, *xphone2 = e->xphone2; + char type[USERS_TYPE_SIZE], oaddr[USERS_OFFICE_ADDR_SIZE]; + char ophone[USERS_OFFICE_PHONE_SIZE], dept[USERS_DEPARTMENT_SIZE]; + char haddr[USERS_HOME_ADDR_SIZE], hphone[USERS_HOME_PHONE_SIZE]; + char dfirst[USERS_FIRST_SIZE], dlast[USERS_LAST_SIZE]; + char dmiddle[USERS_MIDDLE_SIZE]; + int id, status, fmodby, xnlen = USERS_XNAME_SIZE - 1; + EXEC SQL END DECLARE SECTION; + + sid = e->id; + last = e->last; + if (strlen(last) > USERS_LAST_SIZE - 1) + last[USERS_LAST_SIZE - 1] = '\0'; + first = e->first; + if (strlen(first) > USERS_FIRST_SIZE - 1) + first[USERS_FIRST_SIZE - 1] = '\0'; + middle = e->middle; + if (strlen(middle) > USERS_MIDDLE_SIZE - 1) + middle[USERS_MIDDLE_SIZE - 1] = '\0'; + id = 0; + + /* Get user info */ + EXEC SQL SELECT users_id, first, last, middle, type, office_addr, + office_phone, home_addr, home_phone, department, status, fmodby + INTO :id, :dfirst, :dlast, :dmiddle, :type, :oaddr, + :ophone, :haddr, :hphone, :dept, :status, :fmodby + FROM users + WHERE clearid = :sid AND status != 3; + if (sqlfail()) + { + if (sqlca.sqlcode == SQL_DUPLICATE) + { + com_err(whoami, 0, "duplicate ID number %s on user %s %s", + sid, first, last); + return; + } + else + sqlexit(); + } + if (id == 0) + { + newuser(e, secure); + return; + } + strtrim(dfirst); + strtrim(dlast); + strtrim(dmiddle); + strtrim(type); + + /* Update type/state if necessary. (Exclude several spacial cases.) */ + if (strcmp(e->type, type) && + strcmp(type, "STAFF") && strcmp(type, "SIPBMEM") && + strcmp(type, "KNIGHT")) + { + com_err(whoami, 0, "updating type for %s %s from \"%s\" to \"%s\"", + first, last, type, e->type); + if (status == US_NOT_ALLOWED) + status = US_NO_LOGIN_YET; + else if (status == US_ENROLL_NOT_ALLOWED) + status = US_ENROLLED; + strcpy(type, e->type); + EXEC SQL UPDATE users + SET type = NVL(:type, CHR(0)), status = :status, + modtime = SYSDATE, modby = :who, modwith = :prog + WHERE users_id = :id; + if (sqlca.sqlcode) + { + dbmserr("updating user", sqlca.sqlcode); + exit(1); + } + } + + /* Update name if necessary */ + if (strcmp(first, dfirst) || strcmp(last, dlast) || strcmp(middle, dmiddle)) + { + com_err(whoami, 0, "updating real name for %s%s%s %s (was %s%s%s %s)", + first, *middle ? " " : "", middle, last, + dfirst, *dmiddle ? " " : "", dmiddle, dlast); + EXEC SQL UPDATE users + SET first = NVL(:first, CHR(0)), last = NVL(:last, CHR(0)), + middle = NVL(:middle, CHR(0)), modby = :who, modwith = :prog, + modtime = SYSDATE + WHERE users_id = :id; + if (sqlca.sqlcode) + { + dbmserr("updating name", sqlca.sqlcode); + exit(1); + } + } + + /* Update finger info fields if they have changed and the user + * didn't set them blank. + */ + changed = 0; + + if (strncmp(strtrim(oaddr), e->oaddr, USERS_OFFICE_ADDR_SIZE - 1) && + (*oaddr || fmodby != id)) + { + changed++; + com_err(whoami, 0, "office for %s %s changed from \"%s\" to \"%s\"", + first, last, oaddr, e->oaddr); + strlcpy(oaddr, e->oaddr, USERS_OFFICE_ADDR_SIZE); + } + + if (strncmp(strtrim(ophone), e->ophone, USERS_OFFICE_PHONE_SIZE - 1) && + (*ophone || fmodby != id)) + { + changed++; + com_err(whoami, 0, "Phone for %s %s changed from \"%s\" to \"%s\"", + first, last, ophone, e->ophone); + strlcpy(ophone, e->ophone, USERS_OFFICE_PHONE_SIZE); + } + + if (strncmp(strtrim(haddr), e->haddr, USERS_HOME_ADDR_SIZE - 1) && + (*haddr || fmodby != id)) + { + changed++; + com_err(whoami, 0, "home addr for %s %s changed from \"%s\" to \"%s\"", + first, last, haddr, e->haddr); + strlcpy(haddr, e->haddr, USERS_HOME_ADDR_SIZE); + } + + if (strncmp(strtrim(hphone), e->hphone, USERS_HOME_PHONE_SIZE - 1) && + (*hphone || fmodby != id)) + { + changed++; + com_err(whoami, 0, "Phone for %s %s changed from \"%s\" to \"%s\"", + first, last, hphone, e->hphone); + strlcpy(hphone, e->hphone, USERS_HOME_PHONE_SIZE); + } + + if (strncmp(strtrim(dept), e->dept, USERS_DEPARTMENT_SIZE - 1) && + (*dept || fmodby != id)) + { + changed++; + com_err(whoami, 0, "Department for %s %s changed from \"%s\" to \"%s\"", + first, last, dept, e->dept); + strlcpy(dept, e->dept, USERS_DEPARTMENT_SIZE); + } + + if (changed) + { + com_err(whoami, 0, "updating finger for %s %s", first, last); + EXEC SQL UPDATE users + SET office_addr = NVL(:oaddr, CHR(0)), + office_phone = NVL(:ophone, CHR(0)), home_addr = NVL(:haddr, CHR(0)), + home_phone = NVL(:hphone, CHR(0)), department = NVL(:dept, CHR(0)), + fmodtime = SYSDATE, fmodby = :who, fmodwith = :prog, + xname = NVL(SUBSTR(:name, 0, :xnlen), CHR(0)), + xdept = NVL(:dept, CHR(0)), xtitle = NVL(:xtitle, CHR(0)), + xaddress = NVL(:xaddr, CHR(0)), xphone1 = NVL(:xphone1, CHR(0)), + xphone2 = NVL(:xphone2, CHR(0)), xmodtime = SYSDATE + WHERE users_id = :id; + if (sqlca.sqlcode) + { + dbmserr(NULL, sqlca.sqlcode); + exit(1); + } + } + else + { + EXEC SQL UPDATE users + SET xname = NVL(SUBSTR(:name, 0, :xnlen), CHR(0)), + xdept = NVL(:dept, CHR(0)), xtitle = NVL(:xtitle, CHR(0)), + xaddress = NVL(:xaddr, CHR(0)), xphone1 = NVL(:xphone1, CHR(0)), + xphone2 = NVL(:xphone2, CHR(0)), xmodtime = SYSDATE + WHERE users_id = :id; + if (sqlca.sqlcode) + { + dbmserr(NULL, sqlca.sqlcode); + exit(1); + } + } +} + +void newuser(struct entry *e, int secure) +{ + EXEC SQL BEGIN DECLARE SECTION; + int issecure = secure, users_id, uid, st, xnlen = USERS_XNAME_SIZE - 1; + int oadlen = USERS_OFFICE_ADDR_SIZE - 1; + int ophlen = USERS_OFFICE_PHONE_SIZE - 1; + char login[USERS_LOGIN_SIZE]; + char *id, *last, *first, *middle, *type; + char *name, *dept, *haddr, *hphone, *oaddr, *ophone; + char *xtitle, *xaddress, *xphone1, *xphone2; + EXEC SQL END DECLARE SECTION; + + users_id = set_next_users_id(); + uid = set_next_uid(); + sprintf(login, "#%d", uid); + st = US_NO_LOGIN_YET; + last = e->last; + first = e->first; + middle = e->middle; + id = e->id; + type = e->type; + name = e->name; + dept = e->dept; + haddr = e->haddr; + hphone = e->hphone; + oaddr = e->oaddr; + ophone = e->ophone; + xtitle = e->xtitle; + xaddress = e->xaddress; + xphone1 = e->xphone1; + xphone2 = e->xphone2; + + com_err(whoami, 0, "adding user %s %s", e->first, e->last); + + EXEC SQL INSERT INTO users + (login, users_id, unix_uid, shell, winconsoleshell, last, first, + middle, status, clearid, type, modtime, modby, modwith, fullname, + department, home_addr, home_phone, office_addr, office_phone, fmodtime, + fmodby, fmodwith, potype, pmodtime, pmodby, pmodwith, + xname, xdept, xtitle, xaddress, xphone1, xphone2, xmodtime, secure) + VALUES (:login, :users_id, :uid, '/bin/athena/tcsh', 'cmd', + NVL(:last, CHR(0)), NVL(:first, CHR(0)), NVL(:middle, CHR(0)), + :st, NVL(:id, CHR(0)), NVL(:type, CHR(0)), SYSDATE, :who, :prog, + NVL(:name, CHR(0)), NVL(:dept, CHR(0)), NVL(:haddr, CHR(0)), + NVL(:hphone, CHR(0)), NVL(SUBSTR(:oaddr, 0, :oadlen), CHR(0)), + NVL(SUBSTR(:ophone, 0, :ophlen), CHR(0)), SYSDATE, :who, :prog, + 'NONE', SYSDATE, :who, :prog, + NVL(SUBSTR(:name, 0, :xnlen), CHR(0)), NVL(:dept, CHR(0)), + NVL(:xtitle, CHR(0)), NVL(:xaddress, CHR(0)), + NVL(:xphone1, CHR(0)), NVL(:xphone2, CHR(0)), SYSDATE, :issecure); + if (sqlca.sqlcode) + { + dbmserr("adding user", sqlca.sqlcode); + exit(1); + } +} + +int set_next_users_id(void) +{ + EXEC SQL BEGIN DECLARE SECTION; + int flag, value, retval; + EXEC SQL END DECLARE SECTION; + + EXEC SQL SELECT value INTO :value FROM numvalues + WHERE name = 'users_id'; + if (sqlfail()) + sqlexit(); + if (sqlca.sqlerrd[2] != 1) + { + EXEC SQL ROLLBACK; + com_err(whoami, MR_INTERNAL, "values table inconsistancy"); + exit(1); + } + + flag = 0; + EXEC SQL SELECT users_id INTO :flag FROM users + WHERE users_id = :value; + if (sqlfail()) + sqlexit(); + if (sqlca.sqlerrd[2] == 0) + flag = 0; + while (flag) + { + value++; + flag = 0; + EXEC SQL SELECT users_id INTO :flag FROM users + WHERE users_id = :value; + if (sqlfail()) + sqlexit(); + if (sqlca.sqlerrd[2] == 0) + flag = 0; + } + + retval = value++; + EXEC SQL UPDATE numvalues SET value = :value + WHERE name = 'users_id'; + if (sqlca.sqlcode) + { + dbmserr("assigning ID", sqlca.sqlcode); + exit(1); + } + return retval; +} + +int set_next_uid(void) +{ + EXEC SQL BEGIN DECLARE SECTION; + int flag, initial, value, retval; + EXEC SQL END DECLARE SECTION; + + EXEC SQL SELECT value INTO :initial FROM numvalues + WHERE name = 'unix_uid'; + if (sqlfail()) + sqlexit(); + if (sqlca.sqlerrd[2] != 1) + { + EXEC SQL ROLLBACK; + com_err(whoami, MR_INTERNAL, "values table inconsistancy"); + exit(1); + } + + value = initial; + flag = 0; + EXEC SQL SELECT COUNT(unix_uid) INTO :flag + FROM users WHERE unix_uid = :value; + if (sqlfail()) + sqlexit(); + if (sqlca.sqlerrd[2] == 0) + flag = 0; + while (flag) + { + value++; +#ifdef ULTRIX_ID_HOLE + if (value > 31999 && value < 32768) + value = 32768; +#endif + if (value > MAX_ID_VALUE) + value = MIN_ID_VALUE; + if (value == initial) + { + com_err(whoami, 0, "Out of uids!"); + EXEC SQL ROLLBACK WORK; + exit(1); + } + flag = 0; + EXEC SQL SELECT COUNT(unix_uid) INTO :flag + FROM users WHERE unix_uid = :value; + if (sqlfail()) + sqlexit(); + } + + retval = value++; + if (value > MAX_ID_VALUE) + value = MIN_ID_VALUE; + EXEC SQL UPDATE numvalues SET value = :value WHERE name = 'unix_uid'; + if (sqlca.sqlcode) + { + dbmserr("assigning ID", sqlca.sqlcode); + exit(1); + } + return retval; +} + +void sqlexit(void) +{ + dbmserr(NULL, sqlca.sqlcode); + EXEC SQL ROLLBACK WORK; + exit(1); +} + +void dbmserr(char *where, int what) +{ + char err_msg[256]; + int bufsize = 256, msglength = 0; + + sqlglm(err_msg, &bufsize, &msglength); + err_msg[msglength] = '\0'; + + if (where) + com_err(whoami, 0, "DBMS error %swhile %s", err_msg, where); + else + com_err(whoami, 0, "DBMS error %s", err_msg); +} diff --git a/regtape/staff.pc b/regtape/staff.pc index 5e85f1fd..41cb8176 100644 --- a/regtape/staff.pc +++ b/regtape/staff.pc @@ -11,84 +11,51 @@ #include #include #include +#include "common.h" #include #include #include EXEC SQL INCLUDE sqlca; -extern void sqlglm(char *, unsigned int *, unsigned int *); RCSID("$Header$"); -#define WHO 11859 /* root */ -#define PROG "emp-tape" - -#define MAX_ID_VALUE 31999 -#define MIN_ID_VALUE 101 - /* File format is: - -0-8 id number -9-38 name -39-62 office address -63-74 phone1 -75-86 phone2 -87-106 dept -107-156 title -157-186 username -187-241 host - -*/ + * + * id number [9] + * name (last, first middle) [30] + * office address [24] + * phone1 [12] + * phone2 [12] + * dept [50] + * title [50] + */ #define LOC_ID 0 -#define LOC_NAME 9 -#define LOC_OFFICE 39 -#define LOC_PHONE 63 -#define LOC_PHONE2 75 -#define LOC_DEPT 87 -#define LOC_TITLE 137 -#define LOC_USERNAME 187 -#define LOC_HOST 217 - #define LEN_ID 9 +#define LOC_NAME (LOC_ID + LEN_ID) #define LEN_NAME 30 +#define LOC_OFFICE (LOC_NAME + LEN_NAME) #define LEN_OFFICE 24 +#define LOC_PHONE (LOC_OFFICE + LEN_OFFICE) #define LEN_PHONE 12 +#define LOC_PHONE2 (LOC_PHONE + LEN_PHONE) #define LEN_PHONE2 12 +#define LOC_DEPT (LOC_PHONE2 + LEN_PHONE2) #define LEN_DEPT 50 +#define LOC_TITLE (LOC_DEPT + LEN_DEPT) #define LEN_TITLE 50 -#define LEN_USERNAME 30 -#define LEN_HOST 55 - - -struct entry { - char *name; - char *last; - char *first; - char *middle; - char *title; - char *class; - char *id; - char *dept; - char *address; - char *phone; - char *phone2; -}; struct entry *get_next_entry(FILE *in); -void process_entry(struct entry *e); -void newuser(struct entry *e); -int set_next_users_id(int limit); -int set_next_uid(void); -void sqlexit(void); -void dbmserr(char *where, int what); +void process_entry(struct entry *e, int secure); -char *whoami; - -#define sqlfail() (sqlca.sqlcode && sqlca.sqlcode != 1403) -#define SQL_DUPLICATE -2112 +EXEC SQL BEGIN DECLARE SECTION; +int who; +char *prog = "stafload"; +EXEC SQL END DECLARE SECTION; +char *whoami; int main(int argc, char **argv) { @@ -114,7 +81,7 @@ int main(int argc, char **argv) if (!strcmp(argv[i], "-w")) wait++; else if (file) - fprintf(stderr, "Usage: %s [-w] [-D] [-n] inputfile\n", whoami); + fprintf(stderr, "Usage: %s [-w] inputfile\n", whoami); else file = argv[i]; } @@ -135,9 +102,11 @@ int main(int argc, char **argv) exit(1); } + EXEC SQL SELECT users_id INTO :who FROM users WHERE login = 'root'; + while ((e = get_next_entry(in))) { - process_entry(e); + process_entry(e, 0); EXEC SQL COMMIT WORK; if (sqlca.sqlcode) { @@ -162,31 +131,19 @@ struct entry *get_next_entry(FILE *in) static char name[LEN_NAME + 1], sname[LEN_NAME + 1], id[LEN_ID + 1]; static char office[LEN_OFFICE + 1], phone[LEN_PHONE + 1]; static char phone2[LEN_PHONE2 + 1], dept[LEN_DEPT + 1], title[LEN_TITLE + 1]; - static char username[LEN_USERNAME + 1], host[LEN_HOST + 1]; int ends_sr, ends_jr, ends_iii, ends_iv, ends_ii, ends_v; char *p, *q; if (!fgets(buf, sizeof(buf), in)) return NULL; - strncpy(id, &buf[LOC_ID], LEN_ID); - id[LEN_ID] = '\0'; - strncpy(name, &buf[LOC_NAME], LEN_NAME); - name[LEN_NAME] = '\0'; - strncpy(office, &buf[LOC_OFFICE], LEN_OFFICE); - office[LEN_OFFICE] = '\0'; - strncpy(phone, &buf[LOC_PHONE], LEN_PHONE); - phone[LEN_PHONE] = '\0'; - strncpy(phone2, &buf[LOC_PHONE2], LEN_PHONE2); - phone2[LEN_PHONE2] = '\0'; - strncpy(dept, &buf[LOC_DEPT], LEN_DEPT); - dept[LEN_DEPT] = '\0'; - strncpy(title, &buf[LOC_TITLE], LEN_TITLE); - title[LEN_TITLE] = '\0'; - strncpy(username, &buf[LOC_USERNAME], LEN_USERNAME); - username[LEN_USERNAME] = '\0'; - strncpy(host, &buf[LOC_HOST], LEN_HOST); - host[LEN_HOST] = '\0'; + strlcpy(id, &buf[LOC_ID], LEN_ID + 1); + strlcpy(name, &buf[LOC_NAME], LEN_NAME + 1); + strlcpy(office, &buf[LOC_OFFICE], LEN_OFFICE + 1); + strlcpy(phone, &buf[LOC_PHONE], LEN_PHONE + 1); + strlcpy(phone2, &buf[LOC_PHONE2], LEN_PHONE2 + 1); + strlcpy(dept, &buf[LOC_DEPT], LEN_DEPT + 1); + strlcpy(title, &buf[LOC_TITLE], LEN_TITLE + 1); strcpy(sname, name); e.name = strtrim(sname); @@ -200,7 +157,8 @@ struct entry *get_next_entry(FILE *in) while (isspace(*p)) p++; e.first = p; - if ((p = strchr(e.first, ' '))) + p = strchr(e.first, ' '); + if (p) { *p = '\0'; e.first = strtrim(e.first); @@ -229,21 +187,22 @@ struct entry *get_next_entry(FILE *in) FixCase(e.middle); e.id = id; + e.haddr = e.hphone = ""; /* The following is really gross, but it happens to successfully convert * new-style Warehouse office descriptions into (more-readable) old-style * Personnel Office office descriptions. */ - e.address = p = strtrim(office); + e.oaddr = p = strtrim(office); while (*p && !isspace(*p)) p++; q = p; while (isspace(*q)) q++; - if (*q && q < e.address + LEN_OFFICE / 2) + if (*q && q < e.oaddr + LEN_OFFICE / 2) { *p++ = '-'; - while (*q && q < e.address + LEN_OFFICE / 2) + while (*q && q < e.oaddr + LEN_OFFICE / 2) { if (*q != ' ' && *q != '-') *p++ = *q; @@ -254,7 +213,7 @@ struct entry *get_next_entry(FILE *in) memset(p, ' ', q - p); } - p = e.address + LEN_OFFICE / 2; + p = e.oaddr + LEN_OFFICE / 2; while (*p && !isspace(*p)) p++; q = p; @@ -273,411 +232,25 @@ struct entry *get_next_entry(FILE *in) } memset(p, ' ', q - p); } - strtrim(e.address); - - e.phone = strtrim(phone); - e.phone2 = strtrim(phone2); + strtrim(e.oaddr); + fixaddress(e.oaddr); + e.xaddress = e.oaddr; + + e.ophone = e.xphone1 = strtrim(phone); + fixphone(e.ophone); + e.xphone2 = strtrim(phone2); + fixphone(e.xphone2); e.dept = strtrim(dept); - e.title = strtrim(title); + e.xtitle = strtrim(title); - e.class = "MITS"; - if (strstr(e.title, "PROF") || strstr(e.title, "LECTURE")) - e.class = "FACULTY"; + e.type = "MITS"; + if (strstr(e.xtitle, "PROF") || strstr(e.xtitle, "LECTURE")) + e.type = "FACULTY"; if (!strcmp(e.dept, "LINCOLN LAB")) - e.class = "LINCOLN"; - - return &e; -} - -void process_entry(struct entry *e) -{ - int changed; - char buf[MAX_FIELD_WIDTH], *from, *to; - EXEC SQL BEGIN DECLARE SECTION; - char *first, *last, *middle, *sid, *name, *rdept; - char *rtitle, *raddr, *rhphone, *rophone, *prog; - char class[USERS_TYPE_SIZE], oaddr[USERS_OFFICE_ADDR_SIZE]; - char ophone[USERS_OFFICE_PHONE_SIZE], dept[USERS_DEPARTMENT_SIZE]; - char dfirst[USERS_FIRST_SIZE], dlast[USERS_LAST_SIZE]; - char dmiddle[USERS_MIDDLE_SIZE]; - int id, status, who; - EXEC SQL END DECLARE SECTION; - - who = WHO; - prog = PROG; - first = e->first; - if (strlen(first) > USERS_FIRST_SIZE - 1) - first[USERS_FIRST_SIZE - 1] = '\0'; - last = e->last; - if (strlen(last) > USERS_LAST_SIZE - 1) - last[USERS_LAST_SIZE - 1] = '\0'; - middle = e->middle; - if (strlen(middle) > USERS_MIDDLE_SIZE - 1) - middle[USERS_MIDDLE_SIZE - 1] = '\0'; - sid = e->id; - id = 0; - - /* Get user info */ - EXEC SQL SELECT users_id, first, last, middle, type, office_addr, - office_phone, department, status - INTO :id, :dfirst, :dlast, :dmiddle, :class, :oaddr, - :ophone, :dept, :status - FROM users - WHERE clearid = :sid AND status != 3; - if (sqlfail()) - { - if (sqlca.sqlcode == SQL_DUPLICATE) - { - com_err(whoami, 0, "duplicate ID number %s on user %s %s", - sid, first, last); - return; - } - else - sqlexit(); - } - if (id == 0) - { - newuser(e); - return; - } - strtrim(dfirst); - strtrim(dlast); - strtrim(dmiddle); - strtrim(class); - - /* Update class/state if necessary. (Exclude several spacial cases.) */ - if (strcmp(e->class, class) && - strcmp(class, "STAFF") && strcmp(class, "SIPBMEM") && - strcmp(class, "KNIGHT")) - { - com_err(whoami, 0, "updating class for %s %s from \"%s\" to \"%s\"", - first, last, class, e->class); - if (status == US_NOT_ALLOWED) - status = US_NO_LOGIN_YET; - if (status == US_ENROLL_NOT_ALLOWED) - status = US_ENROLLED; - strcpy(class, e->class); - EXEC SQL UPDATE users - SET type = NVL(:class, CHR(0)), status = :status, - modtime = SYSDATE, modby = :who, modwith = :prog - WHERE users_id = :id; - if (sqlca.sqlcode) - { - dbmserr("updating user", sqlca.sqlcode); - exit(1); - } - } - - /* Update name if necessary */ - if (strcmp(first, strtrim(dfirst)) || - strcmp(last, strtrim(dlast)) || - strcmp(middle, strtrim(dmiddle))) - { - com_err(whoami, 0, "updating real name for %s%s%s %s (was %s%s%s %s)", - first, *middle ? " " : "", middle, last, - dfirst, *dmiddle ? " " : "", dmiddle, dlast); - EXEC SQL UPDATE users - SET first = NVL(:first, CHR(0)), last = NVL(:last, CHR(0)), - middle = NVL(:middle, CHR(0)), modby = :who, modwith = :prog, - modtime = SYSDATE - WHERE users_id = :id; - if (sqlca.sqlcode) - { - dbmserr("updating name", sqlca.sqlcode); - exit(1); - } - } - - changed = 0; - strcpy(buf, e->address); - while ((to = strchr(buf, ','))) - *to = ';'; - while ((to = strchr(buf, ':'))) - *to = ';'; - if (strncmp(strtrim(oaddr), buf, USERS_OFFICE_ADDR_SIZE - 1)) - { - changed++; - com_err(whoami, 0, "office for %s %s changed from \"%s\" to \"%s\"", - first, last, oaddr, buf); - } - strncpy(oaddr, buf, USERS_OFFICE_ADDR_SIZE - 1); - oaddr[USERS_OFFICE_ADDR_SIZE - 1] = '\0'; - - from = e->phone; - to = buf; - while (*from) - { - if (isdigit(*from)) - *to++ = *from; - from++; - } - *to = '\0'; - if (strncmp(strtrim(ophone), buf, USERS_OFFICE_PHONE_SIZE - 1)) - { - changed++; - com_err(whoami, 0, "Phone for %s %s changed from \"%s\" to \"%s\"", - first, last, ophone, buf); - } - strncpy(ophone, buf, USERS_OFFICE_PHONE_SIZE - 1); - ophone[USERS_OFFICE_PHONE_SIZE - 1] = '\0'; + e.type = "LINCOLN"; - FixCase(e->dept); - FixCase(e->title); - if (strncmp(strtrim(dept), e->dept, USERS_DEPARTMENT_SIZE - 1)) - { - changed++; - com_err(whoami, 0, "Department for %s %s changed from \"%s\" to \"%s\"", - first, last, dept, e->dept); - } - strncpy(dept, e->dept, USERS_DEPARTMENT_SIZE - 1); - dept[USERS_DEPARTMENT_SIZE - 1] = '\0'; + FixCase(e.dept); + FixCase(e.xtitle); - sid = e->id; - name = e->name; - rdept = e->dept; - rtitle = e->title; - raddr = e->address; - rhphone = e->phone; - rophone = e->phone2; - - if (changed) - { - com_err(whoami, 0, "updating finger for %s %s", first, last); - EXEC SQL UPDATE users - SET office_addr = NVL(:oaddr, CHR(0)), - office_phone = NVL(:ophone, CHR(0)), department = NVL(:dept, CHR(0)), - fmodtime = SYSDATE, fmodby = :who, fmodwith = :prog, - xname = NVL(:name, CHR(0)), xdept = NVL(:rdept, CHR(0)), - xtitle = NVL(:rtitle, CHR(0)), xaddress = NVL(:raddr, CHR(0)), - xphone1 = NVL(:rhphone, CHR(0)), xphone2 = NVL(:rophone, CHR(0)), - xmodtime = SYSDATE, clearid = NVL(:sid, CHR(0)) - WHERE users_id = :id; - if (sqlca.sqlcode) - { - dbmserr(NULL, sqlca.sqlcode); - exit(1); - } - } - else - { - EXEC SQL UPDATE users - SET xname = NVL(:name, CHR(0)), xdept = NVL(:rdept, CHR(0)), - xtitle = NVL(:rtitle, CHR(0)), xaddress = NVL(:raddr, CHR(0)), - xphone1 = NVL(:rhphone, CHR(0)), xphone2 = NVL(:rophone, CHR(0)), - xmodtime = SYSDATE, clearid = NVL(:sid, CHR(0)) - WHERE users_id = :id; - if (sqlca.sqlcode) - { - dbmserr(NULL, sqlca.sqlcode); - exit(1); - } - } -} - - -void newuser(struct entry *e) -{ - char *from, *to; - EXEC SQL BEGIN DECLARE SECTION; - int id, uid, st, who; - char *last, *first, *class, *middle, login[USERS_LOGIN_SIZE], *sid; - char fullname[USERS_FULLNAME_SIZE], *prog; - char oaddr[USERS_OFFICE_ADDR_SIZE], ophone[USERS_OFFICE_PHONE_SIZE]; - char dept[USERS_DEPARTMENT_SIZE], *name, *title; - char *rdept, *rhphone, *rophone; - EXEC SQL END DECLARE SECTION; - - who = WHO; - prog = PROG; - strncpy(oaddr, e->address, USERS_OFFICE_ADDR_SIZE - 1); - oaddr[USERS_OFFICE_ADDR_SIZE - 1] = '\0'; - while ((to = strchr(oaddr, ','))) - *to = ';'; - while ((to = strchr(oaddr, ':'))) - *to = ';'; - from = e->phone; - to = ophone; - while (*from) - { - if (isdigit(*from)) - *to++ = *from; - from++; - } - *to = '\0'; - FixCase(e->dept); - strncpy(dept, e->dept, USERS_DEPARTMENT_SIZE - 1); - dept[USERS_DEPARTMENT_SIZE - 1] = '\0'; - - id = set_next_users_id(0); - uid = set_next_uid(); - sprintf(login, "#%d", uid); - last = e->last; - first = e->first; - middle = e->middle; - class = e->class; - if (*middle) - sprintf(fullname, "%s %s %s", first, middle, last); - else - sprintf(fullname, "%s %s", first, last); - st = US_NO_LOGIN_YET; - - sid = e->id; - name = e->name; - rdept = e->dept; - title = e->title; - rhphone = e->phone; - rophone = e->phone2; - - com_err(whoami, 0, "adding user %s %s", e->first, e->last); - - EXEC SQL INSERT INTO users - (login, users_id, unix_uid, shell, winconsoleshell, last, first, - middle, status, clearid, type, modtime, modby, modwith, fullname, - office_addr, office_phone, department, fmodtime, fmodby, fmodwith, - potype, xname, xdept, xtitle, xaddress, xphone1, xphone2, xmodtime) - VALUES (:login, :id, :uid, '/bin/athena/tcsh', 'cmd', - NVL(:last, CHR(0)), NVL(:first, CHR(0)), NVL(:middle, CHR(0)), - :st, NVL(:sid, CHR(0)), NVL(:class, CHR(0)), SYSDATE, :who, :prog, - NVL(:fullname, CHR(0)), NVL(:oaddr, CHR(0)), NVL(:ophone, CHR(0)), - NVL(:dept, CHR(0)), SYSDATE, :who, :prog, 'NONE', - NVL(:name, CHR(0)), NVL(:rdept, CHR(0)), NVL(:title, CHR(0)), - NVL(:oaddr, CHR(0)), NVL(:rhphone, CHR(0)), NVL(:rophone, CHR(0)), - SYSDATE); - if (sqlca.sqlcode) - { - dbmserr("adding user", sqlca.sqlcode); - exit(1); - } -} - - -int set_next_users_id(int limit) -{ - EXEC SQL BEGIN DECLARE SECTION; - int flag, value, retval; - EXEC SQL END DECLARE SECTION; - - EXEC SQL SELECT value INTO :value FROM numvalues - WHERE name = 'users_id'; - if (sqlfail()) - sqlexit(); - if (sqlca.sqlerrd[2] != 1) - { - EXEC SQL ROLLBACK; - com_err(whoami, MR_INTERNAL, "values table inconsistancy"); - exit(1); - } - - flag = 0; - EXEC SQL SELECT users_id INTO :flag FROM users - WHERE users_id = :value; - if (sqlfail()) - sqlexit(); - if (sqlca.sqlerrd[2] == 0) - flag = 0; - while (flag) - { - value++; - if (limit && value > MAX_ID_VALUE) - value = MIN_ID_VALUE; - flag = 0; - EXEC SQL SELECT users_id INTO :flag FROM users - WHERE users_id = :value; - if (sqlfail()) - sqlexit(); - if (sqlca.sqlerrd[2] == 0) - flag = 0; - } - - retval = value++; - if (limit && value > MAX_ID_VALUE) - value = MIN_ID_VALUE; - EXEC SQL UPDATE numvalues SET value = :value - WHERE name = 'users_id'; - if (sqlca.sqlcode) - { - dbmserr("assigning ID", sqlca.sqlcode); - exit(1); - } - return retval; -} - -int set_next_uid(void) -{ - EXEC SQL BEGIN DECLARE SECTION; - int flag, initial, value, retval; - char *name; - EXEC SQL END DECLARE SECTION; - - EXEC SQL SELECT value INTO :initial FROM numvalues - WHERE name = 'unix_uid'; - if (sqlfail()) - sqlexit(); - if (sqlca.sqlerrd[2] != 1) - { - EXEC SQL ROLLBACK; - com_err(whoami, MR_INTERNAL, "values table inconsistancy"); - exit(1); - } - - value = initial; - flag = 0; - EXEC SQL SELECT COUNT(unix_uid) INTO :flag - FROM users WHERE unix_uid = :value; - if (sqlfail()) - sqlexit(); - while (flag) - { - value++; -#ifdef ULTRIX_ID_HOLE - if (value > 31999 && value < 32768) - value = 32768; -#endif - if (value > MAX_ID_VALUE) - value = MIN_ID_VALUE; - if (value == initial) - { - com_err(whoami, 0, "Out of uids!"); - EXEC SQL ROLLBACK WORK; - exit(1); - } - flag = 0; - EXEC SQL SELECT COUNT(unix_uid) INTO :flag - FROM users WHERE unix_uid = :value; - if (sqlfail()) - sqlexit(); - } - - retval = value++; - if (value > MAX_ID_VALUE) - value = MIN_ID_VALUE; - EXEC SQL UPDATE numvalues SET value = :value WHERE name = 'unix_uid'; - if (sqlca.sqlcode) - { - dbmserr("assigning ID", sqlca.sqlcode); - exit(1); - } - return retval; -} - - -void sqlexit(void) -{ - dbmserr(NULL, sqlca.sqlcode); - EXEC SQL ROLLBACK WORK; - exit(1); -} - -void dbmserr(char *where, int what) -{ - char err_msg[256]; - int bufsize = 256, msglength = 0; - - sqlglm(err_msg, &bufsize, &msglength); - err_msg[msglength] = '\0'; - - if (where) - com_err(whoami, 0, "DBMS error %swhile %s", err_msg, where); - else - com_err(whoami, 0, "DBMS error %s", err_msg); + return &e; } diff --git a/regtape/staff.sql b/regtape/staff.sql new file mode 100644 index 00000000..89bcefb9 --- /dev/null +++ b/regtape/staff.sql @@ -0,0 +1,8 @@ +set head off +set feedback off +set pagesize 0 +set linesize 271 +spool /moira/load/staff.input.unsorted +select mit_id || rpad(nvl(full_name, ' '), 30, ' ') || rpad(substr(nvl(office_location, ' '), 0, 12), 12, ' ') || rpad(substr(nvl(secondary_office_location, ' '), 0, 12), 12, ' ') || lpad(substr(nvl(office_phone, ' '), 0, 12), 12, ' ') || lpad(substr(nvl(secondary_office_phone, ' '), 0, 12), 12, ' ') || rpad(substr(department_name, 0, 50), 50, ' ') || substr(directory_title, 0, 50) from wareuser.moira_employee2; +spool off +quit diff --git a/regtape/student.pc b/regtape/student.pc index 6f721b39..39469954 100644 --- a/regtape/student.pc +++ b/regtape/student.pc @@ -11,6 +11,7 @@ #include #include #include +#include "common.h" #include #include @@ -19,85 +20,63 @@ #include EXEC SQL INCLUDE sqlca; -extern void sqlglm(char *, unsigned int *, unsigned int *); RCSID("$Header$"); -#define WHO 11859 /* root */ -#define PROG "stu-tape" - -#define MAX_ID_VALUE 31999 -#define MIN_ID_VALUE 101 - /* File format is: -0-29 name -30-38 id number -50-54 school code -55-79 year -80-109 address -110-124 room -125-144 city -145-158 state -159-168 dorm phone -169-212 home address -213-232 home city -243-251 mit phone (?) +0-8 MIT ID +9-38 last name +39-68 first name +69-98 middle name +99 year +100-103 department +104-133 address +134-173 city +174-175 state +176-184 zip code +185-204 phone +205-234 office address +235-254 office phone + */ -#define LOC_NAME 0 -#define LOC_ID 30 -#define LOC_COURSE 50 -#define LOC_YEAR 55 -#define LOC_ADDRESS 80 -#define LOC_DORM_ROOM 110 -#define LOC_CITY 125 -#define LOC_STATE 145 -#define LOC_DPHONE 155 -#define LOC_MPHONE 243 - -#define LEN_NAME 30 +#define LOC_ID 0 #define LEN_ID 9 -#define LEN_COURSE 5 -#define LEN_YEAR 25 +#define LOC_LAST (LOC_ID + LEN_ID) +#define LEN_LAST 30 +#define LOC_FIRST (LOC_LAST + LEN_LAST) +#define LEN_FIRST 30 +#define LOC_MIDDLE (LOC_FIRST + LEN_FIRST) +#define LEN_MIDDLE 30 +#define LOC_YEAR (LOC_MIDDLE + LEN_MIDDLE) +#define LEN_YEAR 1 +#define LOC_COURSE (LOC_YEAR + LEN_YEAR) +#define LEN_COURSE 4 +#define LOC_ADDRESS (LOC_COURSE + LEN_COURSE) #define LEN_ADDRESS 30 -#define LEN_DORM_ROOM 15 -#define LEN_CITY 20 -#define LEN_STATE 10 -#define LEN_DPHONE 12 -#define LEN_MPHONE 12 - -struct entry { - char *name; - char *last; - char *first; - char *middle; - char *title; - char *id; - char *course; - char *year; - char *address; - char *dorm; - char *city; - char *state; - char *dphone; - char *mphone; - char *class; -}; +#define LOC_CITY (LOC_ADDRESS + LEN_ADDRESS) +#define LEN_CITY 40 +#define LOC_STATE (LOC_CITY + LEN_CITY) +#define LEN_STATE 2 +#define LOC_ZIP (LOC_STATE + LEN_STATE) +#define LEN_ZIP 9 +#define LOC_PHONE (LOC_ZIP + LEN_ZIP) +#define LEN_PHONE 20 +#define LOC_OADDR (LOC_PHONE + LEN_PHONE) +#define LEN_OADDR 30 +#define LOC_OPHONE (LOC_OADDR + LEN_OADDR) +#define LEN_OPHONE 20 + +EXEC SQL BEGIN DECLARE SECTION; +int who; +char *prog = "stuload"; +EXEC SQL END DECLARE SECTION; char *whoami; -int newfinger = 0; struct entry *get_next_entry(FILE *in); -void process_entry(struct entry *e); -void newuser(struct entry *e); -int set_next_users_id(int limit); -int set_next_uid(int limit); -void sqlexit(void); -void dbmserr(char *where, int what); - -#define SQL_DUPLICATE -2112 -#define sqlfail() (sqlca.sqlcode && sqlca.sqlcode != 1403) +void process_entry(struct entry *e, int secure); int main(int argc, char **argv) { @@ -122,8 +101,6 @@ int main(int argc, char **argv) { if (!strcmp(argv[i], "-w")) wait++; - else if (!strcmp(argv[i], "-n")) - newfinger++; else if (file) fprintf(stderr, "Usage: %s [-w] [-D] [-n] inputfile\n", whoami); else @@ -146,9 +123,11 @@ int main(int argc, char **argv) exit(1); } + EXEC SQL SELECT users_id INTO :who FROM users WHERE login = 'root'; + while ((e = get_next_entry(in))) { - process_entry(e); + process_entry(e, 1); EXEC SQL COMMIT WORK; if (sqlca.sqlcode) { @@ -171,11 +150,15 @@ struct entry *get_next_entry(FILE *in) { static struct entry e; static char buf[BUFSIZ], classbuf[10]; - static char name[LEN_NAME + 1], id[LEN_ID + 1], course[LEN_COURSE + 1]; + static char namebuf[LEN_FIRST + LEN_MIDDLE + LEN_LAST + 2]; + static char addrbuf[USERS_HOME_ADDR_SIZE], xaddrbuf[USERS_XADDRESS_SIZE]; + static char first[LEN_FIRST + 1], last[LEN_LAST + 1], middle[LEN_MIDDLE + 1]; + static char id[LEN_ID + 1], course[LEN_COURSE + 1]; static char year[LEN_YEAR + 1], address[LEN_ADDRESS + 1]; - static char dorm_room[LEN_DORM_ROOM + 1], city[LEN_CITY + 1]; - static char state[LEN_STATE + 1], dphone[LEN_DPHONE + 1]; - static char mphone[LEN_MPHONE + 1], sname[LEN_NAME + 1], title[128]; + static char city[LEN_CITY + 1]; + static char state[LEN_STATE + 1], phone[LEN_PHONE + 1]; + static char ophone[LEN_OPHONE + 1], title[128]; + static char zip[LEN_ZIP + 1], oaddr[LEN_OADDR + 1]; static int nyear = 0; int ends_jr, ends_iii, ends_iv, ends_sr, ends_ii, ends_v; char *p; @@ -195,620 +178,102 @@ struct entry *get_next_entry(FILE *in) if (!fgets(buf, sizeof(buf), in)) return NULL; - strncpy(name, &buf[LOC_NAME], LEN_NAME); - name[LEN_NAME] = '\0'; - strncpy(id, &buf[LOC_ID], LEN_ID); - id[LEN_ID] = '\0'; - strncpy(course, &buf[LOC_COURSE], LEN_COURSE); - course[LEN_COURSE] = '\0'; - strncpy(year, &buf[LOC_YEAR], LEN_YEAR); - year[LEN_YEAR] = '\0'; - strncpy(address, &buf[LOC_ADDRESS], LEN_ADDRESS); - address[LEN_ADDRESS] = '\0'; - strncpy(dorm_room, &buf[LOC_DORM_ROOM], LEN_DORM_ROOM); - dorm_room[LEN_DORM_ROOM] = '\0'; - strncpy(city, &buf[LOC_CITY], LEN_CITY); - city[LEN_CITY] = '\0'; - strncpy(state, &buf[LOC_STATE], LEN_STATE); - state[LEN_STATE] = '\0'; - strncpy(dphone, &buf[LOC_DPHONE], LEN_DPHONE); - dphone[LEN_DPHONE] = '\0'; - strncpy(mphone, &buf[LOC_MPHONE], LEN_MPHONE); - mphone[LEN_MPHONE] = '\0'; - - strcpy(sname, name); - e.name = strtrim(sname); - p = strchr(name, ','); - if (p) - *p = '\0'; - e.last = strtrim(name); - if (p) - { - p++; - while (isspace(*p)) - p++; - e.first = p; - if ((p = strchr(e.first, ' '))) - { - *p = '\0'; - e.first = strtrim(e.first); - e.middle = strtrim(p + 1); - } - else - { - e.first = strtrim(e.first); - e.middle = ""; - } - } - else - { - e.first = ""; - e.middle = ""; - } + strlcpy(id, &buf[LOC_ID], LEN_ID + 1); + strtrim(id); + strlcpy(last, &buf[LOC_LAST], LEN_LAST + 1); + strtrim(last); + strlcpy(first, &buf[LOC_FIRST], LEN_FIRST + 1); + strtrim(first); + strlcpy(middle, &buf[LOC_MIDDLE], LEN_MIDDLE + 1); + strtrim(middle); + strlcpy(year, &buf[LOC_YEAR], LEN_YEAR + 1); + strtrim(year); + strlcpy(course, &buf[LOC_COURSE], LEN_COURSE + 1); + strtrim(course); + strlcpy(address, &buf[LOC_ADDRESS], LEN_ADDRESS + 1); + strtrim(address); + strlcpy(city, &buf[LOC_CITY], LEN_CITY + 1); + strtrim(city); + strlcpy(state, &buf[LOC_STATE], LEN_STATE + 1); + strtrim(state); + strlcpy(zip, &buf[LOC_ZIP], LEN_ZIP + 1); + strtrim(zip); + strlcpy(phone, &buf[LOC_PHONE], LEN_PHONE + 1); + strtrim(phone); + strlcpy(oaddr, &buf[LOC_OADDR], LEN_OADDR + 1); + strtrim(oaddr); + strlcpy(ophone, &buf[LOC_OPHONE], LEN_OPHONE + 1); + strtrim(ophone); + + e.first = first; + e.last = last; + e.middle = middle; ends_jr = ends_iii = ends_iv = ends_sr = ends_ii = ends_v = 0; - LookForSt(e.last); - LookForO(e.last); LookForJrAndIII(e.last, &ends_sr, &ends_jr, &ends_iii, &ends_iv, &ends_ii, &ends_v); - LookForJrAndIII(e.first, &ends_sr, &ends_jr, &ends_iii, &ends_iv, - &ends_ii, &ends_v); - FixCase(e.last); - FixCase(e.first); - FixCase(e.middle); + if (middle[1] == '.' && middle[2] == '\0') + middle[1] = '\0'; + e.name = namebuf; + if (*middle) + sprintf(e.name, "%s %s %s", first, middle, last); + else + sprintf(e.name, "%s %s", first, last); e.id = id; - e.id[LEN_ID] = '\0'; - e.year = strtrim(year); - e.title = title; - if (e.year[0] == 'G') + e.xtitle = title; + if (year[0] == 'G') { - e.class = "G"; + e.type = "G"; sprintf(title, "Grad Student"); } else { - e.class = classbuf; - sprintf(classbuf, "%d", nyear + 4 - atoi(e.year) + 1900); + e.type = classbuf; + sprintf(classbuf, "%d", nyear + 4 - atoi(year) + 1900); sprintf(title, "Undergrad (class of %s)", classbuf); } - e.course = strtrim(course); - e.address = strtrim(address); - e.dorm = strtrim(dorm_room); - e.city = strtrim(city); - e.state = strtrim(state); - e.dphone = strtrim(dphone); - e.mphone = strtrim(mphone); - return &e; -} + e.dept = course; + e.oaddr = oaddr; + fixaddress(e.oaddr); + e.ophone = e.xphone2 = ophone; + fixphone(e.ophone); -void process_entry(struct entry *e) -{ - int changed, nochange; - char buf[MAX_FIELD_WIDTH], *from, *to; - EXEC SQL BEGIN DECLARE SECTION; - char *first, *last, *middle, *sid, *name, *rdept; - char *rtitle, *rophone, *rhphone, *prog; - char class[USERS_TYPE_SIZE], haddr[USERS_HOME_ADDR_SIZE]; - char hphone[USERS_HOME_PHONE_SIZE], ophone[USERS_OFFICE_PHONE_SIZE]; - char dept[USERS_DEPARTMENT_SIZE], raddr[USERS_XADDRESS_SIZE]; - char dfirst[USERS_FIRST_SIZE], dlast[USERS_LAST_SIZE]; - char dmiddle[USERS_MIDDLE_SIZE]; - int id, status, who; - EXEC SQL END DECLARE SECTION; - - who = WHO; - prog = PROG; - first = e->first; - if (strlen(first) > USERS_FIRST_SIZE - 1) - first[USERS_FIRST_SIZE - 1] = '\0'; - last = e->last; - if (strlen(last) > USERS_LAST_SIZE - 1) - last[USERS_LAST_SIZE - 1] = '\0'; - middle = e->middle; - if (strlen(middle) > USERS_MIDDLE_SIZE - 1) - middle[USERS_MIDDLE_SIZE - 1] = '\0'; - sid = e->id; - id = 0; - - /* Get user info */ - EXEC SQL SELECT users_id, first, last, middle, type, home_addr, home_phone, - office_phone, status, department - INTO :id, :dfirst, :dlast, :dmiddle, :class, :haddr, :hphone, - :ophone, :status, :dept - FROM users - WHERE clearid = :sid; - if (sqlfail()) + e.haddr = addrbuf; + strlcpy(e.haddr, address, sizeof(addrbuf)); + if (*city) { - if (sqlca.sqlcode == SQL_DUPLICATE) - { - com_err(whoami, 0, "duplicate ID number %s on user %s %s", - sid, first, last); - return; - } - else - sqlexit(); + strlcat(e.haddr, " ", sizeof(addrbuf)); + strlcat(e.haddr, city, sizeof(addrbuf)); } - if (id == 0) + if (*state) { - newuser(e); - return; + strlcat(e.haddr, " ", sizeof(addrbuf)); + strlcat(e.haddr, state, sizeof(addrbuf)); + strlcat(e.haddr, zip, sizeof(addrbuf)); } + fixaddress(e.haddr); - /* See if class changed: if it's different, and the value in the database - * is not STAFF or SIPBMEM, and the value from the tape is actually - * meaningful, then update the database. Since they were on the - * students tape, make the account usable. - */ - if (strcmp(e->class, strtrim(class)) && - strcmp(class, "STAFF") && strcmp(class, "SIPBMEM") && - e->year[0]) - { - com_err(whoami, 0, "updating class for user %s %s from %s to %s", - first, last, class, e->class); - if (status == US_NOT_ALLOWED) - status = US_NO_LOGIN_YET; - if (status == US_ENROLL_NOT_ALLOWED) - status = US_ENROLLED; - strcpy(class, e->class); - EXEC SQL UPDATE users - SET type = NVL(:class, CHR(0)), status = :status, modtime = SYSDATE, - modby = :who, modwith = :prog - WHERE users_id = :id; - if (sqlca.sqlcode) - { - dbmserr("updating class", sqlca.sqlcode); - exit(1); - } - } + e.hphone = e.xphone1 = phone; + fixphone(e.hphone); - /* Update name if necessary */ - if (strcmp(first, strtrim(dfirst)) || - strcmp(last, strtrim(dlast)) || - strcmp(middle, strtrim(dmiddle))) - { - com_err(whoami, 0, "updating real name for %s %s", first, last); - EXEC SQL UPDATE users - SET first = NVL(:first, CHR(0)), last = NVL(:last, CHR(0)), - middle = NVL(:middle, CHR(0)), modby = :who, modwith = :prog, - modtime = SYSDATE - WHERE users_id = :id; - if (sqlca.sqlcode != 0) - { - dbmserr("updating name", sqlca.sqlcode); - exit(1); - } - } - - /* Deal with updating the finger info if necessary */ - changed = nochange = 0; - strcpy(buf, e->address); - if (*e->dorm) - { - strcat(buf, " "); - strcat(buf, e->dorm); - } - if (*e->city) - { - strcat(buf, " "); - strcat(buf, e->city); - } - FixCase(buf); - if (*e->state) + e.xaddress = xaddrbuf; + strlcpy(e.xaddress, address, sizeof(xaddrbuf)); + strlcat(e.xaddress, " |", sizeof(xaddrbuf)); + if (*city) { - strcat(buf, " "); - strcat(buf, e->state); - } - while ((to = strchr(buf, ','))) - *to = ';'; - while ((to = strchr(buf, ':'))) - *to = ';'; - if (newfinger) - { - if (haddr[0] == ' ') - { - strncpy(haddr, buf, USERS_HOME_ADDR_SIZE - 1); - haddr[USERS_HOME_ADDR_SIZE - 1] = '\0'; - changed++; - } - else if (strncmp(strtrim(haddr), buf, USERS_HOME_ADDR_SIZE - 1)) - nochange++; - } - else - { - if (strncmp(strtrim(haddr), buf, USERS_HOME_ADDR_SIZE - 1)) - changed++; - strncpy(haddr, buf, USERS_HOME_ADDR_SIZE - 1); - haddr[USERS_HOME_ADDR_SIZE - 1] = '\0'; - } - from = e->dphone; - to = buf; - while (*from) - { - if (isdigit(*from)) - *to++ = *from; - from++; - } - *to = '\0'; - if (newfinger) - { - if (hphone[0] == ' ') + strlcat(e.xaddress, city, sizeof(xaddrbuf)); + if (*state) { - strncpy(hphone, buf, USERS_HOME_PHONE_SIZE - 1); - hphone[USERS_HOME_PHONE_SIZE - 1] = '\0'; + strlcat(e.xaddress, " ", sizeof(xaddrbuf)); + strlcat(e.xaddress, state, sizeof(xaddrbuf)); + strlcat(e.xaddress, zip, sizeof(xaddrbuf)); } - else if (strncmp(strtrim(hphone), buf, USERS_HOME_PHONE_SIZE - 1)) - nochange++; } else - { - if (strncmp(strtrim(hphone), buf, USERS_HOME_PHONE_SIZE - 1)) - changed++; - strncpy(hphone, buf, USERS_HOME_PHONE_SIZE - 1); - hphone[USERS_HOME_PHONE_SIZE - 1] = '\0'; - } - from = e->mphone; - to = buf; - while (*from) - { - if (isdigit(*from)) - *to++ = *from; - from++; - } - *to = '\0'; - if (newfinger) - { - if (ophone[0] == ' ') - { - strncpy(ophone, buf, USERS_OFFICE_PHONE_SIZE - 1); - ophone[USERS_OFFICE_PHONE_SIZE - 1] = '\0'; - } - else if (strncmp(strtrim(ophone), buf, USERS_OFFICE_PHONE_SIZE - 1)) - nochange++; - } - else - { - if (strncmp(strtrim(ophone), buf, USERS_OFFICE_PHONE_SIZE - 1)) - changed++; - strncpy(ophone, buf, USERS_OFFICE_PHONE_SIZE - 1); - ophone[USERS_OFFICE_PHONE_SIZE - 1] = '\0'; - } - e->course = e->course; - if (newfinger) - { - if (dept[0] == ' ') - { - strncpy(dept, e->course, USERS_DEPARTMENT_SIZE - 1); - dept[USERS_DEPARTMENT_SIZE - 1] = '\0'; - } - else if (strncmp(strtrim(dept), e->course, USERS_DEPARTMENT_SIZE - 1)) - nochange++; - } - else - { - if (strncmp(strtrim(dept), e->course, USERS_DEPARTMENT_SIZE - 1)) - changed++; - strncpy(dept, e->course, USERS_DEPARTMENT_SIZE - 1); - dept[USERS_DEPARTMENT_SIZE - 1] = '\0'; - } - sid = e->id; - name = e->name; - rdept = e->course; - rtitle = e->title; - rophone = e->mphone; - rhphone = e->dphone; - strcpy(raddr, e->address); - if (*e->dorm) - { - strcat(raddr, " "); - strcat(raddr, e->dorm); - } - strcat(raddr, "|"); - if (*e->city) - { - strcat(raddr, e->city); - FixCase(raddr); - if (*e->state) - { - strcat(raddr, " "); - if (isupper(e->state[0]) && isupper(e->state[1]) && - isdigit(e->state[2]) && isdigit(e->state[3]) && - isdigit(e->state[4]) && isdigit(e->state[5]) && - isdigit(e->state[6])) - { - sprintf(buf, "%c%c %s", e->state[0], e->state[1], - &(e->state[2])); - strcat(raddr, buf); - } - else - strcat(raddr, e->state); - } - } - else - { - FixCase(raddr); - strcat(raddr, "MIT INTERDEPARTMENTAL MAIL"); - } - if (changed) - { - com_err(whoami, 0, "updating finger for %s %s", first, last); - EXEC SQL UPDATE users - SET home_addr = NVL(:haddr, CHR(0)), home_phone = NVL(:hphone, CHR(0)), - office_phone = NVL(:ophone, CHR(0)), department = NVL(:dept, CHR(0)), - fmodtime = SYSDATE, fmodby = :who, fmodwith = :prog, - xname = NVL(:name, CHR(0)), xdept = NVL(:rdept, CHR(0)), - xtitle = NVL(:rtitle, CHR(0)), xaddress = NVL(:raddr, CHR(0)), - xphone1 = NVL(:rhphone, CHR(0)), xphone2 = NVL(:rophone, CHR(0)), - xmodtime = SYSDATE, clearid = NVL(:sid, CHR(0)) - WHERE users_id = :id; - if (sqlca.sqlcode) - { - dbmserr(NULL, sqlca.sqlcode); - exit(1); - } - } - else - { - EXEC SQL UPDATE users - SET xname = NVL(:name, CHR(0)), xdept = NVL(:rdept, CHR(0)), - xtitle = NVL(:rtitle, CHR(0)), xaddress = NVL(:raddr, CHR(0)), - xphone1 = NVL(:rhphone, CHR(0)), xphone2 = NVL(:rophone, CHR(0)), - xmodtime = SYSDATE, clearid = NVL(:sid, CHR(0)) - WHERE users_id = :id; - if (sqlca.sqlcode) - { - dbmserr(NULL, sqlca.sqlcode); - exit(1); - } - } -} - -void newuser(struct entry *e) -{ - char buf[512], *from, *to; - EXEC SQL BEGIN DECLARE SECTION; - int id, uid, who; - char *last, *first, *class, *middle, login[USERS_LOGIN_SIZE], *sid; - char fullname[USERS_FULLNAME_SIZE], *prog; - char haddr[USERS_HOME_ADDR_SIZE], hphone[USERS_HOME_PHONE_SIZE]; - char ophone[USERS_OFFICE_PHONE_SIZE], dept[USERS_DEPARTMENT_SIZE]; - char *title, raddr[USERS_XADDRESS_SIZE], *name; - EXEC SQL END DECLARE SECTION; + strlcat(e.xaddress, "MIT INTERDEPARTMENTAL MAIL", sizeof(xaddrbuf)); - who = WHO; - prog = PROG; - strcpy(buf, e->address); - if (*e->dorm) - { - strcat(buf, " "); - strcat(buf, e->dorm); - } - if (*e->city) - { - strcat(buf, " "); - strcat(buf, e->city); - } - if (*e->state) - { - strcat(buf, " "); - strcat(buf, e->state); - } - strncpy(haddr, buf, USERS_HOME_ADDR_SIZE - 1); - haddr[USERS_HOME_ADDR_SIZE - 1] = '\0'; - from = e->dphone; - to = buf; - while (*from) - { - if (isdigit(*from)) - *to++ = *from; - from++; - } - *to = '\0'; - strncpy(hphone, buf, USERS_HOME_PHONE_SIZE - 1); - hphone[USERS_HOME_PHONE_SIZE - 1] = '\0'; - from = e->mphone; - to = buf; - while (*from) - { - if (isdigit(*from)) - *to++ = *from; - from++; - } - *to = '\0'; - strncpy(ophone, buf, USERS_OFFICE_PHONE_SIZE - 1); - ophone[USERS_OFFICE_PHONE_SIZE - 1] = '\0'; - strncpy(dept, e->course, USERS_DEPARTMENT_SIZE - 1); - dept[USERS_DEPARTMENT_SIZE - 1] = '\0'; - - id = set_next_users_id(0); - uid = set_next_uid(1); - sprintf(login, "#%d", uid); - last = e->last; - first = e->first; - middle = e->middle; - sid = e->id; - class = e->class; - title = e->title; - if (*middle) - sprintf(fullname, "%s %s %s", first, middle, last); - else - sprintf(fullname, "%s %s", first, last); - name = e->name; - strcpy(raddr, e->address); - if (*e->dorm) - { - strcat(raddr, " "); - strcat(raddr, e->dorm); - } - strcat(raddr, "|"); - if (*e->city) - { - strcat(raddr, e->city); - FixCase(raddr); - if (*e->state) - { - strcat(raddr, " "); - if (isupper(e->state[0]) && isupper(e->state[1]) && - isdigit(e->state[2]) && isdigit(e->state[3]) && - isdigit(e->state[4]) && isdigit(e->state[5]) && - isdigit(e->state[6])) - { - sprintf(buf, "%c%c %s", e->state[0], e->state[1], - &(e->state[2])); - strcat(raddr, buf); - } - else - strcat(raddr, e->state); - } - } - else - { - FixCase(raddr); - strcat(raddr, "MIT INTERDEPARTMENTAL MAIL"); - } - EXEC SQL INSERT INTO users - (login, users_id, unix_uid, shell, winconsoleshell, last, first, - middle, status, clearid, type, modtime, modby, modwith, fullname, - home_addr, home_phone, office_phone, department, fmodtime, fmodby, - fmodwith, potype, xname, xdept, xtitle, xaddress, xphone1, xphone2, - xmodtime, secure) - VALUES (:login, :id, :uid, '/bin/athena/tcsh', 'cmd', NVL(:last, CHR(0)), - NVL(:first, CHR(0)), NVL(:middle, CHR(0)), 0, NVL(:sid, CHR(0)), - NVL(:class, CHR(0)), SYSDATE, :who, :prog, NVL(:fullname, CHR(0)), - NVL(:haddr, CHR(0)), NVL(:hphone, CHR(0)), NVL(:ophone, CHR(0)), - NVL(:dept, CHR(0)), SYSDATE, :who, :prog, 'NONE', - NVL(:name, CHR(0)), NVL(:dept, CHR(0)), NVL(:title, CHR(0)), - NVL(:raddr, CHR(0)), NVL(:hphone, CHR(0)), NVL(:ophone, CHR(0)), - SYSDATE, 1); - if (sqlca.sqlcode) - { - dbmserr("adding user", sqlca.sqlcode); - exit(1); - } - else - com_err(whoami, 0, "adding user %s %s", e->first, e->last); -} - - -int set_next_users_id(int limit) -{ - EXEC SQL BEGIN DECLARE SECTION; - int flag, value, retval; - EXEC SQL END DECLARE SECTION; - - EXEC SQL SELECT value INTO :value FROM numvalues - WHERE name = 'users_id'; - if (sqlfail()) - sqlexit(); - if (sqlca.sqlerrd[2] != 1) - { - EXEC SQL ROLLBACK; - com_err(whoami, MR_INTERNAL, "values table inconsistancy"); - exit(1); - } - - flag = 0; - EXEC SQL SELECT users_id INTO :flag FROM users - WHERE users_id = :value; - if (sqlfail()) - sqlexit(); - if (sqlca.sqlerrd[2] == 0) - flag = 0; - while (flag) - { - value++; - if (limit && value > MAX_ID_VALUE) - value = MIN_ID_VALUE; - flag = 0; - EXEC SQL SELECT users_id INTO :flag FROM users - WHERE users_id = :value; - if (sqlfail()) - sqlexit(); - if (sqlca.sqlerrd[2] == 0) - flag = 0; - } - - retval = value++; - if (limit && value > MAX_ID_VALUE) - value = MIN_ID_VALUE; - EXEC SQL UPDATE numvalues SET value = :value - WHERE name = 'users_id'; - if (sqlca.sqlcode) - { - dbmserr("updating numvalues", sqlca.sqlcode); - exit(1); - } - return retval; -} - -int set_next_uid(int limit) -{ - EXEC SQL BEGIN DECLARE SECTION; - int flag, value, retval; - EXEC SQL END DECLARE SECTION; - - EXEC SQL SELECT value INTO :value FROM numvalues - WHERE name = 'unix_uid'; - if (sqlfail()) - sqlexit(); - if (sqlca.sqlerrd[2] != 1) - { - EXEC SQL ROLLBACK; - com_err(whoami, MR_INTERNAL, "values table inconsistancy"); - exit(1); - } - - flag = 0; - EXEC SQL SELECT unix_uid INTO :flag FROM users WHERE unix_uid = :value; - if (sqlfail()) - sqlexit(); - if (sqlca.sqlerrd[2] == 0) - flag = 0; - while (flag) - { - value++; - if (limit && value > MAX_ID_VALUE) - value = MIN_ID_VALUE; - flag = 0; - EXEC SQL SELECT unix_uid INTO :flag FROM users WHERE unix_uid = :value; - if (sqlfail()) - sqlexit(); - if (sqlca.sqlerrd[2] == 0) - flag = 0; - } - - retval = value++; - if (limit && value > MAX_ID_VALUE) - value = MIN_ID_VALUE; - EXEC SQL UPDATE numvalues SET value = :value WHERE name = 'unix_uid'; - if (sqlca.sqlcode) - { - dbmserr("updating numvalues", sqlca.sqlcode); - exit(1); - } - return retval; -} - - -void sqlexit(void) -{ - dbmserr(NULL, sqlca.sqlcode); - EXEC SQL ROLLBACK WORK; - exit(1); -} - -void dbmserr(char *where, int what) -{ - char err_msg[256]; - int bufsize = 256, msglength = 0; - - sqlglm(err_msg, &bufsize, &msglength); - err_msg[msglength] = '\0'; - - if (where) - com_err(whoami, 0, "DBMS error %swhile %s", err_msg, where); - else - com_err(whoami, 0, "DBMS error %s", err_msg); + return &e; } diff --git a/regtape/student.sql b/regtape/student.sql new file mode 100644 index 00000000..ccb970d8 --- /dev/null +++ b/regtape/student.sql @@ -0,0 +1,8 @@ +set head off +set feedback off +set pagesize 0 +set linesize 256 +spool /var/tmp/student.input.unsorted +select rpad(nvl(mit_id, ' '), 9, ' ') || rpad(nvl(last_name, ' '), 30, ' ') || rpad(nvl(first_name, ' '), 30, ' ') || rpad(nvl(middle_name, ' '), 30, ' ') || rpad(nvl(student_year, ' '), 1, ' ') || rpad(nvl(department, ' '), 4, ' ') || rpad(nvl(term_street1, ' '), 30, ' ') || rpad(nvl(term_city, ' '), 40, ' ') || rpad(nvl(term_state, ' '), 2, ' ') || rpad(nvl(term_zip, ' '), 9, ' ') || rpad(nvl(term_phone1, ' '), 20, ' ') || rpad(nvl(office_location, ' '), 30, ' ') || rpad(nvl(office_phone, ' '), 20, ' ') from wareuser.moira_student3; +spool off +quit -- 2.45.2