--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/components/krb5/Solaris/kt_findrealm.c Wed Feb 24 10:43:57 2016 -0600
@@ -0,0 +1,65 @@
+/*
+ * Copyright (c) 2009, 2015, Oracle and/or its affiliates. All rights reserved.
+ */
+/*
+ * Solaris Kerberos:
+ * Iterate through a keytab (keytab) looking for an entry which matches
+ * the components of a principal (princ) but match on any realm. When a
+ * suitable entry is found return the entry's realm.
+ */
+
+#include "k5-int.h"
+
+krb5_error_code krb5_kt_find_realm(krb5_context context, krb5_keytab keytab,
+ krb5_principal princ, krb5_data *realm) {
+
+ krb5_kt_cursor cur;
+ krb5_keytab_entry ent;
+ krb5_boolean match;
+ krb5_data tmp_realm;
+ krb5_error_code ret, ret2;
+
+ ret = krb5_kt_start_seq_get(context, keytab, &cur);
+ if (ret != 0) {
+ return (ret);
+ }
+
+ while ((ret = krb5_kt_next_entry(context, keytab, &ent, &cur)) == 0) {
+ /* For the comparison the realms should be the same. */
+ memcpy(&tmp_realm, &ent.principal->realm, sizeof (krb5_data));
+ memcpy(&ent.principal->realm, &princ->realm,
+ sizeof (krb5_data));
+
+ match = krb5_principal_compare(context, ent.principal, princ);
+
+ /* Copy the realm back */
+ memcpy(&ent.principal->realm, &tmp_realm, sizeof (krb5_data));
+
+ if (match) {
+ /*
+ * A suitable entry was found in the keytab.
+ * Copy its realm
+ */
+ ret = krb5int_copy_data_contents(context,
+ &ent.principal->realm, realm);
+ if (ret) {
+ krb5_kt_free_entry(context, &ent);
+ krb5_kt_end_seq_get(context, keytab, &cur);
+ return (ret);
+ }
+
+ krb5_kt_free_entry(context, &ent);
+ break;
+ }
+
+ krb5_kt_free_entry(context, &ent);
+ }
+
+ ret2 = krb5_kt_end_seq_get(context, keytab, &cur);
+
+ if (ret == KRB5_KT_END) {
+ return (KRB5_KT_NOTFOUND);
+ }
+
+ return (ret ? ret : ret2);
+}