xref: /titanic_51/usr/src/lib/libresolv/res_query.c (revision 4bc0a2ef2b7ba50a7a717e7ddbf31472ad28e358)
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, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
28 /*	  All Rights Reserved  	*/
29 
30 /*
31  * University Copyright- Copyright (c) 1982, 1986, 1988
32  * The Regents of the University of California
33  * All Rights Reserved
34  *
35  * University Acknowledgment- Portions of this document are derived from
36  * software developed by the University of California, Berkeley, and its
37  * contributors.
38  */
39 
40 #pragma ident	"%Z%%M%	%I%	%E% SMI"
41 
42 #include "synonyms.h"
43 
44 #include <sys/param.h>
45 #include <sys/socket.h>
46 #include <netinet/in.h>
47 #include <ctype.h>
48 #include <netdb.h>
49 #include <stdio.h>
50 #include <errno.h>
51 #include <string.h>
52 #include <arpa/inet.h>
53 #include <arpa/nameser.h>
54 #include <resolv.h>
55 
56 #if PACKETSZ > 1024
57 #define	MAXPACKET	PACKETSZ
58 #else
59 #define	MAXPACKET	1024
60 #endif
61 
62 int h_errno;
63 
64 /*
65  * Formulate a normal query, send, and await answer.
66  * Returned answer is placed in supplied buffer "answer".
67  * Perform preliminary check of answer, returning success only
68  * if no error is indicated and the answer count is nonzero.
69  * Return the size of the response on success, -1 on error.
70  * Error number is left in h_errno.
71  * Caller must parse answer and determine whether it answers the question.
72  */
73 int
74 res_query(name, class, type, answer, anslen)
75 	char *name;		/* domain name */
76 	int class, type;	/* class and type of query */
77 	u_char *answer;		/* buffer to put answer */
78 	int anslen;		/* size of answer buffer */
79 {
80 	char buf[MAXPACKET];
81 	HEADER *hp;
82 	int n;
83 
84 	if ((_res.options & RES_INIT) == 0 && res_init() == -1)
85 		return (-1);
86 #ifdef DEBUG
87 	if (_res.options & RES_DEBUG)
88 		printf("res_query(%s, %d, %d)\n", name, class, type);
89 #endif
90 	n = res_mkquery(QUERY, name, class, type, (char *)NULL, 0, NULL,
91 	    buf, sizeof (buf));
92 
93 	if (n <= 0) {
94 #ifdef DEBUG
95 		if (_res.options & RES_DEBUG)
96 			printf("res_query: mkquery failed\n");
97 #endif
98 		h_errno = NO_RECOVERY;
99 		return (n);
100 	}
101 	n = res_send(buf, n, answer, anslen);
102 	if (n < 0) {
103 #ifdef DEBUG
104 		if (_res.options & RES_DEBUG)
105 			printf("res_query: send error\n");
106 #endif
107 		h_errno = TRY_AGAIN;
108 		return (n);
109 	}
110 
111 	hp = (HEADER *) answer;
112 	if (hp->rcode != NOERROR || ntohs(hp->ancount) == 0) {
113 #ifdef DEBUG
114 		if (_res.options & RES_DEBUG)
115 			printf("rcode = %d, ancount=%d\n", hp->rcode,
116 			    ntohs(hp->ancount));
117 #endif
118 		switch (hp->rcode) {
119 			case NXDOMAIN:
120 				h_errno = HOST_NOT_FOUND;
121 				break;
122 			case SERVFAIL:
123 				h_errno = TRY_AGAIN;
124 				break;
125 			case NOERROR:
126 				h_errno = NO_DATA;
127 				break;
128 			case FORMERR:
129 			case NOTIMP:
130 			case REFUSED:
131 			default:
132 				h_errno = NO_RECOVERY;
133 				break;
134 		}
135 		return (-1);
136 	}
137 	if (hp->rcode == NOERROR && ntohs(hp->ancount) > 0)
138 		h_errno = 0;
139 	return (n);
140 }
141 
142 /*
143  * Formulate a normal query, send, and retrieve answer in supplied buffer.
144  * Return the size of the response on success, -1 on error.
145  * If enabled, implement search rules until answer or unrecoverable failure
146  * is detected.  Error number is left in h_errno.
147  * Only useful for queries in the same name hierarchy as the local host
148  * (not, for example, for host address-to-name lookups in domain in-addr.arpa).
149  */
150 int
151 res_search(name, class, type, answer, anslen)
152 	char *name;		/* domain name */
153 	int class, type;	/* class and type of query */
154 	u_char *answer;		/* buffer to put answer */
155 	int anslen;		/* size of answer */
156 {
157 	register char *cp, **domain;
158 	int n, ret, got_nodata = 0;
159 	char *hostalias();
160 
161 	if ((_res.options & RES_INIT) == 0 && res_init() == -1)
162 		return (-1);
163 
164 	errno = 0;
165 	h_errno = HOST_NOT_FOUND;		/* default, if we never query */
166 	for (cp = name, n = 0; *cp; cp++)
167 		if (*cp == '.')
168 			n++;
169 	if (n == 0 && (cp = hostalias(name)))
170 		return (res_query(cp, class, type, answer, anslen));
171 
172 	/*
173 	 * We do at least one level of search if
174 	 *	- there is no dot and RES_DEFNAME is set, or
175 	 *	- there is at least one dot, there is no trailing dot,
176 	 *	  and RES_DNSRCH is set.
177 	 */
178 	if ((n == 0 && _res.options & RES_DEFNAMES) ||
179 		(n != 0 && *--cp != '.' && _res.options & RES_DNSRCH)) {
180 		for (domain = _res.dnsrch; *domain; domain++) {
181 			ret = res_querydomain(name, *domain, class, type,
182 							answer, anslen);
183 			if (ret > 0)
184 				return (ret);
185 		/*
186 		 * If no server present, give up.
187 		 * If name isn't found in this domain,
188 		 * keep trying higher domains in the search list
189 		 * (if that's enabled).
190 		 * On a NO_DATA error, keep trying, otherwise
191 		 * a wildcard entry of another type could keep us
192 		 * from finding this entry higher in the domain.
193 		 * If we get some other error (negative answer or
194 		 * server failure), then stop searching up,
195 		 * but try the input name below in case it's fully-qualified.
196 		 */
197 			if (errno == ECONNREFUSED) {
198 				h_errno = TRY_AGAIN;
199 				return (-1);
200 			}
201 			if (h_errno == NO_DATA)
202 				got_nodata++;
203 			if ((h_errno != HOST_NOT_FOUND && h_errno != NO_DATA) ||
204 				(_res.options & RES_DNSRCH) == 0)
205 				break;
206 		}
207 	}
208 	/*
209 	 * If the search/default failed, try the name as fully-qualified,
210 	 * but only if it contained at least one dot (even trailing).
211 	 * This is purely a heuristic; we assume that any reasonable query
212 	 * about a top-level domain (for servers, SOA, etc) will not use
213 	 * res_search.
214 	 */
215 	if (n && (ret = res_querydomain(name, (char *)NULL, class, type,
216 	    answer, anslen)) > 0)
217 		return (ret);
218 	if (got_nodata)
219 		h_errno = NO_DATA;
220 	return (-1);
221 }
222 
223 /*
224  * Perform a call on res_query on the concatenation of name and domain,
225  * removing a trailing dot from name if domain is NULL.
226  */
227 int
228 res_querydomain(name, domain, class, type, answer, anslen)
229 	char *name, *domain;
230 	int class, type;	/* class and type of query */
231 	u_char *answer;		/* buffer to put answer */
232 	int anslen;		/* size of answer */
233 {
234 	char nbuf[2*MAXDNAME+2];
235 	char *longname = nbuf;
236 	int n;
237 
238 #ifdef DEBUG
239 	if (_res.options & RES_DEBUG) {
240 		if (domain == (char *)NULL)
241 			printf("res_querydomain(%s, NULL, %d, %d)\n",
242 					    name, class, type);
243 		else
244 			printf("res_querydomain(%s, %s, %d, %d)\n",
245 					    name, domain, class, type);
246 	}
247 #endif
248 	if (domain == NULL) {
249 		/*
250 		 * Check for trailing '.';
251 		 * copy without '.' if present.
252 		 */
253 		n = strlen(name) - 1;
254 		if (name[n] == '.' && n < sizeof (nbuf) - 1) {
255 #ifdef SYSV
256 			memcpy((void *)nbuf, (void *)name, n);
257 #else
258 			bcopy(name, nbuf, n);
259 #endif
260 			nbuf[n] = '\0';
261 		} else
262 			longname = name;
263 	} else
264 		(void) sprintf(nbuf, "%.*s.%.*s",
265 		    MAXDNAME, name, MAXDNAME, domain);
266 
267 	return (res_query(longname, class, type, answer, anslen));
268 }
269 
270 char *
271 hostalias(name)
272 	register char *name;
273 {
274 	register char *C1, *C2;
275 	FILE *fp;
276 	char *file, *getenv(), *strcpy(), *strncpy();
277 	char buf[BUFSIZ];
278 	static char abuf[MAXDNAME];
279 
280 	file = getenv("HOSTALIASES");
281 	if (file == NULL || (fp = fopen(file, "r")) == NULL)
282 		return (NULL);
283 	buf[sizeof (buf) - 1] = '\0';
284 	while (fgets(buf, sizeof (buf), fp)) {
285 		for (C1 = buf; *C1 && !isspace(*C1); ++C1);
286 		if (!*C1)
287 			break;
288 		*C1 = '\0';
289 		if (!strcasecmp(buf, name)) {
290 			while (isspace(*++C1));
291 			if (!*C1)
292 				break;
293 			for (C2 = C1 + 1; *C2 && !isspace(*C2); ++C2);
294 			abuf[sizeof (abuf) - 1] = *C2 = '\0';
295 			(void) strncpy(abuf, C1, sizeof (abuf) - 1);
296 			fclose(fp);
297 			return (abuf);
298 		}
299 	}
300 	fclose(fp);
301 	return (NULL);
302 }
303