/*
 * $Source$
 * $Author$
 *
 * Copyright 1990,1991 by the Massachusetts Institute of Technology.
 * All Rights Reserved.
 *
 * For copying and distribution information, please see the file
 * <krb5/copyright.h>.
 *
 * krb_mk_req for krb425
 */

#if !defined(lint) && !defined(SABER)
static char rcsid_mk_req_c[] =
"$Id$";
#endif	/* !lint & !SABER */

#include "krb425.h"

int
krb_mk_req(authent, service, instance, realm, checksum)
KTEXT authent;
char *service;
char *instance;
char *realm;
u_long checksum;
{
	krb5_data *server[4];
	krb5_data srvdata[3];
	krb5_error_code r;
	krb5_data outbuf;
	krb5_checksum ck;

	set_data5(srvdata[0], realm);
	set_data5(srvdata[1], service);
	set_data5(srvdata[2], instance);

	server[0] = &srvdata[0];
	server[1] = &srvdata[1];
	server[2] = &srvdata[2];
	server[3] = 0;

	if (!_krb425_ccache)
		krb5_cc_default(&_krb425_ccache);

#ifdef	EBUG
	EPRINT "Calling krb5_mk_req with:\n");
	EPRINT "	Realm   : "); show5(srvdata[0]); ENEWLINE
	EPRINT "	Service : "); show5(srvdata[1]); ENEWLINE
	EPRINT "	Instance: "); show5(srvdata[2]); ENEWLINE
	EPRINT "	CheckSum: %08x\n", checksum);
#endif
	set_cksum(ck, checksum)
	
	r = krb5_mk_req((krb5_principal)server,
			(krb5_flags)0,
			&ck,
			_krb425_ccache,
			&outbuf);
#ifdef	EBUG
	if (r)
		ERROR(r)
#endif
	if (!r) {
		if (outbuf.length > MAX_KTXT_LEN) {
#ifdef	EBUG
			EPRINT "Return to long (%d > %d)\n",
				outbuf.length, MAX_KTXT_LEN);
#endif
			xfree(outbuf.data);
			return(KFAILURE);
		}
		authent->length = outbuf.length;
		memcpy((char *)authent->dat, (char *)outbuf.data, outbuf.length);
		xfree(outbuf.data);
	}
	return(krb425error(r));
}