mit_samba: Add ks_is_tgs_principal()

Signed-off-by: Andreas Schneider <asn@samba.org>
Reviewed-by: Sumit Bose <sbose@redhat.com>
Reviewed-by: Guenther Deschner <gd@samba.org>
Reviewed-by: Andrew Bartlett <abartlet@samba.org>

diff --git a/source4/kdc/mit_samba.c b/source4/kdc/mit_samba.c
index 5ff8c491ded4e81df039c9c9e46947ad1b11c9f1..6abb7330a9ae895f615d69a0749d892e5b1d6d66 100644 (file)
--- a/source4/kdc/mit_samba.c
+++ b/source4/kdc/mit_samba.c
@@ -102,6 +102,21 @@ done:
        return ret;
 }
 
+static krb5_error_code ks_is_tgs_principal(struct mit_samba_context *ctx,
+                                          krb5_const_principal principal)
+{
+       char *p;
+       int eq = -1;
+
+       p = smb_krb5_principal_get_comp_string(ctx, ctx->context, principal, 0);
+
+       eq = krb5_princ_size(ctx->context, principal) == 2 &&
+            (strcmp(p, KRB5_TGS_NAME) == 0);
+
+       talloc_free(p);
+
+       return eq;
+}
 
 int mit_samba_get_principal(struct mit_samba_context *ctx,
                            krb5_const_principal principal,