From 8a36ddfe7c3ce02ce3dea727de4dc76db51cdb63 Mon Sep 17 00:00:00 2001
From: wesommer <wesommer>
Date: Tue, 30 Jun 1987 20:03:46 +0000
Subject: [PATCH] Put parsed kerberos principal name into the per-client
 structure.

---
 server/mr_sauth.c | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/server/mr_sauth.c b/server/mr_sauth.c
index 2a0a8db0..e41fa58e 100644
--- 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, ".");
-- 
2.45.2