1994-09-30 14:50:09 +00:00
|
|
|
/*
|
|
|
|
* Copyright 1985, 1986, 1987, 1988 by the Massachusetts Institute
|
|
|
|
* of Technology.
|
|
|
|
* For copying and distribution information, please see the file
|
|
|
|
* <Copyright.MIT>.
|
|
|
|
*
|
|
|
|
* from: save_credentials.c,v 4.9 89/05/31 17:45:43 jtkohl Exp $
|
1995-08-25 22:52:32 +00:00
|
|
|
* $Id: save_credentials.c,v 1.3 1995/07/18 16:39:40 mark Exp $
|
1994-09-30 14:50:09 +00:00
|
|
|
*/
|
|
|
|
|
1995-08-25 22:52:32 +00:00
|
|
|
#if 0
|
1994-09-30 14:50:09 +00:00
|
|
|
#ifndef lint
|
|
|
|
static char *rcsid =
|
1995-08-25 22:52:32 +00:00
|
|
|
"$Id: save_credentials.c,v 1.3 1995/07/18 16:39:40 mark Exp $";
|
1994-09-30 14:50:09 +00:00
|
|
|
#endif /* lint */
|
1995-08-25 22:52:32 +00:00
|
|
|
#endif
|
1994-09-30 14:50:09 +00:00
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <krb.h>
|
|
|
|
|
|
|
|
/*
|
|
|
|
* This routine takes a ticket and associated info and calls
|
|
|
|
* tf_save_cred() to store them in the ticket cache. The peer
|
|
|
|
* routine for extracting a ticket and associated info from the
|
|
|
|
* ticket cache is krb_get_cred(). When changes are made to
|
|
|
|
* this routine, the corresponding changes should be made
|
|
|
|
* in krb_get_cred() as well.
|
|
|
|
*
|
|
|
|
* Returns KSUCCESS if all goes well, otherwise an error returned
|
|
|
|
* by the tf_init() or tf_save_cred() routines.
|
|
|
|
*/
|
|
|
|
|
1995-09-07 21:39:00 +00:00
|
|
|
int
|
|
|
|
save_credentials(service, instance, realm, session, lifetime, kvno,
|
|
|
|
ticket, issue_date)
|
|
|
|
char *service; /* Service name */
|
|
|
|
char *instance; /* Instance */
|
|
|
|
char *realm; /* Auth domain */
|
|
|
|
C_Block session; /* Session key */
|
|
|
|
int lifetime; /* Lifetime */
|
|
|
|
int kvno; /* Key version number */
|
|
|
|
KTEXT ticket; /* The ticket itself */
|
|
|
|
long issue_date; /* The issue time */
|
1994-09-30 14:50:09 +00:00
|
|
|
{
|
|
|
|
int tf_status; /* return values of the tf_util calls */
|
|
|
|
|
|
|
|
/* Open and lock the ticket file for writing */
|
|
|
|
if ((tf_status = tf_init(TKT_FILE, W_TKT_FIL)) != KSUCCESS)
|
|
|
|
return(tf_status);
|
|
|
|
|
|
|
|
/* Save credentials by appending to the ticket file */
|
|
|
|
tf_status = tf_save_cred(service, instance, realm, session,
|
|
|
|
lifetime, kvno, ticket, issue_date);
|
|
|
|
(void) tf_close();
|
|
|
|
return (tf_status);
|
|
|
|
}
|