From 7860774a8b00a854cc17613c26360c2dd51e7365 Mon Sep 17 00:00:00 2001
From: Johan Danielsson <joda@pdc.kth.se>
Date: Wed, 9 Jul 1997 04:12:02 +0000
Subject: [PATCH] Add hdb_etype2key.

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

diff --git a/lib/hdb/hdb.c b/lib/hdb/hdb.c
index bc1c494b2..28ef98496 100644
--- a/lib/hdb/hdb.c
+++ b/lib/hdb/hdb.c
@@ -71,6 +71,26 @@ hdb_value2entry(krb5_context context, krb5_data *value, hdb_entry *ent)
     krb5_storage_free(sp);
 }
 
+
+
+krb5_error_code
+hdb_etype2key(krb5_context context, 
+	      hdb_entry *e, 
+	      krb5_enctype etype, 
+	      krb5_keyblock **key)
+{
+    krb5_keytype keytype;
+    krb5_error_code ret;
+    ret = krb5_etype2keytype(context, etype, &keytype);
+    if(ret)
+	return ret;
+    if(keytype == e->keyblock.keytype){
+	*key = &e->keyblock;
+	return 0;
+    }
+    return KRB5_PROG_ETYPE_NOSUPP;
+}
+
 void
 hdb_free_entry(krb5_context context, hdb_entry *ent)
 {