3 * Handles the client side of the sending of authenticators to the moira server
5 * Copyright (C) 1987-1998 by the Massachusetts Institute of Technology
6 * For copying and distribution information, please see the file
10 #include <mit-copyright.h>
12 #include "mr_private.h"
21 krb5_context context = NULL;
22 krb5_auth_context auth_con = NULL;
26 /* Authenticate this client with the Moira server. prog is the name of the
27 * client program, and will be recorded in the database.
30 int mr_auth(char *prog)
33 mr_params params, reply;
36 char realm[REALM_SZ], host[BUFSIZ], *p;
41 if ((status = mr_host(host, sizeof(host) - 1)))
44 strcpy(realm, krb_realmofhost(host));
45 for (p = host; *p && *p != '.'; p++)
52 status = krb_mk_req(&auth, MOIRA_SNAME, host, realm, 0);
53 if (status != KSUCCESS)
55 status += ERROR_TABLE_BASE_krb;
58 params.u.mr_procno = MR_AUTH;
60 params.mr_argv = args;
61 params.mr_argl = argl;
62 params.mr_argv[0] = (char *)auth.dat;
63 params.mr_argl[0] = auth.length;
64 params.mr_argv[1] = prog;
65 params.mr_argl[1] = strlen(prog) + 1;
67 if ((status = mr_do_call(¶ms, &reply)) == MR_SUCCESS)
68 status = reply.u.mr_status;
70 mr_destroy_reply(reply);
75 int mr_proxy(char *principal, char *orig_authtype)
78 mr_params params, reply;
83 params.u.mr_procno = MR_PROXY;
85 params.mr_argv = args;
86 params.mr_argv[0] = principal;
87 params.mr_argv[1] = orig_authtype;
88 params.mr_argl = NULL;
90 if ((status = mr_do_call(¶ms, &reply)) == MR_SUCCESS)
91 status = reply.u.mr_status;
93 mr_destroy_reply(reply);
98 int mr_krb5_auth(char *prog)
100 mr_params params, reply;
101 char host[BUFSIZ], *p;
104 krb5_ccache ccache = NULL;
106 krb5_error_code problem = 0;
110 memset(&auth, 0, sizeof(auth));
112 if ((problem = mr_host(host, sizeof(host) - 1)))
117 problem = krb5_init_context(&context);
122 problem = krb5_auth_con_init(context, &auth_con);
126 problem = krb5_cc_default(context, &ccache);
130 problem = krb5_mk_req(context, &auth_con, 0, MOIRA_SNAME, host, NULL,
135 params.u.mr_procno = MR_KRB5_AUTH;
137 params.mr_argv = args;
138 params.mr_argl = argl;
139 params.mr_argv[0] = (char *)auth.data;
140 params.mr_argl[0] = auth.length;
141 params.mr_argv[1] = prog;
142 params.mr_argl[1] = strlen(prog) + 1;
144 if ((problem = mr_do_call(¶ms, &reply)) == MR_SUCCESS)
145 problem = reply.u.mr_status;
147 mr_destroy_reply(reply);
151 krb5_cc_close(context, ccache);
152 krb5_free_data_contents(context, &auth);
154 krb5_auth_con_free(context, auth_con);