Add expiration date column to users table and client support.

[moira.git] / regtape / common.pc

diff --git a/regtape/common.pc b/regtape/common.pc
index 5aef0509e8676d95157413af53c4726c5b06f45b..55ee0691658c69e9b4a96d35ef93e39bb6d37c66 100644 (file)
--- a/regtape/common.pc
+++ b/regtape/common.pc
@@ -290,7 +290,7 @@ 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, winhomedir, winprofiledir, sponsor_type, sponsor_id)
+     created, creator, winhomedir, winprofiledir, sponsor_type, sponsor_id, expiration)
     VALUES (:login, :users_id, :uid, '/bin/athena/tcsh', '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,
@@ -301,7 +301,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, '[DFS]', '[DFS]', 'NONE', 0);
+           SYSDATE, :who, '[DFS]', '[DFS]', 'NONE', 0, CHR(0));
   if (sqlca.sqlcode)
     {
       dbmserr("adding user", sqlca.sqlcode);