53 lines
1.5 KiB
C
53 lines
1.5 KiB
C
|
/*
|
||
|
|
* Copyright 1985, 1986, 1987, 1988 by the Massachusetts Institute
|
||
|
|
* of Technology.
|
||
|
|
* For copying and distribution information, please see the file
|
||
|
|
* <Copyright.MIT>.
|
||
|
|
*
|
||
|
|
* from: get_request.c,v 4.7 88/12/01 14:00:11 jtkohl Exp $
|
||
|
|
* $Id: get_request.c,v 1.2 1994/07/19 19:25:24 g89r4222 Exp $
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef lint
|
||
|
|
static char *rcsid =
|
||
|
|
"$Id: get_request.c,v 1.2 1994/07/19 19:25:24 g89r4222 Exp $";
|
||
|
|
#endif /* lint */
|
||
|
|
|
||
|
|
#include <krb.h>
|
||
|
|
#include <prot.h>
|
||
|
|
|
||
|
|
/*
|
||
|
|
* This procedure is obsolete. It is used in the kerberos_slave
|
||
|
|
* code for Version 3 tickets.
|
||
|
|
*
|
||
|
|
* This procedure sets s_name, and instance to point to
|
||
|
|
* the corresponding fields from tne nth request in the packet.
|
||
|
|
* it returns the lifetime requested. Garbage will be returned
|
||
|
|
* if there are less than n requests in the packet.
|
||
|
|
*/
|
||
|
|
|
||
|
|
get_request(pkt, n, s_name, instance)
|
||
|
|
KTEXT pkt; /* The packet itself */
|
||
|
|
int n; /* Which request do we want */
|
||
|
|
char **s_name; /* Service name to be filled in */
|
||
|
|
char **instance; /* Instance name to be filled in */
|
||
|
|
{
|
||
|
|
/* Go to the beginning of the request list */
|
||
|
|
char *ptr = (char *) pkt_a_realm(pkt) + 6 +
|
||
|
|
strlen((char *)pkt_a_realm(pkt));
|
||
|
|
|
||
|
|
/* Read requests until we hit the right one */
|
||
|
|
while (n-- > 1) {
|
||
|
|
ptr++;
|
||
|
|
ptr += 1 + strlen(ptr);
|
||
|
|
ptr += 1 + strlen(ptr);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Set the arguments to point to the right place */
|
||
|
|
*s_name = 1 + ptr;
|
||
|
|
*instance = 2 + ptr + strlen(*s_name);
|
||
|
|
|
||
|
|
/* Return the requested lifetime */
|
||
|
|
return((int) *ptr);
|
||
|
|
}
|