From 7edf7346cc75d7a5b407dae57feb5f932c4cc566 Mon Sep 17 00:00:00 2001
From: Assar Westerlund <assar@sics.se>
Date: Tue, 12 Aug 1997 15:52:00 +0000
Subject: [PATCH] Use `krb5_sock_to_principal' Send server parameter to
 krb5_rd_req Set addresses in auth_context

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@2949 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 appl/telnet/libtelnet/kerberos5.c | 31 +++++++++++++++++++++++++++++--
 1 file changed, 29 insertions(+), 2 deletions(-)

diff --git a/appl/telnet/libtelnet/kerberos5.c b/appl/telnet/libtelnet/kerberos5.c
index 48698398a..6c53cffb7 100644
--- a/appl/telnet/libtelnet/kerberos5.c
+++ b/appl/telnet/libtelnet/kerberos5.c
@@ -252,6 +252,7 @@ kerberos5_is(Authenticator *ap, unsigned char *data, int cnt)
     krb5_data outbuf;
     krb5_keyblock *key_block;
     char *name;
+    krb5_principal server;
 
     if (cnt-- < 1)
 	return;
@@ -262,8 +263,34 @@ kerberos5_is(Authenticator *ap, unsigned char *data, int cnt)
 
 	auth_context = NULL;
 
-	r = krb5_rd_req(context, &auth_context, &auth, 
-			NULL, NULL, NULL, &ticket);
+	r = krb5_auth_con_init (context, &auth_context);
+	if (r)
+	    abort ();
+
+
+	r = krb5_auth_con_setaddrs_from_fd (context,
+					    auth_context,
+					    0);
+	if (r)
+	    abort ();
+
+	r = krb5_sock_to_principal (context,
+				    0,
+				    "host",
+				    KRB5_NT_SRV_HST,
+				    &server);
+	if (r)
+	    abort ();
+
+
+	r = krb5_rd_req(context,
+			&auth_context,
+			&auth, 
+			server,
+			NULL,
+			NULL,
+			&ticket);
+	krb5_free_principal (context, server);
 
 	if (r) {
 	    char *errbuf;