From f9b3bff6f7e38960bb87a5623fbcbc45ee952c49 Mon Sep 17 00:00:00 2001
From: Richard Levitte <levitte@openssl.org>
Date: Thu, 30 Nov 2000 22:53:34 +0000
Subject: First tentative impementation of Kerberos 5 cryptos and keys for
 SSL/TLS.  Implemented by Vern Staats <staatsvr@asc.hpc.mil>, further hacked
 and distributed by Jeffrey Altman <jaltnab@columbia.edu>

---
 apps/s_client.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'apps/s_client.c')

diff --git a/apps/s_client.c b/apps/s_client.c
index 45d627a60a..1a94cdec65 100644
--- a/apps/s_client.c
+++ b/apps/s_client.c
@@ -420,6 +420,12 @@ bad:
 
 
 	con=SSL_new(ctx);
+#ifndef NO_KRB5
+	if (con  &&  (con->kssl_ctx = kssl_ctx_new()) != NULL)
+                {
+                kssl_ctx_setstring(con->kssl_ctx, KSSL_SERVER, host);
+		}
+#endif	/* NO_KRB5  */
 /*	SSL_set_cipher_list(con,"RC4-MD5"); */
 
 re_start:
-- 
cgit v1.2.3