1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 
22 /*
23  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 /*
28  *	nis/getservent.c -- "nis" backend for nsswitch "services" database
29  */
30 
31 #include "nis_common.h"
32 #include <stdio.h>
33 #include <stdlib.h>
34 #include <string.h>
35 #include <signal.h>
36 #include <malloc.h>
37 #include <netdb.h>
38 #include <synch.h>
39 #include <ctype.h>
40 #include <rpcsvc/ypclnt.h>
41 #include <thread.h>
42 #include <sys/types.h>
43 #include <netinet/in.h>
44 
45 static int
check_name(args)46 check_name(args)
47 	nss_XbyY_args_t		*args;
48 {
49 	struct servent		*serv	= (struct servent *)args->returnval;
50 	const char		*name	= args->key.serv.serv.name;
51 	const char		*proto	= args->key.serv.proto;
52 	char			**aliasp;
53 
54 	if (proto != 0 && strcmp(serv->s_proto, proto) != 0) {
55 		return (0);
56 	}
57 	if (strcmp(serv->s_name, name) == 0) {
58 		return (1);
59 	}
60 	for (aliasp = serv->s_aliases;  *aliasp != 0;  aliasp++) {
61 		if (strcmp(*aliasp, name) == 0) {
62 			return (1);
63 		}
64 	}
65 	return (0);
66 }
67 
68 static int
check_name2(nss_XbyY_args_t * argp)69 check_name2(nss_XbyY_args_t *argp)
70 {
71 	const char	*limit, *linep, *keyp;
72 	int		name_match = 0;
73 
74 	linep = (const char *)argp->buf.buffer;
75 	limit = linep + strlen(argp->buf.buffer);
76 	keyp = argp->key.serv.serv.name;
77 
78 	/* compare name */
79 	while (*keyp && linep < limit && !isspace(*linep) && *keyp == *linep) {
80 		keyp++;
81 		linep++;
82 	}
83 	if (*keyp == '\0' && linep < limit && isspace(*linep)) {
84 		if (argp->key.serv.proto == NULL)
85 			return (1);
86 		else
87 			name_match = 1;
88 	}
89 
90 	/* skip remainder of the name, if any */
91 	while (linep < limit && !isspace(*linep))
92 		linep++;
93 	/* skip the delimiting spaces */
94 	while (linep < limit && isspace(*linep))
95 		linep++;
96 	/* skip port number */
97 	while (linep < limit && !isspace(*linep) && *linep != '/')
98 		linep++;
99 	if (linep == limit || *linep != '/')
100 		return (0);
101 
102 	linep++;
103 	if ((keyp = argp->key.serv.proto) == NULL) {
104 		/* skip protocol */
105 		while (linep < limit && !isspace(*linep))
106 			linep++;
107 	} else {
108 		/* compare protocol */
109 		while (*keyp && linep < limit && !isspace(*linep) &&
110 		    *keyp == *linep) {
111 			keyp++;
112 			linep++;
113 		}
114 		/* no protocol match */
115 		if (*keyp || (linep < limit && !isspace(*linep)))
116 			return (0);
117 		/* protocol and name match, return */
118 		if (name_match)
119 			return (1);
120 		/* protocol match but name yet to be matched, so continue */
121 	}
122 
123 	/* compare with the aliases */
124 	while (linep < limit) {
125 		/* skip the delimiting spaces */
126 		while (linep < limit && isspace(*linep))
127 			linep++;
128 
129 		/* compare with the alias name */
130 		keyp = argp->key.serv.serv.name;
131 		while (*keyp && linep < limit && !isspace(*linep) &&
132 		    *keyp == *linep) {
133 			keyp++;
134 			linep++;
135 		}
136 		if (*keyp == '\0' && (linep == limit || isspace(*linep)))
137 				return (1);
138 
139 		/* skip remainder of the alias name, if any */
140 		while (linep < limit && !isspace(*linep))
141 			linep++;
142 	}
143 	return (0);
144 }
145 
146 static mutex_t	no_byname_lock	= DEFAULTMUTEX;
147 static int	no_byname_map	= 0;
148 
149 static nss_status_t
getbyname(be,a)150 getbyname(be, a)
151 	nis_backend_ptr_t	be;
152 	void			*a;
153 {
154 	nss_XbyY_args_t		*argp = (nss_XbyY_args_t *)a;
155 	const char		*name	= argp->key.serv.serv.name;
156 	const char		*proto	= argp->key.serv.proto;
157 	int			no_map;
158 	sigset_t		oldmask, newmask;
159 
160 	(void) sigfillset(&newmask);
161 	(void) thr_sigsetmask(SIG_SETMASK, &newmask, &oldmask);
162 	(void) mutex_lock(&no_byname_lock);
163 	no_map = no_byname_map;
164 	(void) mutex_unlock(&no_byname_lock);
165 	(void) thr_sigsetmask(SIG_SETMASK, &oldmask, NULL);
166 
167 	if (no_map == 0) {
168 		int		yp_status;
169 		nss_status_t	res;
170 
171 		if (proto == 0) {
172 			res = _nss_nis_lookup(be, argp, 1,
173 			    "services.byservicename", name, &yp_status);
174 		} else {
175 			int len = strlen(name) + strlen(proto) + 3;
176 			char *key = malloc(len);
177 
178 			if (key == NULL) {
179 				return (NSS_UNAVAIL);
180 			}
181 			(void) snprintf(key, len, "%s/%s", name, proto);
182 			res = _nss_nis_lookup(be, argp, 1,
183 			    "services.byservicename", key, &yp_status);
184 			free(key);
185 		}
186 
187 		if (yp_status == YPERR_MAP) {
188 			(void) sigfillset(&newmask);
189 			(void) thr_sigsetmask(SIG_SETMASK, &newmask, &oldmask);
190 			(void) mutex_lock(&no_byname_lock);
191 			no_byname_map = 1;
192 			(void) mutex_unlock(&no_byname_lock);
193 			(void) thr_sigsetmask(SIG_SETMASK, &oldmask,
194 					(sigset_t *)NULL);
195 		} else /* if (res == NSS_SUCCESS) <==== */ {
196 			return (res);
197 		}
198 	}
199 
200 	/*
201 	 * use check_anme to compare service name if nss1 or nss2 and
202 	 * request is not from nscd; otherwise use check_name2
203 	 */
204 	if (argp->buf.result != NULL)
205 		return (_nss_nis_XY_all(be, argp, 1, name, check_name));
206 	else
207 		return (_nss_nis_XY_all(be, argp, 1, name, check_name2));
208 }
209 
210 static int
check_port(args)211 check_port(args)
212 	nss_XbyY_args_t		*args;
213 {
214 	struct servent		*serv	= (struct servent *)args->returnval;
215 
216 	/*
217 	 * We only resorted to _nss_nis_XY_all because proto == 0, so just...
218 	 */
219 	return (serv->s_port == args->key.serv.serv.port);
220 }
221 
222 static int
check_port2(nss_XbyY_args_t * argp)223 check_port2(nss_XbyY_args_t *argp)
224 {
225 	const char	*limit, *linep, *keyp, *numstart;
226 	int		numlen, s_port;
227 	char		numbuf[12], *numend;
228 
229 	linep = (const char *)argp->buf.buffer;
230 	limit = linep + strlen(argp->buf.buffer);
231 
232 	/* skip name */
233 	while (linep < limit && !isspace(*linep))
234 		linep++;
235 	/* skip the delimiting spaces */
236 	while (linep < limit && isspace(*linep))
237 		linep++;
238 
239 	/* compare port num */
240 	numstart = linep;
241 	while (linep < limit && !isspace(*linep) && *linep != '/')
242 		linep++;
243 	if (linep == limit || *linep != '/')
244 		return (0);
245 	numlen = linep - numstart;
246 	if (numlen == 0 || numlen >= sizeof (numbuf))
247 		return (0);
248 	(void) memcpy(numbuf, numstart, numlen);
249 	numbuf[numlen] = '\0';
250 	s_port = htons((int)strtol(numbuf, &numend, 10));
251 	if (*numend != '\0')
252 		return (0);
253 	if (s_port == argp->key.serv.serv.port) {
254 		if ((keyp = argp->key.serv.proto) == NULL)
255 			return (1);
256 	} else
257 		return (0);
258 
259 	/* compare protocol */
260 	linep++;
261 	while (*keyp && linep < limit && !isspace(*linep) && *keyp == *linep) {
262 		keyp++;
263 		linep++;
264 	}
265 	return (*keyp == '\0' && (linep == limit || isspace(*linep)));
266 }
267 
268 
269 static nss_status_t
getbyport(be,a)270 getbyport(be, a)
271 	nis_backend_ptr_t	be;
272 	void			*a;
273 {
274 	nss_XbyY_args_t		*argp	= (nss_XbyY_args_t *)a;
275 	int			port	= ntohs(argp->key.serv.serv.port);
276 	const char		*proto	= argp->key.serv.proto;
277 	char			*key;
278 	nss_status_t		res;
279 	int			len;
280 
281 	if (proto == 0) {
282 		char		portstr[12];
283 
284 		(void) snprintf(portstr, 12, "%d", port);
285 		/*
286 		 * use check_port to compare service port if nss1 or
287 		 * nss2 and request is not from nscd; otherwise use
288 		 * check_port2
289 		 */
290 		if (argp->buf.result != NULL)
291 			return (_nss_nis_XY_all(be, argp, 1, portstr,
292 				check_port));
293 		else
294 			return (_nss_nis_XY_all(be, argp, 1, portstr,
295 				check_port2));
296 	}
297 
298 	len = strlen(proto) + 14;
299 	if ((key = malloc(len)) == 0) {
300 		return (NSS_UNAVAIL);
301 	}
302 	(void) snprintf(key, len, "%d/%s", port, proto);
303 
304 	res = _nss_nis_lookup(be, argp, 1, "services.byname", key, 0);
305 
306 	free(key);
307 	return (res);
308 }
309 
310 static nis_backend_op_t serv_ops[] = {
311 	_nss_nis_destr,
312 	_nss_nis_endent,
313 	_nss_nis_setent,
314 	_nss_nis_getent_netdb,
315 	getbyname,
316 	getbyport
317 };
318 
319 /*ARGSUSED*/
320 nss_backend_t *
_nss_nis_services_constr(dummy1,dummy2,dummy3)321 _nss_nis_services_constr(dummy1, dummy2, dummy3)
322 	const char	*dummy1, *dummy2, *dummy3;
323 {
324 	return (_nss_nis_constr(serv_ops,
325 				sizeof (serv_ops) / sizeof (serv_ops[0]),
326 				"services.byname"));
327 }
328