regtape/common.pc

   1 /* $Id$
   2  *
   3  * Staff/Student load common code
   4  *
   5  * Copyright (C) 1999 by the Massachusetts Institute of Technology
   6  * For copying and distribution information, please see the file
   7  * <mit-copyright.h>.
   8  */
   9
  10 #include <mit-copyright.h>
  11 #include <moira.h>
  12 #include <moira_site.h>
  13 #include <moira_schema.h>
  14 #include "common.h"
  15
  16 #include <ctype.h>
  17 #include <string.h>
  18
  19 EXEC SQL INCLUDE sqlca;
  20 extern void sqlglm(char *, unsigned int *, unsigned int *);
  21
  22 RCSID("$Header$");
  23
  24 EXEC SQL BEGIN DECLARE SECTION;
  25 extern char *prog;
  26 extern int who;
  27 EXEC SQL END DECLARE SECTION;
  28
  29 extern char *whoami;
  30
  31 #define MIN_ID_VALUE 100
  32 #define MAX_ID_VALUE 65535
  33
  34 /* Remove non-digits from a phone number. */
  35 void fixphone(char *phone)
  36 {
  37   char *d = phone;
  38
  39   while (*phone)
  40     {
  41       if (isdigit(*phone))
  42         *d++ = *phone;
  43       phone++;
  44     }
  45   *d = '\0';
  46 }
  47
  48 /* Remove characters from address that aren't safe for passwd files. */
  49 void fixaddress(char *address)
  50 {
  51   char *p;
  52
  53   while ((p = strchr(address, ',')))
  54     *p = ';';
  55   while ((p = strchr(address, ':')))
  56     *p = ';';
  57 }
  58
  59 void process_entry(struct entry *e, int secure)
  60 {
  61   int changed;
  62   char buf[MAX_FIELD_WIDTH], *from, *to;
  63   EXEC SQL BEGIN DECLARE SECTION;
  64   char *first, *last, *middle, *sid;
  65   char *name = e->name, *xtitle = e->xtitle, *xaddr = e->xaddress;
  66   char *xphone1 = e->xphone1, *xphone2 = e->xphone2;
  67   char type[USERS_TYPE_SIZE], oaddr[USERS_OFFICE_ADDR_SIZE];
  68   char ophone[USERS_OFFICE_PHONE_SIZE], dept[USERS_DEPARTMENT_SIZE];
  69   char haddr[USERS_HOME_ADDR_SIZE], hphone[USERS_HOME_PHONE_SIZE];
  70   char dfirst[USERS_FIRST_SIZE], dlast[USERS_LAST_SIZE];
  71   char dmiddle[USERS_MIDDLE_SIZE];
  72   int id, status, fmodby, xnlen = USERS_XNAME_SIZE - 1;
  73   EXEC SQL END DECLARE SECTION;
  74
  75   sid = e->id;
  76   last = e->last;
  77   if (strlen(last) > USERS_LAST_SIZE - 1)
  78     last[USERS_LAST_SIZE - 1] = '\0';
  79   first = e->first;
  80   if (strlen(first) > USERS_FIRST_SIZE - 1)
  81     first[USERS_FIRST_SIZE - 1] = '\0';
  82   middle = e->middle;
  83   if (strlen(middle) > USERS_MIDDLE_SIZE - 1)
  84     middle[USERS_MIDDLE_SIZE - 1] = '\0';
  85   id = 0;
  86
  87   /* Get user info */
  88   EXEC SQL SELECT users_id, first, last, middle, type, office_addr,
  89     office_phone, home_addr, home_phone, department, status, fmodby
  90     INTO :id, :dfirst, :dlast, :dmiddle, :type, :oaddr,
  91     :ophone, :haddr, :hphone, :dept, :status, :fmodby
  92     FROM users
  93     WHERE clearid = :sid AND status != 3;
  94   if (sqlfail())
  95     {
  96       if (sqlca.sqlcode == SQL_DUPLICATE)
  97         {
  98           com_err(whoami, 0, "duplicate ID number %s on user %s %s",
  99                   sid, first, last);
 100           return;
 101         }
 102       else
 103         sqlexit();
 104     }
 105   if (id == 0)
 106     {
 107       newuser(e, secure);
 108       return;
 109     }
 110   strtrim(dfirst);
 111   strtrim(dlast);
 112   strtrim(dmiddle);
 113   strtrim(type);
 114
 115   /* Update type/state if necessary.  (Exclude several spacial cases.) */
 116   if (strcmp(e->type, type) &&
 117       strcmp(type, "STAFF") && strcmp(type, "SIPBMEM") &&
 118       strcmp(type, "KNIGHT"))
 119     {
 120       com_err(whoami, 0, "updating type for %s %s from \"%s\" to \"%s\"",
 121               first, last, type, e->type);
 122       if (status == US_NOT_ALLOWED)
 123         status = US_NO_LOGIN_YET;
 124       else if (status == US_ENROLL_NOT_ALLOWED)
 125         status = US_ENROLLED;
 126       strcpy(type, e->type);
 127       EXEC SQL UPDATE users
 128         SET type = NVL(:type, CHR(0)), status = :status,
 129         modtime = SYSDATE, modby = :who, modwith = :prog
 130         WHERE users_id = :id;
 131       if (sqlca.sqlcode)
 132         {
 133           dbmserr("updating user", sqlca.sqlcode);
 134           exit(1);
 135         }
 136     }
 137
 138   /* Update name if necessary */
 139   if (strcmp(first, dfirst) || strcmp(last, dlast) || strcmp(middle, dmiddle))
 140     {
 141       com_err(whoami, 0, "updating real name for %s%s%s %s (was %s%s%s %s)",
 142               first, *middle ? " " : "", middle, last,
 143               dfirst, *dmiddle ? " " : "", dmiddle, dlast);
 144       EXEC SQL UPDATE users
 145         SET first = NVL(:first, CHR(0)), last = NVL(:last, CHR(0)),
 146         middle = NVL(:middle, CHR(0)), modby = :who, modwith = :prog,
 147         modtime = SYSDATE
 148         WHERE users_id = :id;
 149       if (sqlca.sqlcode)
 150         {
 151           dbmserr("updating name", sqlca.sqlcode);
 152           exit(1);
 153         }
 154     }
 155
 156   /* Update finger info fields if they have changed and the user
 157    * didn't set them blank.
 158    */
 159   changed = 0;
 160
 161   if (strncmp(strtrim(oaddr), e->oaddr, USERS_OFFICE_ADDR_SIZE - 1) &&
 162       (*oaddr || fmodby != id))
 163     {
 164       changed++;
 165       com_err(whoami, 0, "office for %s %s changed from \"%s\" to \"%s\"",
 166               first, last, oaddr, e->oaddr);
 167       strlcpy(oaddr, e->oaddr, USERS_OFFICE_ADDR_SIZE);
 168     }
 169
 170   if (strncmp(strtrim(ophone), e->ophone, USERS_OFFICE_PHONE_SIZE - 1) &&
 171       (*ophone || fmodby != id))
 172     {
 173       changed++;
 174       com_err(whoami, 0, "Phone for %s %s changed from \"%s\" to \"%s\"",
 175               first, last, ophone, e->ophone);
 176       strlcpy(ophone, e->ophone, USERS_OFFICE_PHONE_SIZE);
 177     }
 178
 179   if (strncmp(strtrim(haddr), e->haddr, USERS_HOME_ADDR_SIZE - 1) &&
 180       (*haddr || fmodby != id))
 181     {
 182       changed++;
 183       com_err(whoami, 0, "home addr for %s %s changed from \"%s\" to \"%s\"",
 184               first, last, haddr, e->haddr);
 185       strlcpy(haddr, e->haddr, USERS_HOME_ADDR_SIZE);
 186     }
 187
 188   if (strncmp(strtrim(hphone), e->hphone, USERS_HOME_PHONE_SIZE - 1) &&
 189       (*hphone || fmodby != id))
 190     {
 191       changed++;
 192       com_err(whoami, 0, "Phone for %s %s changed from \"%s\" to \"%s\"",
 193               first, last, hphone, e->hphone);
 194       strlcpy(hphone, e->hphone, USERS_HOME_PHONE_SIZE);
 195     }
 196
 197   if (strncmp(strtrim(dept), e->dept, USERS_DEPARTMENT_SIZE - 1) &&
 198       (*dept || fmodby != id))
 199     {
 200       changed++;
 201       com_err(whoami, 0, "Department for %s %s changed from \"%s\" to \"%s\"",
 202               first, last, dept, e->dept);
 203       strlcpy(dept, e->dept, USERS_DEPARTMENT_SIZE);
 204     }
 205
 206   if (changed)
 207     {
 208       com_err(whoami, 0, "updating finger for %s %s", first, last);
 209       EXEC SQL UPDATE users
 210         SET office_addr = NVL(:oaddr, CHR(0)),
 211         office_phone = NVL(:ophone, CHR(0)), home_addr = NVL(:haddr, CHR(0)),
 212         home_phone = NVL(:hphone, CHR(0)), department = NVL(:dept, CHR(0)),
 213         fmodtime = SYSDATE, fmodby = :who, fmodwith = :prog,
 214         xname = NVL(SUBSTR(:name, 0, :xnlen), CHR(0)),
 215         xdept = NVL(:dept, CHR(0)), xtitle = NVL(:xtitle, CHR(0)),
 216         xaddress = NVL(:xaddr, CHR(0)), xphone1 = NVL(:xphone1, CHR(0)),
 217         xphone2 = NVL(:xphone2, CHR(0)), xmodtime = SYSDATE
 218         WHERE users_id = :id;
 219       if (sqlca.sqlcode)
 220         {
 221           dbmserr(NULL, sqlca.sqlcode);
 222           exit(1);
 223         }
 224     }
 225   else
 226     {
 227       EXEC SQL UPDATE users
 228         SET xname = NVL(SUBSTR(:name, 0, :xnlen), CHR(0)),
 229         xdept = NVL(:dept, CHR(0)), xtitle = NVL(:xtitle, CHR(0)),
 230         xaddress = NVL(:xaddr, CHR(0)), xphone1 = NVL(:xphone1, CHR(0)),
 231         xphone2 = NVL(:xphone2, CHR(0)), xmodtime = SYSDATE
 232         WHERE users_id = :id;
 233       if (sqlca.sqlcode)
 234         {
 235           dbmserr(NULL, sqlca.sqlcode);
 236           exit(1);
 237         }
 238     }
 239 }
 240
 241 void newuser(struct entry *e, int secure)
 242 {
 243   EXEC SQL BEGIN DECLARE SECTION;
 244   int issecure = secure, users_id, uid, st, xnlen = USERS_XNAME_SIZE - 1;
 245   int oadlen = USERS_OFFICE_ADDR_SIZE - 1;
 246   int ophlen = USERS_OFFICE_PHONE_SIZE - 1;
 247   char login[USERS_LOGIN_SIZE];
 248   char *id, *last, *first, *middle, *type;
 249   char *name, *dept, *haddr, *hphone, *oaddr, *ophone;
 250   char *xtitle, *xaddress, *xphone1, *xphone2;
 251   EXEC SQL END DECLARE SECTION;
 252
 253   users_id = set_next_users_id();
 254   uid = set_next_uid();
 255   if (!strcmp(e->type, "LINCOLN"))
 256     {
 257       char *p;
 258
 259       strncpy(login, e->first, 2);
 260       login[2] = '\0';
 261       /* strip leading zeroes */
 262       p = e->id+4;
 263       while (*p == '0')
 264         p++;
 265       strncat(login, p, strlen(p));
 266       lowercase(login);
 267       st = US_NO_LOGIN_YET_KERBEROS_ONLY;
 268     }
 269   else
 270     {
 271       sprintf(login, "#%d", uid);
 272       st = US_NO_LOGIN_YET;
 273     }
 274   last = e->last;
 275   first = e->first;
 276   middle = e->middle;
 277   id = e->id;
 278   type = e->type;
 279   name = e->name;
 280   dept = e->dept;
 281   haddr = e->haddr;
 282   hphone = e->hphone;
 283   oaddr = e->oaddr;
 284   ophone = e->ophone;
 285   xtitle = e->xtitle;
 286   xaddress = e->xaddress;
 287   xphone1 = e->xphone1;
 288   xphone2 = e->xphone2;
 289
 290   com_err(whoami, 0, "adding user %s %s", e->first, e->last);
 291
 292   EXEC SQL INSERT INTO users
 293     (login, users_id, unix_uid, shell, winconsoleshell, last, first,
 294      middle, status, clearid, type, modtime, modby, modwith, fullname,
 295      department, home_addr, home_phone, office_addr, office_phone, fmodtime,
 296      fmodby, fmodwith, potype, pmodtime, pmodby, pmodwith,
 297      xname, xdept, xtitle, xaddress, xphone1, xphone2, xmodtime, secure,
 298      created, creator)
 299     VALUES (:login, :users_id, :uid, '/bin/athena/tcsh', 'cmd',
 300             NVL(:last, CHR(0)), NVL(:first, CHR(0)), NVL(:middle, CHR(0)),
 301             :st, NVL(:id, CHR(0)), NVL(:type, CHR(0)), SYSDATE, :who, :prog,
 302             NVL(:name, CHR(0)), NVL(:dept, CHR(0)), NVL(:haddr, CHR(0)),
 303             NVL(:hphone, CHR(0)), NVL(SUBSTR(:oaddr, 0, :oadlen), CHR(0)),
 304             NVL(SUBSTR(:ophone, 0, :ophlen), CHR(0)), SYSDATE, :who, :prog,
 305             'NONE', SYSDATE, :who, :prog,
 306             NVL(SUBSTR(:name, 0, :xnlen), CHR(0)), NVL(:dept, CHR(0)),
 307             NVL(:xtitle, CHR(0)), NVL(:xaddress, CHR(0)),
 308             NVL(:xphone1, CHR(0)), NVL(:xphone2, CHR(0)), SYSDATE, :issecure,
 309             SYSDATE, :who);
 310   if (sqlca.sqlcode)
 311     {
 312       dbmserr("adding user", sqlca.sqlcode);
 313       exit(1);
 314     }
 315 }
 316
 317 int set_next_users_id(void)
 318 {
 319   EXEC SQL BEGIN DECLARE SECTION;
 320   int flag, value, retval;
 321   EXEC SQL END DECLARE SECTION;
 322
 323   EXEC SQL SELECT value INTO :value FROM numvalues
 324     WHERE name = 'users_id';
 325   if (sqlfail())
 326     sqlexit();
 327   if (sqlca.sqlerrd[2] != 1)
 328     {
 329       EXEC SQL ROLLBACK;
 330       com_err(whoami, MR_INTERNAL, "values table inconsistancy");
 331       exit(1);
 332     }
 333
 334   flag = 0;
 335   EXEC SQL SELECT users_id INTO :flag FROM users
 336     WHERE users_id = :value;
 337   if (sqlfail())
 338     sqlexit();
 339   if (sqlca.sqlerrd[2] == 0)
 340     flag = 0;
 341   while (flag)
 342     {
 343       value++;
 344       flag = 0;
 345       EXEC SQL SELECT users_id INTO :flag FROM users
 346         WHERE users_id = :value;
 347       if (sqlfail())
 348         sqlexit();
 349       if (sqlca.sqlerrd[2] == 0)
 350         flag = 0;
 351     }
 352
 353   retval = value++;
 354   EXEC SQL UPDATE numvalues SET value = :value
 355     WHERE name = 'users_id';
 356   if (sqlca.sqlcode)
 357     {
 358       dbmserr("assigning ID", sqlca.sqlcode);
 359       exit(1);
 360     }
 361   return retval;
 362 }
 363
 364 int set_next_uid(void)
 365 {
 366   EXEC SQL BEGIN DECLARE SECTION;
 367   int flag, initial, value, retval;
 368   EXEC SQL END DECLARE SECTION;
 369
 370   EXEC SQL SELECT value INTO :initial FROM numvalues
 371     WHERE name = 'unix_uid';
 372   if (sqlfail())
 373     sqlexit();
 374   if (sqlca.sqlerrd[2] != 1)
 375     {
 376       EXEC SQL ROLLBACK;
 377       com_err(whoami, MR_INTERNAL, "values table inconsistancy");
 378       exit(1);
 379     }
 380
 381   value = initial;
 382   flag = 0;
 383   EXEC SQL SELECT COUNT(unix_uid) INTO :flag
 384     FROM users WHERE unix_uid = :value;
 385   if (sqlfail())
 386     sqlexit();
 387   if (sqlca.sqlerrd[2] == 0)
 388     flag = 0;
 389   while (flag)
 390     {
 391       value++;
 392 #ifdef ULTRIX_ID_HOLE
 393       if (value > 31999 && value < 32768)
 394         value = 32768;
 395 #endif
 396       if (value > MAX_ID_VALUE)
 397         value = MIN_ID_VALUE;
 398       if (value == initial)
 399         {
 400           com_err(whoami, 0, "Out of uids!");
 401           EXEC SQL ROLLBACK WORK;
 402           exit(1);
 403         }
 404       flag = 0;
 405       EXEC SQL SELECT COUNT(unix_uid) INTO :flag
 406         FROM users WHERE unix_uid = :value;
 407       if (sqlfail())
 408         sqlexit();
 409     }
 410
 411   retval = value++;
 412   if (value > MAX_ID_VALUE)
 413     value = MIN_ID_VALUE;
 414   EXEC SQL UPDATE numvalues SET value = :value WHERE name = 'unix_uid';
 415   if (sqlca.sqlcode)
 416     {
 417       dbmserr("assigning ID", sqlca.sqlcode);
 418       exit(1);
 419     }
 420   return retval;
 421 }
 422
 423 void sqlexit(void)
 424 {
 425   dbmserr(NULL, sqlca.sqlcode);
 426   EXEC SQL ROLLBACK WORK;
 427   exit(1);
 428 }
 429
 430 void dbmserr(char *where, int what)
 431 {
 432   char err_msg[256];
 433   int bufsize = 256, msglength = 0;
 434
 435   sqlglm(err_msg, &bufsize, &msglength);
 436   err_msg[msglength] = '\0';
 437
 438   if (where)
 439     com_err(whoami, 0, "DBMS error %swhile %s", err_msg, where);
 440   else
 441     com_err(whoami, 0, "DBMS error %s", err_msg);
 442 }