tcsh is dead. Long live bash.

[moira.git] / regtape / common.pc

diff --git a/regtape/common.pc b/regtape/common.pc
index 88dc6a1e2413d08d213022bc00d01e3e9c861d0e..6dabac2e25d0d86b2ae289e66983652bed7ce942 100644 (file)
--- a/regtape/common.pc
+++ b/regtape/common.pc
@@ -29,7 +29,7 @@ EXEC SQL END DECLARE SECTION;
 extern char *whoami;
 
 #define MIN_ID_VALUE 100
-#define MAX_ID_VALUE 65535
+#define MAX_ID_VALUE 131072
 
 /* Remove non-digits from a phone number. */
 void fixphone(char *phone)
@@ -252,19 +252,11 @@ void newuser(struct entry *e, int secure)
 
   users_id = set_next_users_id();
   uid = set_next_uid();
+  sprintf(login, "#%d", uid);
   if (!strcmp(e->type, "LINCOLN"))
-    {
-      strncpy(login, e->first, 2);
-      login[2] = '\0';
-      strncat(login, e->id+4, 5);
-      lowercase(login);
-      st = US_NO_LOGIN_YET_KERBEROS_ONLY;
-    }
+    st = US_NO_LOGIN_YET_KERBEROS_ONLY;
   else
-    {
-      sprintf(login, "#%d", uid);
-      st = US_NO_LOGIN_YET;
-    }
+    st = US_NO_LOGIN_YET;
   last = e->last;
   first = e->first;
   middle = e->middle;
@@ -289,8 +281,8 @@ void newuser(struct entry *e, int secure)
      department, home_addr, home_phone, office_addr, office_phone, fmodtime,
      fmodby, fmodwith, potype, pmodtime, pmodby, pmodwith,
      xname, xdept, xtitle, xaddress, xphone1, xphone2, xmodtime, secure,
-     created, creator)
-    VALUES (:login, :users_id, :uid, '/bin/athena/tcsh', 'cmd',
+     created, creator, winhomedir, winprofiledir, sponsor_type, sponsor_id, expiration)
+    VALUES (:login, :users_id, :uid, '/bin/athena/bash', '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)),
@@ -300,7 +292,7 @@ void newuser(struct entry *e, int secure)
            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,
-           SYSDATE, :who);
+           SYSDATE, :who, '[DFS]', '[DFS]', 'NONE', 0, CHR(0));
   if (sqlca.sqlcode)
     {
       dbmserr("adding user", sqlca.sqlcode);