From f1955ad834622296bd0869b65eb5b0b6ce57b604 Mon Sep 17 00:00:00 2001
From: John Kohl <jtkohl@mit.edu>
Date: Thu, 3 May 1990 14:08:45 +0000
Subject: [PATCH] *** empty log message ***

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@702 dc483132-0cff-0310-8789-dd5450dbe970
---
 src/lib/krb5/krb/tgtname.c | 55 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 src/lib/krb5/krb/tgtname.c

diff --git a/src/lib/krb5/krb/tgtname.c b/src/lib/krb5/krb/tgtname.c
new file mode 100644
index 000000000..c001ad0b8
--- /dev/null
+++ b/src/lib/krb5/krb/tgtname.c
@@ -0,0 +1,55 @@
+/*
+ * $Source$
+ * $Author$
+ *
+ * Copyright 1990 by the Massachusetts Institute of Technology.
+ *
+ * For copying and distribution information, please see the file
+ * <krb5/copyright.h>.
+ *
+ * krb5_tgtname()
+ */
+
+#if !defined(lint) && !defined(SABER)
+static char rcsid_tgtname_c [] =
+"$Id$";
+#endif	/* !lint & !SABER */
+
+#include <krb5/copyright.h>
+#include <krb5/krb5.h>
+#include <krb5/ext-proto.h>
+#include <krb5/kdb.h>
+#include <errno.h>
+
+static krb5_data tgtdata = {sizeof(TGTNAME), TGTNAME};
+
+/* This is an internal-only function, used by krb5_get_cred_from_kdc() */
+
+krb5_error_code
+krb5_tgtname(server, client, tgtprinc)
+const krb5_principal server, client;
+krb5_principal *tgtprinc;
+{
+    krb5_principal retprinc;
+    krb5_error_code retval;
+
+    if (!(retprinc = (krb5_data **)calloc(4, sizeof(krb5_data *))))
+	return ENOMEM;
+    if (retval = krb5_copy_data(krb5_princ_realm(server), &retprinc[0])) {
+	xfree(retprinc);
+	return retval;
+    }
+    if (retval = krb5_copy_data(&tgtdata, &retprinc[1])) {
+	krb5_free_data(retprinc[0]);
+	xfree(retprinc);
+	return retval;
+    }
+    if (retval = krb5_copy_data(krb5_princ_realm(client), &retprinc[2])) {
+	krb5_free_data(retprinc[0]);
+	krb5_free_data(retprinc[1]);
+	xfree(retprinc);
+	return retval;
+    }
+    *tgtprinc = retprinc;
+    return 0;
+}
-- 
2.26.2