[moira.git] / server / mr_sauth.c

/*
 *	$Source$
 *	$Author$
 *	$Header$
 *
 *	Copyright (C) 1987 by the Massachusetts Institute of Technology
 *
 *	$Log$
 *	Revision 1.6  1987-08-04 02:40:47  wesommer
 *	Clean up messages.
 *
 * Revision 1.5  87/07/14  00:40:18  wesommer
 * Rearranged logging.
 * 
 * Revision 1.4  87/06/30  20:03:46  wesommer
 * Put parsed kerberos principal name into the per-client structure.
 * 
 * Revision 1.3  87/06/21  16:40:10  wesommer
 * Performance work, rearrangement of include files.
 * 
 * Revision 1.2  87/06/04  01:34:35  wesommer
 * Added logging of arguments for some perverse reason.
 * 
 * Revision 1.1  87/06/02  20:06:57  wesommer
 * Initial revision
 * 
 */

#ifndef lint
static char *rcsid_sms_sauth_c = "$Header$";
#endif lint

extern int krb_err_base;
#include <strings.h>
#include "sms_server.h"

extern char buf1[];
extern char *whoami;
extern char *malloc();

/*
 * Handle a SMS_AUTH RPC request.
 *
 * argv[0] is a kerberos authenticator.  Decompose it, and if
 * successful, store the name the user authenticated to in 
 * cl->cl_name.
 */

void
do_auth(cl)
	client *cl;
{
	KTEXT_ST auth;
	AUTH_DAT ad;
	int status;
	char buf[REALM_SZ+INST_SZ+ANAME_SZ];
	extern int krb_err_base;
	
	auth.length = cl->args->sms_argl[0];

	bcopy(cl->args->sms_argv[0], (char *)auth.dat, auth.length);
	auth.mbz = 0;
	
	if ((status = rd_ap_req (&auth, "sms", "sms", cl->haddr.sin_addr,
				 &ad, "")) != KSUCCESS) {
		status += krb_err_base;
		cl->reply.sms_status = status;
		if (log_flags & LOG_RES)
			com_err(whoami, status, "(authentication failed)");
		return;
	}
	bcopy(ad.pname, cl->kname.name, ANAME_SZ);
	bcopy(ad.pinst, cl->kname.inst, INST_SZ);
	bcopy(ad.prealm, cl->kname.realm, REALM_SZ);
	
	(void) strcpy(buf, ad.pname);
	if(ad.pinst[0]) {
		(void) strcat(buf, ".");
		(void) strcat(buf, ad.pinst);
	}
	(void) strcat(buf, "@");
	(void) strcat(buf, ad.prealm);
	if (cl->clname) free((char *)cl->clname);
	
	cl->clname = (char *)malloc((unsigned)(strlen(buf)+1));
	(void) strcpy(cl->clname, buf);
	if (log_flags & LOG_RES) {
		com_err(whoami, 0, "Authenticated to %s", cl->clname);
	}
}
Commit	Line	Data
a3cf6921	1	/*
	2	* $Source$
	3	* $Author$
	4	* $Header$
	5	*
	6	* Copyright (C) 1987 by the Massachusetts Institute of Technology
	7	*
	8	* $Log$
f17535a4	9	* Revision 1.6 1987-08-04 02:40:47 wesommer
f17535a4	10	* Clean up messages.
a3cf6921	11	*
f17535a4	12	* Revision 1.5 87/07/14 00:40:18 wesommer
	13	* Rearranged logging.
	14	*
060e9c63	15	* Revision 1.4 87/06/30 20:03:46 wesommer
	16	* Put parsed kerberos principal name into the per-client structure.
	17	*
8a36ddfe	18	* Revision 1.3 87/06/21 16:40:10 wesommer
	19	* Performance work, rearrangement of include files.
	20	*
c27b3454	21	* Revision 1.2 87/06/04 01:34:35 wesommer
	22	* Added logging of arguments for some perverse reason.
	23	*
6c4883d3	24	* Revision 1.1 87/06/02 20:06:57 wesommer
	25	* Initial revision
	26	*
a3cf6921	27	*/
	28
	29	#ifndef lint
	30	static char *rcsid_sms_sauth_c = "$Header$";
	31	#endif lint
	32
	33	extern int krb_err_base;
a3cf6921	34	#include <strings.h>
a3cf6921	35	#include "sms_server.h"
	36
	37	extern char buf1[];
	38	extern char *whoami;
	39	extern char *malloc();
	40
	41	/*
	42	* Handle a SMS_AUTH RPC request.
	43	*
	44	* argv[0] is a kerberos authenticator. Decompose it, and if
	45	* successful, store the name the user authenticated to in
	46	* cl->cl_name.
	47	*/
	48
	49	void
	50	do_auth(cl)
	51	client *cl;
	52	{
	53	KTEXT_ST auth;
	54	AUTH_DAT ad;
	55	int status;
	56	char buf[REALM_SZ+INST_SZ+ANAME_SZ];
	57	extern int krb_err_base;
	58
	59	auth.length = cl->args->sms_argl[0];
6c4883d3	60
a3cf6921	61	bcopy(cl->args->sms_argv[0], (char *)auth.dat, auth.length);
	62	auth.mbz = 0;
	63
	64	if ((status = rd_ap_req (&auth, "sms", "sms", cl->haddr.sin_addr,
	65	&ad, "")) != KSUCCESS) {
	66	status += krb_err_base;
	67	cl->reply.sms_status = status;
060e9c63	68	if (log_flags & LOG_RES)
060e9c63	69	com_err(whoami, status, "(authentication failed)");
a3cf6921	70	return;
a3cf6921	71	}
8a36ddfe	72	bcopy(ad.pname, cl->kname.name, ANAME_SZ);
	73	bcopy(ad.pinst, cl->kname.inst, INST_SZ);
	74	bcopy(ad.prealm, cl->kname.realm, REALM_SZ);
	75
a3cf6921	76	(void) strcpy(buf, ad.pname);
	77	if(ad.pinst[0]) {
	78	(void) strcat(buf, ".");
	79	(void) strcat(buf, ad.pinst);
	80	}
	81	(void) strcat(buf, "@");
	82	(void) strcat(buf, ad.prealm);
	83	if (cl->clname) free((char *)cl->clname);
	84
	85	cl->clname = (char *)malloc((unsigned)(strlen(buf)+1));
	86	(void) strcpy(cl->clname, buf);
060e9c63	87	if (log_flags & LOG_RES) {
f17535a4	88	com_err(whoami, 0, "Authenticated to %s", cl->clname);
060e9c63	89	}
a3cf6921	90	}