1/*
2 * Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
3 * Use is subject to license terms.
4 */
5
6
7/*
8 * Copyright (c) 2004 by Internet Systems Consortium, Inc. ("ISC")
9 * Copyright (c) 1996-1999 by Internet Software Consortium.
10 *
11 * Permission to use, copy, modify, and distribute this software for any
12 * purpose with or without fee is hereby granted, provided that the above
13 * copyright notice and this permission notice appear in all copies.
14 *
15 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES
16 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
17 * MERCHANTABILITY AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR
18 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
19 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
20 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
21 * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
22 */
23
24/*! \file
25 * \brief
26 * this is the top level dispatcher
27 *
28 * The dispatcher is implemented as an accessor class; it is an
29 * accessor class that calls other accessor classes, as controlled by a
30 * configuration file.
31 *
32 * A big difference between this accessor class and others is that the
33 * map class initializers are NULL, and the map classes are already
34 * filled in with method functions that will do the right thing.
35 */
36
37/* Imports */
38
39#include "port_before.h"
40
41#include <isc/assertions.h>
42#include <ctype.h>
43#include <errno.h>
44#include <stdio.h>
45#include <stdlib.h>
46#include <string.h>
47
48#include <sys/types.h>
49#include <netinet/in.h>
50#include <arpa/nameser.h>
51#include <resolv.h>
52
53#include <isc/memcluster.h>
54#include <irs.h>
55
56#include "port_after.h"
57
58#include "irs_p.h"
59#include "gen_p.h"
60
61#ifdef SUNW_HOSTS_FALLBACK
62extern int __res_no_hosts_fallback(void);
63#endif /* SUNW_HOSTS_FALLBACK */
64
65/* Definitions */
66
67struct nameval {
68	const char *	name;
69	int		val;
70};
71
72static const struct nameval acc_names[irs_nacc+1] = {
73	{ "local", irs_lcl },
74	{ "dns", irs_dns },
75	{ "nis", irs_nis },
76	{ "irp", irs_irp },
77	{ NULL, irs_nacc }
78};
79
80typedef struct irs_acc *(*accinit) __P((const char *options));
81
82static const accinit accs[irs_nacc+1] = {
83	irs_lcl_acc,
84	irs_dns_acc,
85#ifdef WANT_IRS_NIS
86	irs_nis_acc,
87#else
88	NULL,
89#endif
90	irs_irp_acc,
91	NULL
92};
93
94static const struct nameval map_names[irs_nmap+1] = {
95	{ "group", irs_gr },
96	{ "passwd", irs_pw },
97	{ "services", irs_sv },
98	{ "protocols", irs_pr },
99	{ "hosts", irs_ho },
100	{ "networks", irs_nw },
101	{ "netgroup", irs_ng },
102	{ NULL, irs_nmap }
103};
104
105static const struct nameval option_names[] = {
106	{ "merge", IRS_MERGE },
107	{ "continue", IRS_CONTINUE },
108	{ NULL, 0 }
109};
110
111/* Forward */
112
113static void		gen_close(struct irs_acc *);
114static struct __res_state * gen_res_get(struct irs_acc *);
115static void		gen_res_set(struct irs_acc *, struct __res_state *,
116				    void (*)(void *));
117static int		find_name(const char *, const struct nameval nv[]);
118static void 		init_map_rules(struct gen_p *, const char *conf_file);
119static struct irs_rule *release_rule(struct irs_rule *);
120static int		add_rule(struct gen_p *,
121				 enum irs_map_id, enum irs_acc_id,
122				 const char *);
123
124/* Public */
125
126struct irs_acc *
127irs_gen_acc(const char *options, const char *conf_file) {
128	struct irs_acc *acc;
129	struct gen_p *irs;
130
131	if (!(acc = memget(sizeof *acc))) {
132		errno = ENOMEM;
133		return (NULL);
134	}
135	memset(acc, 0x5e, sizeof *acc);
136	if (!(irs = memget(sizeof *irs))) {
137		errno = ENOMEM;
138		memput(acc, sizeof *acc);
139		return (NULL);
140	}
141	memset(irs, 0x5e, sizeof *irs);
142	irs->options = strdup(options);
143	irs->res = NULL;
144	irs->free_res = NULL;
145	memset(irs->accessors, 0, sizeof irs->accessors);
146	memset(irs->map_rules, 0, sizeof irs->map_rules);
147	init_map_rules(irs, conf_file);
148	acc->private = irs;
149#ifdef WANT_IRS_GR
150	acc->gr_map = irs_gen_gr;
151#else
152	acc->gr_map = NULL;
153#endif
154#ifdef WANT_IRS_PW
155	acc->pw_map = irs_gen_pw;
156#else
157	acc->pw_map = NULL;
158#endif
159	acc->sv_map = irs_gen_sv;
160	acc->pr_map = irs_gen_pr;
161	acc->ho_map = irs_gen_ho;
162	acc->nw_map = irs_gen_nw;
163	acc->ng_map = irs_gen_ng;
164	acc->res_get = gen_res_get;
165	acc->res_set = gen_res_set;
166	acc->close = gen_close;
167	return (acc);
168}
169
170/* Methods */
171
172static struct __res_state *
173gen_res_get(struct irs_acc *this) {
174	struct gen_p *irs = (struct gen_p *)this->private;
175
176	if (irs->res == NULL) {
177		struct __res_state *res;
178		res = (struct __res_state *)malloc(sizeof *res);
179		if (res == NULL)
180			return (NULL);
181		memset(res, 0, sizeof *res);
182		gen_res_set(this, res, free);
183	}
184
185	if (((irs->res->options & RES_INIT) == 0U) && res_ninit(irs->res) < 0)
186		return (NULL);
187
188	return (irs->res);
189}
190
191static void
192gen_res_set(struct irs_acc *this, struct __res_state *res,
193	    void (*free_res)(void *)) {
194	struct gen_p *irs = (struct gen_p *)this->private;
195#if 0
196	struct irs_rule *rule;
197	struct irs_ho *ho;
198	struct irs_nw *nw;
199#endif
200
201	if (irs->res && irs->free_res) {
202		res_nclose(irs->res);
203		(*irs->free_res)(irs->res);
204	}
205
206	irs->res = res;
207	irs->free_res = free_res;
208
209#if 0
210	for (rule = irs->map_rules[irs_ho]; rule; rule = rule->next) {
211                ho = rule->inst->ho;
212
213                (*ho->res_set)(ho, res, NULL);
214	}
215	for (rule = irs->map_rules[irs_nw]; rule; rule = rule->next) {
216                nw = rule->inst->nw;
217
218                (*nw->res_set)(nw, res, NULL);
219	}
220#endif
221}
222
223static void
224gen_close(struct irs_acc *this) {
225	struct gen_p *irs = (struct gen_p *)this->private;
226	int n;
227
228	/* Search rules. */
229	for (n = 0; n < irs_nmap; n++)
230		while (irs->map_rules[n] != NULL)
231			irs->map_rules[n] = release_rule(irs->map_rules[n]);
232
233	/* Access methods. */
234	for (n = 0; n < irs_nacc; n++) {
235		/* Map objects. */
236		if (irs->accessors[n].gr != NULL)
237			(*irs->accessors[n].gr->close)(irs->accessors[n].gr);
238		if (irs->accessors[n].pw != NULL)
239			(*irs->accessors[n].pw->close)(irs->accessors[n].pw);
240		if (irs->accessors[n].sv != NULL)
241			(*irs->accessors[n].sv->close)(irs->accessors[n].sv);
242		if (irs->accessors[n].pr != NULL)
243			(*irs->accessors[n].pr->close)(irs->accessors[n].pr);
244		if (irs->accessors[n].ho != NULL)
245			(*irs->accessors[n].ho->close)(irs->accessors[n].ho);
246		if (irs->accessors[n].nw != NULL)
247			(*irs->accessors[n].nw->close)(irs->accessors[n].nw);
248		if (irs->accessors[n].ng != NULL)
249			(*irs->accessors[n].ng->close)(irs->accessors[n].ng);
250		/* Enclosing accessor. */
251		if (irs->accessors[n].acc != NULL)
252			(*irs->accessors[n].acc->close)(irs->accessors[n].acc);
253	}
254
255	/* The options string was strdup'd. */
256	free((void*)irs->options);
257
258	if (irs->res && irs->free_res)
259		(*irs->free_res)(irs->res);
260
261	/* The private data container. */
262	memput(irs, sizeof *irs);
263
264	/* The object. */
265	memput(this, sizeof *this);
266}
267
268/* Private */
269
270static int
271find_name(const char *name, const struct nameval names[]) {
272	int n;
273
274	for (n = 0; names[n].name != NULL; n++)
275		if (strcmp(name, names[n].name) == 0)
276			return (names[n].val);
277	return (-1);
278}
279
280static struct irs_rule *
281release_rule(struct irs_rule *rule) {
282	struct irs_rule *next = rule->next;
283
284	memput(rule, sizeof *rule);
285	return (next);
286}
287
288static int
289add_rule(struct gen_p *irs,
290	 enum irs_map_id map, enum irs_acc_id acc,
291	 const char *options)
292{
293	struct irs_rule **rules, *last, *tmp, *new;
294	struct irs_inst *inst;
295	const char *cp;
296	int n;
297
298#ifndef WANT_IRS_GR
299	if (map == irs_gr)
300		return (-1);
301#endif
302#ifndef WANT_IRS_PW
303	if (map == irs_pw)
304		return (-1);
305#endif
306#ifndef WANT_IRS_NIS
307	if (acc == irs_nis)
308		return (-1);
309#endif
310	new = memget(sizeof *new);
311	if (new == NULL)
312		return (-1);
313	memset(new, 0x5e, sizeof *new);
314	new->next = NULL;
315
316	new->inst = &irs->accessors[acc];
317
318	new->flags = 0;
319	cp = options;
320	while (cp && *cp) {
321		char option[50], *next;
322
323		next = strchr(cp, ',');
324		if (next)
325			n = next++ - cp;
326		else
327			n = strlen(cp);
328		if ((size_t)n > sizeof option - 1)
329			n = sizeof option - 1;
330		strncpy(option, cp, n);
331		option[n] = '\0';
332
333		n = find_name(option, option_names);
334		if (n >= 0)
335			new->flags |= n;
336
337		cp = next;
338	}
339
340	rules = &irs->map_rules[map];
341	for (last = NULL, tmp = *rules;
342	     tmp != NULL;
343	     last = tmp, tmp = tmp->next)
344		(void)NULL;
345	if (last == NULL)
346		*rules = new;
347	else
348		last->next = new;
349
350	/* Try to instantiate map accessors for this if necessary & approp. */
351	inst = &irs->accessors[acc];
352	if (inst->acc == NULL && accs[acc] != NULL)
353		inst->acc = (*accs[acc])(irs->options);
354	if (inst->acc != NULL) {
355		if (inst->gr == NULL && inst->acc->gr_map != NULL)
356			inst->gr = (*inst->acc->gr_map)(inst->acc);
357		if (inst->pw == NULL && inst->acc->pw_map != NULL)
358			inst->pw = (*inst->acc->pw_map)(inst->acc);
359		if (inst->sv == NULL && inst->acc->sv_map != NULL)
360			inst->sv = (*inst->acc->sv_map)(inst->acc);
361		if (inst->pr == NULL && inst->acc->pr_map != NULL)
362			inst->pr = (*inst->acc->pr_map)(inst->acc);
363		if (inst->ho == NULL && inst->acc->ho_map != NULL)
364			inst->ho = (*inst->acc->ho_map)(inst->acc);
365		if (inst->nw == NULL && inst->acc->nw_map != NULL)
366			inst->nw = (*inst->acc->nw_map)(inst->acc);
367		if (inst->ng == NULL && inst->acc->ng_map != NULL)
368			inst->ng = (*inst->acc->ng_map)(inst->acc);
369	}
370
371	return (0);
372}
373
374static void
375default_map_rules(struct gen_p *irs) {
376	/* Install time honoured and proved BSD style rules as default. */
377	add_rule(irs, irs_gr, irs_lcl, "");
378	add_rule(irs, irs_pw, irs_lcl, "");
379	add_rule(irs, irs_sv, irs_lcl, "");
380	add_rule(irs, irs_pr, irs_lcl, "");
381#ifdef SUNW_HOSTS_FALLBACK
382	if (__res_no_hosts_fallback())
383		add_rule(irs, irs_ho, irs_dns, "");
384	else {
385		add_rule(irs, irs_ho, irs_dns, "continue");
386		add_rule(irs, irs_ho, irs_lcl, "");
387	}
388#else  /* SUNW_HOSTS_FALLBACK */
389	add_rule(irs, irs_ho, irs_dns, "continue");
390	add_rule(irs, irs_ho, irs_lcl, "");
391#endif /* SUNW_HOSTS_FALLBACK */
392	add_rule(irs, irs_nw, irs_dns, "continue");
393	add_rule(irs, irs_nw, irs_lcl, "");
394	add_rule(irs, irs_ng, irs_lcl, "");
395}
396
397static void
398init_map_rules(struct gen_p *irs, const char *conf_file) {
399	char line[1024], pattern[40], mapname[20], accname[20], options[100];
400	FILE *conf;
401
402#ifdef SUNW_HOSTS_FALLBACK
403	if (__res_no_hosts_fallback()) {
404		default_map_rules(irs);
405		return;
406	}
407#endif /* SUNW_HOSTS_FALLBACK */
408
409	if (conf_file == NULL)
410		conf_file = _PATH_IRS_CONF ;
411
412	/* A conf file of "" means compiled in defaults. Irpd wants this */
413	if (conf_file[0] == '\0' || (conf = fopen(conf_file, "r")) == NULL) {
414		default_map_rules(irs);
415		return;
416	}
417	(void) sprintf(pattern, "%%%lus %%%lus %%%lus\n",
418		       (unsigned long)sizeof mapname,
419		       (unsigned long)sizeof accname,
420		       (unsigned long)sizeof options);
421	while (fgets(line, sizeof line, conf)) {
422		enum irs_map_id map;
423		enum irs_acc_id acc;
424		char *tmp;
425		int n;
426
427		for (tmp = line;
428		     isascii((unsigned char)*tmp) &&
429		     isspace((unsigned char)*tmp);
430		     tmp++)
431			(void)NULL;
432		if (*tmp == '#' || *tmp == '\n' || *tmp == '\0')
433			continue;
434		n = sscanf(tmp, pattern, mapname, accname, options);
435		if (n < 2)
436			continue;
437		if (n < 3)
438			options[0] = '\0';
439
440		n = find_name(mapname, map_names);
441		INSIST(n < irs_nmap);
442		if (n < 0)
443			continue;
444		map = (enum irs_map_id) n;
445
446		n = find_name(accname, acc_names);
447		INSIST(n < irs_nacc);
448		if (n < 0)
449			continue;
450		acc = (enum irs_acc_id) n;
451
452		add_rule(irs, map, acc, options);
453	}
454	fclose(conf);
455}
456