From ebe3937713168f57f0733eb575cd29078fff46af Mon Sep 17 00:00:00 2001
From: Assar Westerlund <assar@sics.se>
Date: Sun, 13 Apr 1997 22:11:12 +0000
Subject: [PATCH] new program

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@1567 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 admin/extkeytab.c | 57 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 admin/extkeytab.c

diff --git a/admin/extkeytab.c b/admin/extkeytab.c
new file mode 100644
index 000000000..a7a96a1d1
--- /dev/null
+++ b/admin/extkeytab.c
@@ -0,0 +1,57 @@
+#include "admin_locl.h"
+
+RCSID("$Id$");
+
+int main(int argc, char **argv)
+{
+    HDB *db;
+    hdb_entry ent;
+    krb5_context context;
+    int err;
+    int i;
+    krb5_keytab kid;
+    krb5_keytab_entry key_entry;
+    char *p;
+    
+    krb5_init_context(&context);
+    err = hdb_open(context, &db, argv[2], O_RDONLY, 0600);
+    if(err){
+	fprintf(stderr, "%s\n", krb5_get_err_text(context, err));
+	exit(1);
+    }
+
+    err = krb5_parse_name (context, argv[1], &ent.principal);
+    if (err) {
+      fprintf (stderr, "%s\n", krb5_get_err_text(context, err));
+      exit(1);
+    }
+
+    err = db->fetch(context, db, &ent);
+    if (err) {
+      fprintf (stderr, "%s\n", krb5_get_err_text(context, err));
+      exit(1);
+    }
+
+    krb5_copy_principal (context, ent.principal, &key_entry.principal);
+    key_entry.vno = ent.kvno;
+    key_entry.keyblock.keytype = ent.keyblock.keytype;
+    key_entry.keyblock.contents.length = 0;
+    krb5_data_copy(&key_entry.keyblock.contents,
+		   ent.keyblock.contents.data,
+		   ent.keyblock.contents.length);
+
+    err = krb5_kt_default (context, &kid);
+    if (err) {
+      fprintf (stderr, "%s\n", krb5_get_err_text(context, err));
+      exit(1);
+    }
+
+    err = krb5_kt_add_entry(context,
+			    kid,
+			    &key_entry);
+    if (err) {
+      fprintf (stderr, "%s\n", krb5_get_err_text(context, err));
+      exit(1);
+    }
+    db->close (context, db);
+}