- 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';
-
- 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, 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',
- 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);