Initial cut of krb5 support.

[moira.git] / regtape / common.pc

diff --git a/regtape/common.pc b/regtape/common.pc
index 1c4588d902aecbad519a540251efff9434a619b9..88dc6a1e2413d08d213022bc00d01e3e9c861d0e 100644 (file)
--- a/regtape/common.pc
+++ b/regtape/common.pc
@@ -252,8 +252,19 @@ void newuser(struct entry *e, int secure)
 
   users_id = set_next_users_id();
   uid = set_next_uid();
-  sprintf(login, "#%d", uid);
-  st = US_NO_LOGIN_YET;
+  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;
+    }
+  else
+    {
+      sprintf(login, "#%d", uid);
+      st = US_NO_LOGIN_YET;
+    }
   last = e->last;
   first = e->first;
   middle = e->middle;