+Fri Jun 16 17:09:09 EDT 1995 Paul Park (pjpark@mit.edu)
+ * k524init.c - Inline code from krb_save_credentials, it doesn't
+ exist for some K4 (e.g. /usr/athena).
+
+
Thu Jun 15 17:56:43 EDT 1995 Paul Park (pjpark@mit.edu)
* Makefile.in - Change explicit library names to -l<lib> form, and
change target link line to use $(LD) and associated flags.
}
}
+#ifdef notdef
/* stash ticket, session key, etc. for future use */
if ((code = krb_save_credentials(v4creds.service, v4creds.instance,
v4creds.realm, v4creds.session,
com_err("k524init", code, "trying to save the V4 ticket");
exit(1);
}
+#else /* notdef */
+ /*
+ * krb_save_credentials() as supplied by CNS doesn't exist in the MIT
+ * Kerberos version 4. So, we're inlining the logic here.
+ */
+ if (((code = tf_init(TKT_FILE, W_TKT_FIL)) != KSUCCESS) ||
+ ((code = tf_save_cred(v4creds.service, v4creds.instance,
+ v4creds.realm, v4creds.session,
+ v4creds.lifetime, v4creds.kvno,
+ &(v4creds.ticket_st),
+ v4creds.issue_date)))) {
+ com_err("k524init", code, "trying to save the V4 ticket");
+ exit(1);
+ }
+ else
+ (void) tf_close();
+#endif /* notdef */
exit(0);
}