From 71150bb1bc7fffad60576b1d699bcffdae9241ca Mon Sep 17 00:00:00 2001
From: Love Hornquist Astrand <lha@h5l.org>
Date: Sun, 7 Mar 2010 01:00:48 -0800
Subject: [PATCH] add krb5_principal_is_krbtgt

---
 lib/krb5/principal.c        | 14 ++++++++++++++
 lib/krb5/version-script.map |  1 +
 2 files changed, 15 insertions(+)

diff --git a/lib/krb5/principal.c b/lib/krb5/principal.c
index 00c967a72..8e6341fd6 100644
--- a/lib/krb5/principal.c
+++ b/lib/krb5/principal.c
@@ -1551,3 +1551,17 @@ krb5_parse_nametype(krb5_context context, const char *str, int32_t *nametype)
 			   N_("Failed to find name type %s", ""), str);
     return KRB5_PARSE_MALFORMED;
 }
+
+/**
+ * Check if the cname part of the principal is a krbtgt principal
+ *
+ * @ingroup krb5_principal
+ */
+
+krb5_boolean
+krb5_principal_is_krbtgt(krb5_context context, krb5_const_principal p)
+{
+    return p->name.name_string.len == 2 &&
+	strcmp(p->name.name_string.val[0], KRB5_TGS_NAME) == 0;
+
+}
diff --git a/lib/krb5/version-script.map b/lib/krb5/version-script.map
index 22d6df68d..3f26abf80 100644
--- a/lib/krb5/version-script.map
+++ b/lib/krb5/version-script.map
@@ -485,6 +485,7 @@ HEIMDAL_KRB5_2.0 {
 		krb5_principal_match;
 		krb5_principal_set_realm;
 		krb5_principal_set_type;
+		krb5_principal_is_krbtgt;
 		krb5_print_address;
 		krb5_program_setup;
 		krb5_prompter_posix;