/*
 *	$Source$
 *	$Author$
 *	$Header$
 *
 *	Copyright (C) 1987 by the Massachusetts Institute of Technology
 *
 *	$Log$
 *	Revision 1.3  1987-06-16 17:47:20  wesommer
 *	Clean up memory allocation, indenting.
 *
 * Revision 1.2  87/05/31  22:03:23  wesommer
 * It's working better.
 * 
 * Revision 1.1  87/05/20  03:11:18  wesommer
 * Initial revision
 * 
 *
 *	Handles the client side of the sending of authenticators to
 * the sms server. 	
 */

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

#include "sms_private.h"
#include <krb.h>

extern int krb_err_base;

int sms_auth()
{
    register int status;
    sms_params params_st;
    char *args[1];
    int argl[1];
    
    register sms_params *params = &params_st;
    sms_params *reply = NULL;
    KTEXT_ST auth;

    CHECK_CONNECTED;
	
    /*
     * Build a Kerberos authenticator.
     * The "service" and "instance" should not be hardcoded here.
     */
	
    status = mk_ap_req(&auth, "sms", "sms", "ATHENA.MIT.EDU", 0);
    if (status != KSUCCESS) {
	status += krb_err_base;
	return status;
    }
    params->sms_procno = SMS_AUTH;
    params->sms_argc = 1;
    params->sms_argv = args;
    params->sms_argl = argl;
    params->sms_argv[0] = (char *)auth.dat;
    params->sms_argl[0] = auth.length;
	
    if ((status = sms_do_call(params, &reply)) == 0)
	status = reply->sms_status;

    sms_destroy_reply(reply);

    return status;
}

/*
 * Local Variables:
 * mode: c
 * c-indent-level: 4
 * c-continued-statement-offset: 4
 * c-brace-offset: -4
 * c-argdecl-indent: 4
 * c-label-offset: -4
 * End:
 */