Put parsed kerberos principal name into the per-client structure.

diff --git a/server/mr_sauth.c b/server/mr_sauth.c
index 2a0a8db04c7c9040d831e22efed6645e435e4b0b..e41fa58e72bf8cb916208025fd7f5b9803d1f36f 100644 (file)
--- a/server/mr_sauth.c
+++ b/server/mr_sauth.c
@@ -6,9 +6,12 @@
  *     Copyright (C) 1987 by the Massachusetts Institute of Technology
  *
  *     $Log$
- *     Revision 1.3  1987-06-21 16:40:10  wesommer
- *     Performance work, rearrangement of include files.
+ *     Revision 1.4  1987-06-30 20:03:46  wesommer
+ *     Put parsed kerberos principal name into the per-client structure.
  *
+ * Revision 1.3  87/06/21  16:40:10  wesommer
+ * Performance work, rearrangement of include files.
+ * 
  * Revision 1.2  87/06/04  01:34:35  wesommer
  * Added logging of arguments for some perverse reason.
  * 
@@ -22,7 +25,6 @@ static char *rcsid_sms_sauth_c = "$Header$";
 #endif lint
 
 extern int krb_err_base;
-#include <krb.h>
 #include <strings.h>
 #include "sms_server.h"
 
@@ -63,6 +65,10 @@ do_auth(cl)
                com_err(whoami, status, "(authentication failed)");
                return;
        }
+       bcopy(ad.pname, cl->kname.name, ANAME_SZ);
+       bcopy(ad.pinst, cl->kname.inst, INST_SZ);
+       bcopy(ad.prealm, cl->kname.realm, REALM_SZ);
+       
        (void) strcpy(buf, ad.pname);
        if(ad.pinst[0]) {
                (void) strcat(buf, ".");