-/*
- * $Source$
- * $Author$
- * $Header$
+/* $Id $
*
- * Copyright (C) 1987, 1990 by the Massachusetts Institute of Technology
- * For copying and distribution information, please see the file
- * <mit-copyright.h>.
+ * Handles the client side of the sending of authenticators to the moira server
*
- * Handles the client side of the sending of authenticators to
- * the mr server.
+ * Copyright (C) 1987-1998 by the Massachusetts Institute of Technology
+ * For copying and distribution information, please see the file
+ * <mit-copyright.h>.
*/
-#ifndef lint
-static char *rcsid_mr_auth_c = "$Header$";
-#endif
-
#include <mit-copyright.h>
+#include <moira.h>
#include "mr_private.h"
+
#include <ctype.h>
-#include <krb.h>
-#include <krb_et.h>
#include <string.h>
+#include <krb.h>
+extern char *krb_realmofhost(char *);
+extern int krb_mk_req(KTEXT, char *, char *, char *, int);
+
+RCSID("$Header$");
+
/* Authenticate this client with the Moira server. prog is the name of the
* client program, and will be recorded in the database.
*/
char *args[2];
int argl[2];
char realm[REALM_SZ], host[BUFSIZ], *p;
-
mr_params *params = ¶ms_st;
mr_params *reply = NULL;
KTEXT_ST auth;
if ((status = mr_host(host, sizeof(host) - 1)))
return status;
- strcpy(realm, (char *)krb_realmofhost(host));
+ strcpy(realm, krb_realmofhost(host));
for (p = host; *p && *p != '.'; p++)
{
if (isupper(*p))