1 /* Copyright (C) 1996-2013 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Extended from original form by Ulrich Drepper <drepper@cygnus.com>, 1996.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <http://www.gnu.org/licenses/>. */
19 /* Parts of this file are plain copies of the file `getnetnamadr.c' from
20 the bind package and it has the following copyright. */
22 /* Copyright (c) 1993 Carlos Leandro and Rui Salgueiro
23 * Dep. Matematica Universidade de Coimbra, Portugal, Europe
25 * Permission to use, copy, modify, and distribute this software for any
26 * purpose with or without fee is hereby granted, provided that the above
27 * copyright notice and this permission notice appear in all copies.
30 * Copyright (c) 1983, 1993
31 * The Regents of the University of California. All rights reserved.
33 * Redistribution and use in source and binary forms, with or without
34 * modification, are permitted provided that the following conditions
36 * 1. Redistributions of source code must retain the above copyright
37 * notice, this list of conditions and the following disclaimer.
38 * 2. Redistributions in binary form must reproduce the above copyright
39 * notice, this list of conditions and the following disclaimer in the
40 * documentation and/or other materials provided with the distribution.
41 * 4. Neither the name of the University nor the names of its contributors
42 * may be used to endorse or promote products derived from this software
43 * without specific prior written permission.
45 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
46 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
47 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
48 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
49 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
50 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
51 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
52 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
53 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
54 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
66 #include <arpa/inet.h>
68 /* Maximum number of aliases we allow. */
69 #define MAX_NR_ALIASES 48
73 # define MAXPACKET PACKETSZ
75 # define MAXPACKET 65536
86 /* We need this time later. */
87 typedef union querybuf
90 u_char buf
[MAXPACKET
];
93 /* These functions are defined in res_comp.c. */
94 #define NS_MAXCDNAME 255 /* maximum compressed domain name */
95 extern int __ns_name_ntop (const u_char
*, char *, size_t) __THROW
;
96 extern int __ns_name_unpack (const u_char
*, const u_char
*,
97 const u_char
*, u_char
*, size_t) __THROW
;
100 /* Prototypes for local functions. */
101 static enum nss_status
getanswer_r (const querybuf
*answer
, int anslen
,
102 struct netent
*result
, char *buffer
,
103 size_t buflen
, int *errnop
, int *h_errnop
,
104 lookup_method net_i
);
108 _nss_dns_getnetbyname_r (const char *name
, struct netent
*result
,
109 char *buffer
, size_t buflen
, int *errnop
,
112 /* Return entry for network with NAME. */
118 querybuf
*orig_net_buffer
;
121 enum nss_status status
;
123 if (__res_maybe_init (&_res
, 0) == -1)
124 return NSS_STATUS_UNAVAIL
;
126 qbuf
= strdupa (name
);
128 net_buffer
.buf
= orig_net_buffer
= (querybuf
*) alloca (1024);
130 anslen
= __libc_res_nsearch (&_res
, qbuf
, C_IN
, T_PTR
, net_buffer
.buf
->buf
,
131 1024, &net_buffer
.ptr
, NULL
, NULL
, NULL
);
136 if (net_buffer
.buf
!= orig_net_buffer
)
137 free (net_buffer
.buf
);
138 return (errno
== ECONNREFUSED
139 || errno
== EPFNOSUPPORT
140 || errno
== EAFNOSUPPORT
)
141 ? NSS_STATUS_UNAVAIL
: NSS_STATUS_NOTFOUND
;
144 status
= getanswer_r (net_buffer
.buf
, anslen
, result
, buffer
, buflen
,
145 errnop
, herrnop
, BYNAME
);
146 if (net_buffer
.buf
!= orig_net_buffer
)
147 free (net_buffer
.buf
);
153 _nss_dns_getnetbyaddr_r (uint32_t net
, int type
, struct netent
*result
,
154 char *buffer
, size_t buflen
, int *errnop
,
157 /* Return entry for network with NAME. */
158 enum nss_status status
;
164 querybuf
*orig_net_buffer
;
165 unsigned int net_bytes
[4];
171 /* No net address lookup for IPv6 yet. */
173 return NSS_STATUS_UNAVAIL
;
175 if (__res_maybe_init (&_res
, 0) == -1)
176 return NSS_STATUS_UNAVAIL
;
178 net2
= (u_int32_t
) net
;
179 for (cnt
= 4; net2
!= 0; net2
>>= 8)
180 net_bytes
[--cnt
] = net2
& 0xff;
185 /* Class A network. */
186 sprintf (qbuf
, "0.0.0.%u.in-addr.arpa", net_bytes
[3]);
189 /* Class B network. */
190 sprintf (qbuf
, "0.0.%u.%u.in-addr.arpa", net_bytes
[3], net_bytes
[2]);
193 /* Class C network. */
194 sprintf (qbuf
, "0.%u.%u.%u.in-addr.arpa", net_bytes
[3], net_bytes
[2],
198 /* Class D - E network. */
199 sprintf (qbuf
, "%u.%u.%u.%u.in-addr.arpa", net_bytes
[3], net_bytes
[2],
200 net_bytes
[1], net_bytes
[0]);
204 net_buffer
.buf
= orig_net_buffer
= (querybuf
*) alloca (1024);
206 anslen
= __libc_res_nquery (&_res
, qbuf
, C_IN
, T_PTR
, net_buffer
.buf
->buf
,
207 1024, &net_buffer
.ptr
, NULL
, NULL
, NULL
);
212 __set_errno (olderr
);
213 if (net_buffer
.buf
!= orig_net_buffer
)
214 free (net_buffer
.buf
);
215 return (err
== ECONNREFUSED
216 || err
== EPFNOSUPPORT
217 || err
== EAFNOSUPPORT
)
218 ? NSS_STATUS_UNAVAIL
: NSS_STATUS_NOTFOUND
;
221 status
= getanswer_r (net_buffer
.buf
, anslen
, result
, buffer
, buflen
,
222 errnop
, herrnop
, BYADDR
);
223 if (net_buffer
.buf
!= orig_net_buffer
)
224 free (net_buffer
.buf
);
225 if (status
== NSS_STATUS_SUCCESS
)
227 /* Strip trailing zeros. */
228 unsigned int u_net
= net
; /* Maybe net should be unsigned? */
230 while ((u_net
& 0xff) == 0 && u_net
!= 0)
232 result
->n_net
= u_net
;
240 #define offsetof(Type, Member) ((size_t) &((Type *) NULL)->Member)
242 static enum nss_status
243 getanswer_r (const querybuf
*answer
, int anslen
, struct netent
*result
,
244 char *buffer
, size_t buflen
, int *errnop
, int *h_errnop
,
248 * Find first satisfactory answer
250 * answer --> +------------+ ( MESSAGE )
253 * | Question | the question for the name server
255 * | Answer | RRs answering the question
257 * | Authority | RRs pointing toward an authority
258 * | Additional | RRs holding additional information
263 char *aliases
[MAX_NR_ALIASES
];
267 uintptr_t pad
= -(uintptr_t) buffer
% __alignof__ (struct net_data
);
270 if (__builtin_expect (buflen
< sizeof (*net_data
) + pad
, 0))
272 /* The buffer is too small. */
275 *h_errnop
= NETDB_INTERNAL
;
276 return NSS_STATUS_TRYAGAIN
;
280 net_data
= (struct net_data
*) buffer
;
281 int linebuflen
= buflen
- offsetof (struct net_data
, linebuffer
);
282 if (buflen
- offsetof (struct net_data
, linebuffer
) != linebuflen
)
283 linebuflen
= INT_MAX
;
284 const unsigned char *end_of_message
= &answer
->buf
[anslen
];
285 const HEADER
*header_pointer
= &answer
->hdr
;
286 /* #/records in the answer section. */
287 int answer_count
= ntohs (header_pointer
->ancount
);
288 /* #/entries in the question section. */
289 int question_count
= ntohs (header_pointer
->qdcount
);
290 char *bp
= net_data
->linebuffer
;
291 const unsigned char *cp
= &answer
->buf
[HFIXEDSZ
];
292 char **alias_pointer
;
294 u_char packtmp
[NS_MAXCDNAME
];
296 if (question_count
== 0)
298 /* FIXME: the Sun version uses for host name lookup an additional
299 parameter for pointing to h_errno. this is missing here.
300 OSF/1 has a per-thread h_errno variable. */
301 if (header_pointer
->aa
!= 0)
303 __set_h_errno (HOST_NOT_FOUND
);
304 return NSS_STATUS_NOTFOUND
;
308 __set_h_errno (TRY_AGAIN
);
309 return NSS_STATUS_TRYAGAIN
;
313 /* Skip the question part. */
314 while (question_count
-- > 0)
316 int n
= __dn_skipname (cp
, end_of_message
);
317 if (n
< 0 || end_of_message
- (cp
+ n
) < QFIXEDSZ
)
319 __set_h_errno (NO_RECOVERY
);
320 return NSS_STATUS_UNAVAIL
;
325 alias_pointer
= result
->n_aliases
= &net_data
->aliases
[0];
326 *alias_pointer
= NULL
;
329 while (--answer_count
>= 0 && cp
< end_of_message
)
331 int n
= dn_expand (answer
->buf
, end_of_message
, cp
, bp
, linebuflen
);
334 n
= __ns_name_unpack (answer
->buf
, end_of_message
, cp
,
335 packtmp
, sizeof packtmp
);
336 if (n
!= -1 && __ns_name_ntop (packtmp
, bp
, linebuflen
) == -1)
338 if (errno
== EMSGSIZE
)
344 if (n
> 0 && bp
[0] == '.')
347 if (n
< 0 || res_dnok (bp
) == 0)
351 GETSHORT (class, cp
);
352 cp
+= INT32SZ
; /* TTL */
355 if (class == C_IN
&& type
== T_PTR
)
357 n
= __ns_name_unpack (answer
->buf
, end_of_message
, cp
,
358 packtmp
, sizeof packtmp
);
359 if (n
!= -1 && __ns_name_ntop (packtmp
, bp
, linebuflen
) == -1)
361 if (errno
== EMSGSIZE
)
367 if (n
< 0 || !res_hnok (bp
))
369 /* XXX What does this mean? The original form from bind
370 returns NULL. Incrementing cp has no effect in any case.
371 What should I return here. ??? */
373 return NSS_STATUS_UNAVAIL
;
376 if (alias_pointer
+ 2 < &net_data
->aliases
[MAX_NR_ALIASES
])
378 *alias_pointer
++ = bp
;
382 result
->n_addrtype
= class == C_IN
? AF_INET
: AF_UNSPEC
;
390 *alias_pointer
= NULL
;
394 result
->n_name
= *result
->n_aliases
++;
396 return NSS_STATUS_SUCCESS
;
400 char **ap
= result
->n_aliases
++;
403 /* Check each alias name for being of the forms:
404 4.3.2.1.in-addr.arpa = net 1.2.3.4
405 3.2.1.in-addr.arpa = net 0.1.2.3
406 2.1.in-addr.arpa = net 0.0.1.2
407 1.in-addr.arpa = net 0.0.0.1
409 uint32_t val
= 0; /* Accumulator for n_net value. */
410 unsigned int shift
= 0; /* Which part we are parsing now. */
411 const char *p
= *ap
; /* Consuming the string. */
414 /* Match the leading 0 or 0[xX] base indicator. */
415 unsigned int base
= 10;
416 if (*p
== '0' && p
[1] != '.')
420 if (*p
== 'x' || *p
== 'X')
425 break; /* No digit here. Give up on alias. */
431 uint32_t part
= 0; /* Accumulates this part's number. */
434 if (isdigit (*p
) && (*p
- '0' < base
))
435 part
= (part
* base
) + (*p
- '0');
436 else if (base
== 16 && isxdigit (*p
))
437 part
= (part
<< 4) + 10 + (tolower (*p
) - 'a');
439 } while (*p
!= '\0' && *p
!= '.');
442 break; /* Bad form. Give up on this name. */
444 /* Install this as the next more significant byte. */
445 val
|= part
<< shift
;
449 /* If we are out of digits now, there are two cases:
450 1. We are done with digits and now see "in-addr.arpa".
451 2. This is not the droid we are looking for. */
452 if (!isdigit (*p
) && !strcasecmp (p
, "in-addr.arpa"))
455 return NSS_STATUS_SUCCESS
;
458 /* Keep going when we have seen fewer than 4 parts. */
459 } while (shift
< 32);
466 __set_h_errno (TRY_AGAIN
);
467 return NSS_STATUS_TRYAGAIN
;