r11995: A big kerberos-related update.

[jelmer/samba4-debian.git] / source / heimdal / lib / krb5 / keytab.c

diff --git a/source/heimdal/lib/krb5/keytab.c b/source/heimdal/lib/krb5/keytab.c
index 23f6685049dccaa6db4d0b031b0dbc0e1ee2b3ad..43fc21c1d1ba7572b615c48de100e7f5afc4b68e 100644 (file)
--- a/source/heimdal/lib/krb5/keytab.c
+++ b/source/heimdal/lib/krb5/keytab.c
@@ -33,7 +33,7 @@
 
 #include "krb5_locl.h"
 
-RCSID("$Id: keytab.c,v 1.62 2005/07/06 01:14:42 lha Exp $");
+RCSID("$Id: keytab.c,v 1.63 2005/11/25 21:46:40 lha Exp $");
 
 /*
  * Register a new keytab in `ops'
@@ -239,6 +239,40 @@ krb5_kt_get_name(krb5_context context,
     return (*keytab->get_name)(context, keytab, name, namesize);
 }
 
+/*
+ * Retrieve the full name of the keytab `keytab' and store the name in
+ * `str'. `str' needs to be freed by the caller using free(3).
+ * Returns 0 or an error. On error, *str is set to NULL.
+ */
+
+krb5_error_code KRB5_LIB_FUNCTION
+krb5_kt_get_full_name(krb5_context context, 
+                     krb5_keytab keytab,
+                     char **str)
+{
+    char type[KRB5_KT_PREFIX_MAX_LEN];
+    char name[MAXPATHLEN];
+    krb5_error_code ret;
+             
+    *str = NULL;
+
+    ret = krb5_kt_get_type(context, keytab, type, sizeof(type));
+    if (ret)
+       return ret;
+
+    ret = krb5_kt_get_name(context, keytab, name, sizeof(name));
+    if (ret)
+       return ret;
+
+    if (asprintf(str, "%s:%s", type, name) == -1) {
+       krb5_set_error_string(context, "malloc - out of memory");
+       *str = NULL;
+       return ENOMEM;
+    }
+
+    return 0;
+}
+
 /*
  * Finish using the keytab in `id'.  All resources will be released,
  * even on errors.  Return 0 or an error.