EXEC SQL CONNECT moira;
if (sqlca.sqlcode != 0) {
- com_err(whoami, 0, "ingres error %d", sqlca.sqlcode);
+ com_err(whoami, 0, "ingres error %d opening database", sqlca.sqlcode);
exit(1);
}
com_err(whoami, MR_DEADLOCK, "commiting work");
goto again;
} else {
- com_err(whoami, 0, "ingres error %d", sqlca.sqlcode);
+ com_err(whoami, 0, "ingres error %d committing work", sqlca.sqlcode);
exit(1);
}
}
e.title = strtrim(title);
e.class = "MITS";
- if (!strcmp(e.dept, "PROJECT ATHENA"))
- e.class = "STAFF";
- else if (substr(e.title, "PROF") || substr(e.title, "LECTURE"))
+ if (substr(e.title, "PROF") || substr(e.title, "LECTURE"))
e.class = "FACULTY";
- else if (!strcmp(e.title, "VISITING SCIENTIST"))
- e.class = "VSCIENTI";
strcpy(email, strtrim(username));
if (host[0] == '@')
int id, status, who;
EXEC SQL END DECLARE SECTION;
+ /* Don't process Lincoln Labs */
+ if (!strncmp(e->address, "LL", 2))
+ return;
+
who = WHO;
prog = PROG;
first = e->first;
modby = :who, modwith = :prog
WHERE users_id = :id;
if (sqlca.sqlcode != 0) {
- com_err(whoami, 0, "ingres error %d", sqlca.sqlcode);
- exit(1);
+ if (sqlca.sqlcode == SQL_DEADLOCK) {
+ com_err(whoami, MR_DEADLOCK, "updating user");
+ return;
+ } else {
+ com_err(whoami, 0, "ingres error %d updating user", sqlca.sqlcode);
+ exit(1);
+ }
}
}
modby = :who, modwith = :prog, modtime = 'now'
WHERE users_id = :id;
if (sqlca.sqlcode != 0) {
- com_err(whoami, 0, "ingres error %d", sqlca.sqlcode);
- exit(1);
+ if (sqlca.sqlcode == SQL_DEADLOCK) {
+ com_err(whoami, MR_DEADLOCK, "updating name");
+ return;
+ } else {
+ com_err(whoami, 0, "ingres error %d updating name", sqlca.sqlcode);
+ exit(1);
+ }
}
}
:dept, 'now', :who, :prog, 'NONE', :name, :rdept,
:title, :oaddr, :rhphone, :rophone, 'now');
if (sqlca.sqlcode != 0) {
- com_err(whoami, 0, "ingres error %d", sqlca.sqlcode);
- exit(1);
+ if (sqlca.sqlcode == SQL_DEADLOCK) {
+ com_err(whoami, MR_DEADLOCK, "adding user");
+ } else {
+ com_err(whoami, 0, "ingres error %d adding user", sqlca.sqlcode);
+ exit(1);
+ }
} else
com_err(whoami, 0, "adding user %s %s", e->first, e->last);
}
EXEC SQL REPEATED UPDATE numvalues SET value = :value
WHERE name = 'users_id';
if (sqlca.sqlcode != 0) {
- com_err(whoami, 0, "ingres error %d", sqlca.sqlcode);
+ com_err(whoami, 0, "ingres error %d assigning ID", sqlca.sqlcode);
exit(1);
}
return(retval);
value = MIN_ID_VALUE;
EXEC SQL REPEATED UPDATE numvalues SET value = :value WHERE name = 'uid';
if (sqlca.sqlcode != 0) {
- com_err(whoami, 0, "ingres error %d", sqlca.sqlcode);
+ com_err(whoami, 0, "ingres error %d assigning ID", sqlca.sqlcode);
exit(1);
}
return(retval);