2 * Copyright (c) 1997, 1998, 1999 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * 3. Neither the name of the Institute nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 #include "krb5_locl.h"
36 RCSID("$Id: context.c,v 1.51 1999/12/02 17:05:08 joda Exp $");
38 #define INIT_FIELD(C, T, E, D, F) \
39 (C)->E = krb5_config_get_ ## T ## _default ((C), NULL, (D), \
40 "libdefaults", F, NULL)
43 extern krb5_kt_ops krb4_fkt_ops;
47 * Set the list of etypes `ret_etypes' from the configuration variable
51 static krb5_error_code
52 set_etypes (krb5_context context,
54 krb5_enctype **ret_enctypes)
59 etypes_str = krb5_config_get_strings(context, NULL, "libdefaults",
63 for(i = 0; etypes_str[i]; i++);
64 etypes = malloc((i+1) * sizeof(*etypes));
66 krb5_config_free_strings (etypes_str);
69 for(j = 0, k = 0; j < i; j++) {
70 if(krb5_string_to_enctype(context, etypes_str[j], &etypes[k]) == 0)
73 etypes[k] = ETYPE_NULL;
74 krb5_config_free_strings(etypes_str);
75 *ret_enctypes = etypes;
81 * read variables from the configuration file and set in `context'
84 static krb5_error_code
85 init_context_from_config_file(krb5_context context)
88 INIT_FIELD(context, time, max_skew, 5 * 60, "clockskew");
89 INIT_FIELD(context, time, kdc_timeout, 3, "kdc_timeout");
90 INIT_FIELD(context, int, max_retries, 3, "max_retries");
92 context->http_proxy = krb5_config_get_string(context, NULL, "libdefaults",
95 set_etypes (context, "default_etypes", &context->etypes);
96 set_etypes (context, "default_etypes_des", &context->etypes_des);
98 /* default keytab name */
99 context->default_keytab = krb5_config_get_string(context, NULL,
101 "default_keytab_name",
103 if(context->default_keytab == NULL)
104 context->default_keytab = KEYTAB_DEFAULT;
106 context->time_fmt = krb5_config_get_string(context, NULL, "libdefaults",
107 "time_format", NULL);
108 if(context->time_fmt == NULL)
109 context->time_fmt = "%d-%b-%Y %H:%M:%S";
110 context->log_utc = krb5_config_get_bool(context, NULL, "libdefaults",
113 /* init dns-proxy slime */
114 tmp = krb5_config_get_string(context, NULL, "libdefaults",
117 roken_gethostby_setup(context->http_proxy, tmp);
118 context->default_realms = NULL;
121 krb5_addresses addresses;
123 adr = krb5_config_get_strings(context, NULL,
127 memset(&addresses, 0, sizeof(addresses));
128 for(a = adr; a && *a; a++) {
129 krb5_parse_address(context, *a, &addresses);
130 krb5_add_extra_addresses(context, &addresses);
131 krb5_free_addresses(context, &addresses);
133 krb5_config_free_strings(adr);
136 INIT_FIELD(context, bool, scan_interfaces, TRUE, "scan_interfaces");
137 INIT_FIELD(context, bool, srv_lookup, TRUE, "srv_lookup");
138 INIT_FIELD(context, bool, srv_try_txt, FALSE, "srv_try_txt");
139 INIT_FIELD(context, bool, srv_try_rfc2052, TRUE, "srv_try_rfc2052");
140 INIT_FIELD(context, int, fcache_vno, 0, "fcache_version");
142 context->cc_ops = NULL;
143 context->num_cc_ops = 0;
144 krb5_cc_register(context, &krb5_fcc_ops, TRUE);
145 krb5_cc_register(context, &krb5_mcc_ops, TRUE);
147 context->num_kt_types = 0;
148 context->kt_types = NULL;
149 krb5_kt_register (context, &krb5_fkt_ops);
150 krb5_kt_register (context, &krb5_mkt_ops);
152 krb5_kt_register (context, &krb4_fkt_ops);
154 krb5_kt_register (context, &krb5_akf_ops);
159 krb5_init_context(krb5_context *context)
162 const char *config_file = NULL;
163 krb5_config_section *tmp_cf;
169 memset(p, 0, sizeof(krb5_context_data));
171 /* init error tables */
175 config_file = getenv("KRB5_CONFIG");
176 if (config_file == NULL)
177 config_file = krb5_config_file;
179 ret = krb5_config_parse_file (config_file, &tmp_cf);
185 krb5_warnx (p, "Unable to parse config file %s. Ignoring.",
186 config_file); /* XXX */
189 ret = init_context_from_config_file(p);
198 krb5_free_context(krb5_context context)
202 free(context->etypes);
203 free(context->etypes_des);
204 krb5_free_host_realm (context, context->default_realms);
205 krb5_config_file_free (context, context->cf);
206 free_error_table (context->et_list);
207 for(i = 0; i < context->num_cc_ops; ++i)
208 free(context->cc_ops[i].prefix);
209 free(context->cc_ops);
210 free(context->kt_types);
214 static krb5_error_code
215 default_etypes(krb5_enctype **etype)
225 *etype = malloc(sizeof(p));
228 memcpy(*etype, p, sizeof(p));
233 krb5_set_default_in_tkt_etypes(krb5_context context,
234 const krb5_enctype *etypes)
237 krb5_enctype *p = NULL;
242 if(!krb5_enctype_valid(context, etypes[i++]))
243 return KRB5_PROG_ETYPE_NOSUPP;
248 memmove(p, etypes, i * sizeof(krb5_enctype));
251 free(context->etypes);
258 krb5_get_default_in_tkt_etypes(krb5_context context,
259 krb5_enctype **etypes)
264 if(context->etypes) {
265 for(i = 0; context->etypes[i]; i++);
270 memmove(p, context->etypes, i * sizeof(krb5_enctype));
272 if(default_etypes(&p))
279 krb5_get_err_text(krb5_context context, krb5_error_code code)
281 const char *p = com_right(context->et_list, code);
288 krb5_init_ets(krb5_context context)
290 if(context->et_list == NULL){
291 initialize_krb5_error_table_r(&context->et_list);
292 initialize_asn1_error_table_r(&context->et_list);
293 initialize_heim_error_table_r(&context->et_list);
298 krb5_set_use_admin_kdc (krb5_context context, krb5_boolean flag)
300 context->use_admin_kdc = flag;
304 krb5_get_use_admin_kdc (krb5_context context)
306 return context->use_admin_kdc;
310 krb5_add_extra_addresses(krb5_context context, krb5_addresses *addresses)
313 if(context->extra_addresses)
314 return krb5_append_addresses(context,
315 context->extra_addresses, addresses);
317 return krb5_set_extra_addresses(context, addresses);
321 krb5_set_extra_addresses(krb5_context context, krb5_addresses *addresses)
323 if(context->extra_addresses) {
324 krb5_free_addresses(context, context->extra_addresses);
325 free(context->extra_addresses);
327 if(context->extra_addresses == NULL) {
328 context->extra_addresses = malloc(sizeof(*context->extra_addresses));
329 if(context->extra_addresses == NULL)
332 return copy_HostAddresses(addresses, context->extra_addresses);
336 krb5_get_extra_addresses(krb5_context context, krb5_addresses *addresses)
338 if(context->extra_addresses == NULL) {
339 memset(addresses, 0, sizeof(*addresses));
342 return copy_HostAddresses(context->extra_addresses, addresses);
346 krb5_set_fcache_version(krb5_context context, int version)
348 context->fcache_vno = version;
353 krb5_get_fcache_version(krb5_context context, int *version)
355 *version = context->fcache_vno;