lib/mr_auth.c

   1 /*
   2  *      $Source$
   3  *      $Author$
   4  *      $Header$
   5  *
   6  *      Copyright (C) 1987, 1990 by the Massachusetts Institute of Technology
   7  *      For copying and distribution information, please see the file
   8  *      <mit-copyright.h>.
   9  *
  10  *      Handles the client side of the sending of authenticators to
  11  * the mr server.
  12  */
  13
  14 #ifndef lint
  15 static char *rcsid_sms_auth_c = "$Header$";
  16 #endif
  17
  18 #include <mit-copyright.h>
  19 #include "mr_private.h"
  20 #include <ctype.h>
  21 #include <krb.h>
  22 #include <krb_et.h>
  23 #include <string.h>
  24
  25 /* Authenticate this client with the MR server.  prog is the name of the
  26  * client program, and will be recorded in the database.
  27  */
  28
  29 int mr_auth(char *prog)
  30 {
  31   register int status;
  32   mr_params params_st;
  33   char *args[2];
  34   int argl[2];
  35   char realm[REALM_SZ], host[BUFSIZ], *p;
  36
  37   register mr_params *params = &params_st;
  38   mr_params *reply = NULL;
  39   KTEXT_ST auth;
  40
  41   CHECK_CONNECTED;
  42
  43   /* Build a Kerberos authenticator. */
  44
  45   memset(host, 0, sizeof(host));
  46   if ((status = mr_host(host, sizeof(host) - 1)))
  47     return status;
  48
  49   strcpy(realm, (char *)krb_realmofhost(host));
  50   for (p = host; *p && *p != '.'; p++)
  51     {
  52       if (isupper(*p))
  53         *p = tolower(*p);
  54     }
  55   *p = '\0';
  56
  57   status = krb_mk_req(&auth, MOIRA_SNAME, host, realm, 0);
  58   if (status != KSUCCESS)
  59     {
  60       status += ERROR_TABLE_BASE_krb;
  61       return status;
  62     }
  63   params->mr_version_no = sending_version_no;
  64   params->mr_procno = MR_AUTH;
  65   params->mr_argc = 2;
  66   params->mr_argv = args;
  67   params->mr_argl = argl;
  68   params->mr_argv[0] = (char *)auth.dat;
  69   params->mr_argl[0] = auth.length;
  70   params->mr_argv[1] = prog;
  71   params->mr_argl[1] = strlen(prog) + 1;
  72
  73   if (sending_version_no == MR_VERSION_1)
  74     params->mr_argc = 1;
  75
  76   if ((status = mr_do_call(params, &reply)) == 0)
  77     status = reply->mr_status;
  78
  79   mr_destroy_reply(reply);
  80
  81   return status;
  82 }