1 /*-
2 * SPDX-License-Identifier: BSD-3-Clause
3 *
4 * Copyright (c) 1983, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32 /* Portions Copyright (c) 1993 Carlos Leandro and Rui Salgueiro
33 * Dep. Matematica Universidade de Coimbra, Portugal, Europe
34 *
35 * Permission to use, copy, modify, and distribute this software for any
36 * purpose with or without fee is hereby granted, provided that the above
37 * copyright notice and this permission notice appear in all copies.
38 *
39 * from getnetent.c 1.1 (Coimbra) 93/06/02
40 */
41
42 #include <sys/types.h>
43 #include <sys/socket.h>
44 #include <netinet/in.h>
45 #include <arpa/inet.h>
46 #include <arpa/nameser.h>
47 #include <errno.h>
48 #include <netdb.h>
49 #include <resolv.h>
50 #include <stdio.h>
51 #include <string.h>
52 #include <stdarg.h>
53 #include <nsswitch.h>
54 #include "netdb_private.h"
55
56 void
_setnethtent(int f,struct netent_data * ned)57 _setnethtent(int f, struct netent_data *ned)
58 {
59
60 if (ned->netf == NULL)
61 ned->netf = fopen(_PATH_NETWORKS, "re");
62 else
63 rewind(ned->netf);
64 ned->stayopen |= f;
65 }
66
67 void
_endnethtent(struct netent_data * ned)68 _endnethtent(struct netent_data *ned)
69 {
70
71 if (ned->netf) {
72 fclose(ned->netf);
73 ned->netf = NULL;
74 }
75 ned->stayopen = 0;
76 }
77
78 static int
getnetent_p(struct netent * ne,struct netent_data * ned)79 getnetent_p(struct netent *ne, struct netent_data *ned)
80 {
81 char *p, *bp, *ep;
82 char *cp, **q;
83 int len;
84 char line[BUFSIZ + 1];
85
86 if (ned->netf == NULL &&
87 (ned->netf = fopen(_PATH_NETWORKS, "re")) == NULL)
88 return (-1);
89 again:
90 p = fgets(line, sizeof line, ned->netf);
91 if (p == NULL)
92 return (-1);
93 if (*p == '#')
94 goto again;
95 cp = strpbrk(p, "#\n");
96 if (cp != NULL)
97 *cp = '\0';
98 bp = ned->netbuf;
99 ep = ned->netbuf + sizeof ned->netbuf;
100 ne->n_name = bp;
101 cp = strpbrk(p, " \t");
102 if (cp == NULL)
103 goto again;
104 *cp++ = '\0';
105 len = strlen(p) + 1;
106 if (ep - bp < len) {
107 RES_SET_H_ERRNO(__res_state(), NO_RECOVERY);
108 return (-1);
109 }
110 strlcpy(bp, p, ep - bp);
111 bp += len;
112 while (*cp == ' ' || *cp == '\t')
113 cp++;
114 p = strpbrk(cp, " \t");
115 if (p != NULL)
116 *p++ = '\0';
117 ne->n_net = inet_network(cp);
118 ne->n_addrtype = AF_INET;
119 q = ne->n_aliases = ned->net_aliases;
120 if (p != NULL) {
121 cp = p;
122 while (cp && *cp) {
123 if (*cp == ' ' || *cp == '\t') {
124 cp++;
125 continue;
126 }
127 if (q >= &ned->net_aliases[_MAXALIASES - 1])
128 break;
129 p = strpbrk(cp, " \t");
130 if (p != NULL)
131 *p++ = '\0';
132 len = strlen(cp) + 1;
133 if (ep - bp < len)
134 break;
135 strlcpy(bp, cp, ep - bp);
136 *q++ = bp;
137 bp += len;
138 cp = p;
139 }
140 }
141 *q = NULL;
142 return (0);
143 }
144
145 int
getnetent_r(struct netent * nptr,char * buffer,size_t buflen,struct netent ** result,int * h_errnop)146 getnetent_r(struct netent *nptr, char *buffer, size_t buflen,
147 struct netent **result, int *h_errnop)
148 {
149 struct netent_data *ned;
150 struct netent ne;
151 res_state statp;
152
153 statp = __res_state();
154 if ((ned = __netent_data_init()) == NULL) {
155 RES_SET_H_ERRNO(statp, NETDB_INTERNAL);
156 *h_errnop = statp->res_h_errno;
157 return (-1);
158 }
159 if (getnetent_p(&ne, ned) != 0)
160 return (-1);
161 if (__copy_netent(&ne, nptr, buffer, buflen) != 0) {
162 RES_SET_H_ERRNO(statp, NETDB_INTERNAL);
163 *h_errnop = statp->res_h_errno;
164 return ((errno != 0) ? errno : -1);
165 }
166 *result = nptr;
167 return (0);
168 }
169
170 struct netent *
getnetent(void)171 getnetent(void)
172 {
173 struct netdata *nd;
174 struct netent *rval;
175 int ret_h_errno;
176
177 if ((nd = __netdata_init()) == NULL)
178 return (NULL);
179 if (getnetent_r(&nd->net, nd->data, sizeof(nd->data), &rval,
180 &ret_h_errno) != 0)
181 return (NULL);
182 return (rval);
183 }
184
185 int
_ht_getnetbyname(void * rval,void * cb_data,va_list ap)186 _ht_getnetbyname(void *rval, void *cb_data, va_list ap)
187 {
188 const char *name;
189 char *buffer;
190 size_t buflen;
191 int *errnop, *h_errnop;
192 struct netent *nptr, ne;
193 struct netent_data *ned;
194 char **cp;
195 res_state statp;
196 int error;
197
198 name = va_arg(ap, const char *);
199 nptr = va_arg(ap, struct netent *);
200 buffer = va_arg(ap, char *);
201 buflen = va_arg(ap, size_t);
202 errnop = va_arg(ap, int *);
203 h_errnop = va_arg(ap, int *);
204
205 statp = __res_state();
206 if ((ned = __netent_data_init()) == NULL) {
207 RES_SET_H_ERRNO(statp, NETDB_INTERNAL);
208 *h_errnop = statp->res_h_errno;
209 return (NS_UNAVAIL);
210 }
211
212 _setnethtent(ned->stayopen, ned);
213 while ((error = getnetent_p(&ne, ned)) == 0) {
214 if (strcasecmp(ne.n_name, name) == 0)
215 break;
216 for (cp = ne.n_aliases; *cp != 0; cp++)
217 if (strcasecmp(*cp, name) == 0)
218 goto found;
219 }
220 found:
221 if (!ned->stayopen)
222 _endnethtent(ned);
223 if (error != 0) {
224 *h_errnop = statp->res_h_errno;
225 return (NS_NOTFOUND);
226 }
227 if (__copy_netent(&ne, nptr, buffer, buflen) != 0) {
228 *errnop = errno;
229 RES_SET_H_ERRNO(statp, NETDB_INTERNAL);
230 *h_errnop = statp->res_h_errno;
231 return (NS_RETURN);
232 }
233 *((struct netent **)rval) = nptr;
234 return (NS_SUCCESS);
235 }
236
237 int
_ht_getnetbyaddr(void * rval,void * cb_data,va_list ap)238 _ht_getnetbyaddr(void *rval, void *cb_data, va_list ap)
239 {
240 uint32_t net;
241 int type;
242 char *buffer;
243 size_t buflen;
244 int *errnop, *h_errnop;
245 struct netent *nptr, ne;
246 struct netent_data *ned;
247 res_state statp;
248 int error;
249
250 net = va_arg(ap, uint32_t);
251 type = va_arg(ap, int);
252 nptr = va_arg(ap, struct netent *);
253 buffer = va_arg(ap, char *);
254 buflen = va_arg(ap, size_t);
255 errnop = va_arg(ap, int *);
256 h_errnop = va_arg(ap, int *);
257
258 statp = __res_state();
259 if ((ned = __netent_data_init()) == NULL) {
260 RES_SET_H_ERRNO(statp, NETDB_INTERNAL);
261 *h_errnop = statp->res_h_errno;
262 return (NS_UNAVAIL);
263 }
264
265 _setnethtent(ned->stayopen, ned);
266 while ((error = getnetent_p(&ne, ned)) == 0)
267 if (ne.n_addrtype == type && ne.n_net == net)
268 break;
269 if (!ned->stayopen)
270 _endnethtent(ned);
271 if (error != 0) {
272 *h_errnop = statp->res_h_errno;
273 return (NS_NOTFOUND);
274 }
275 if (__copy_netent(&ne, nptr, buffer, buflen) != 0) {
276 *errnop = errno;
277 RES_SET_H_ERRNO(statp, NETDB_INTERNAL);
278 *h_errnop = statp->res_h_errno;
279 return (NS_RETURN);
280 }
281 *((struct netent **)rval) = nptr;
282 return (NS_SUCCESS);
283 }
284