From cd92c81ea4139ba826c2f6063510113a5830f2b2 Mon Sep 17 00:00:00 2001
From: Johan Danielsson <joda@pdc.kth.se>
Date: Tue, 11 Nov 1997 00:53:12 +0000
Subject: [PATCH] Implement compare_creds.

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@3894 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 lib/krb5/creds.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/lib/krb5/creds.c b/lib/krb5/creds.c
index 3d44d992e..b75329c90 100644
--- a/lib/krb5/creds.c
+++ b/lib/krb5/creds.c
@@ -122,3 +122,18 @@ krb5_free_creds (krb5_context context, krb5_creds *c)
     free (c);
     return 0;
 }
+
+krb5_boolean
+krb5_compare_creds(krb5_context context, krb5_flags whichfields, 
+		   krb5_creds *mcreds, krb5_creds *creds)
+{
+    krb5_boolean match;
+    if(whichfields & KRB5_TC_DONT_MATCH_REALM)
+	match = krb5_principal_compare_any_realm(context, 
+						 mcreds->server, 
+						 creds->server);
+    else
+	match = krb5_principal_compare(context, mcreds->server, creds->server);
+    return match;
+}
+