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