From 9be1ba4e3ae5ff3eea3c7efde8e583c07b615295 Mon Sep 17 00:00:00 2001
From: Johan Danielsson <joda@pdc.kth.se>
Date: Mon, 11 Aug 1997 02:32:25 +0000
Subject: [PATCH] krb5_cc_retrieve_cred_any_realm

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

diff --git a/lib/krb5/cache.c b/lib/krb5/cache.c
index be9dafefa..f0ecd7e34 100644
--- a/lib/krb5/cache.c
+++ b/lib/krb5/cache.c
@@ -221,6 +221,29 @@ krb5_cc_retrieve_cred(krb5_context context,
     return ret;
 }
 
+krb5_error_code
+krb5_cc_retrieve_cred_any_realm(krb5_context context,
+				krb5_ccache id,
+				krb5_flags whichfields,
+				krb5_creds *mcreds,
+				krb5_creds *creds)
+{
+    krb5_error_code ret;
+    krb5_cc_cursor cursor;
+    krb5_cc_start_seq_get(context, id, &cursor);
+    while((ret = krb5_cc_next_cred(context, id, creds, &cursor)) == 0){
+	if(krb5_principal_compare_any_realm(context, 
+					    mcreds->server, 
+					    creds->server)){
+	    ret = 0;
+	    break;
+	}
+	krb5_free_creds_contents (context, creds);
+    }
+    krb5_cc_end_seq_get(context, id, &cursor);
+    return ret;
+}
+
 krb5_error_code
 krb5_cc_get_principal(krb5_context context,
 		      krb5_ccache id,