--- /dev/null
+/* Copyright (C) 2004 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Ulrich Drepper <drepper@redhat.com>, 2004.
+
+ The GNU C Library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ The GNU C Library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with the GNU C Library; if not, write to the Free
+ Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+ 02111-1307 USA. */
+
+#include <errno.h>
+#include <netdb.h>
+#include <resolv.h>
+#include <stdlib.h>
+#include <arpa/nameser.h>
+#include <nsswitch.h>
+
+
+#if PACKETSZ > 65536
+# define MAXPACKET PACKETSZ
+#else
+# define MAXPACKET 65536
+#endif
+
+
+/* We need this time later. */
+typedef union querybuf
+{
+ HEADER hdr;
+ unsigned char buf[MAXPACKET];
+} querybuf;
+
+
+enum nss_status
+_nss_dns_getcanonname_r (const char *name, char *buffer, size_t buflen,
+ char **result,int *errnop, int *h_errnop)
+{
+ /* Just an alibi buffer, res_nquery will allocate a real buffer for
+ us. */
+ unsigned char buf[20];
+ union
+ {
+ querybuf *buf;
+ unsigned char *ptr;
+ } ansp = { .ptr = buf };
+ enum nss_status status;
+
+ int r = __libc_res_nquery (&_res, name, ns_c_in, ns_t_cname,
+ buf, sizeof (buf), &ansp.ptr);
+ if (r > 0)
+ {
+ /* We need to decode the response. Just one question record.
+ And if we got no answers we bail out, too. */
+ if (ansp.buf->hdr.qdcount != htons (1)
+ || ansp.buf->hdr.ancount == 0)
+ goto unavail;
+
+ /* Beginning and end of the buffer with query, answer, and the
+ rest. */
+ unsigned char *ptr = &ansp.buf->buf[sizeof (HEADER)];
+ unsigned char *endptr = ansp.ptr + r;
+
+ /* Skip over the query. This is the name, type, and class. */
+ int s = __dn_skipname (ptr, endptr);
+ if (s < 0)
+ goto unavail;
+
+ /* Skip over the name and the two 16-bit values containing type
+ and class. */
+ ptr += s + 2 * sizeof (uint16_t);
+
+ /* Now the reply. First again the name from the query, then
+ type, class, TTL, and the length of the RDATA. */
+ s = __dn_skipname (ptr, endptr);
+ if (s < 0)
+ goto unavail;
+
+ ptr += s;
+
+ /* Check whether type and class match. */
+ if (*(uint16_t *) ptr != htons (ns_t_cname))
+ goto unavail;
+
+ ptr += sizeof (uint16_t);
+ if (*(uint16_t *) ptr != htons (ns_c_in))
+ goto unavail;
+
+ /* Also skip over the TTL and rdata length. */
+ ptr += sizeof (uint16_t) + sizeof (uint32_t) + sizeof (int16_t);
+
+ /* Now the name we are looking for. */
+ s = __dn_expand (ansp.buf->buf, endptr, ptr, buffer, buflen);
+ if (s < 0)
+ {
+ if (errno != EMSGSIZE)
+ goto unavail;
+
+ /* The buffer is too small. */
+ *errnop = ERANGE;
+ status = NSS_STATUS_TRYAGAIN;
+ h_errno = NETDB_INTERNAL;
+ }
+ else
+ {
+ /* Success. */
+ *result = buffer;
+ status = NSS_STATUS_SUCCESS;
+ }
+ }
+ else if (h_errno == TRY_AGAIN)
+ {
+ again:
+ status = NSS_STATUS_TRYAGAIN;
+ *errnop = errno;
+ }
+ else
+ {
+ unavail:
+ status = NSS_STATUS_UNAVAIL;
+ *errnop = errno;
+ }
+ *h_errnop = h_errno;
+
+ if (ansp.ptr != buf)
+ free (ansp.ptr);
+
+ return status;
+}
{
struct gaih_addrtuple *next;
int family;
- char addr[16];
+ uint32_t addr[4];
uint32_t scopeid;
};
no_data = 0; \
do { \
tmpbuf = extend_alloca (tmpbuf, tmpbuflen, 2 * tmpbuflen); \
- rc = __gethostbyname2_r (name, _family, &th, tmpbuf, \
- tmpbuflen, &h, &herrno); \
- } while (rc == ERANGE && herrno == NETDB_INTERNAL); \
- if (rc != 0) \
- { \
- if (herrno == NETDB_INTERNAL) \
- { \
- __set_h_errno (herrno); \
- return -EAI_SYSTEM; \
- } \
- if (herrno == TRY_AGAIN) \
- no_data = EAI_AGAIN; \
- else \
- no_data = herrno == NO_DATA; \
- } \
- else if (h != NULL) \
- { \
- for (i = 0; h->h_addr_list[i]; i++) \
- { \
- if (*pat == NULL) { \
- *pat = __alloca (sizeof (struct gaih_addrtuple)); \
- (*pat)->scopeid = 0; \
- } \
- (*pat)->next = NULL; \
- (*pat)->family = _family; \
- memcpy ((*pat)->addr, h->h_addr_list[i], \
- sizeof(_type)); \
- pat = &((*pat)->next); \
- } \
- if (_family == AF_INET6) \
- got_ipv6 = true; \
- } \
- else if (_family == AF_INET6 && (req->ai_flags & AI_V4MAPPED)) \
- { \
- /* We have to add V4 mapped addresses. Maybe we discard them \
- later again but we get them anyhow for now. */ \
- while ((rc = __gethostbyname2_r (name, AF_INET6, &th, tmpbuf, \
- tmpbuflen, &h, &herrno)) == ERANGE \
- && herrno == NETDB_INTERNAL) \
- tmpbuf = extend_alloca (tmpbuf, tmpbuflen, 2 * tmpbuflen); \
- \
- if (rc != 0) \
- { \
- if (herrno == NETDB_INTERNAL) \
- { \
- __set_h_errno (herrno); \
- return -EAI_SYSTEM; \
- } \
- if (herrno == TRY_AGAIN) \
- no_data = EAI_AGAIN; \
- else \
- no_data = herrno == NO_DATA; \
- } \
- else if (h != NULL) \
- { \
- for (i = 0; h->h_addr_list[i]; ++i) \
- { \
- if (*pat == NULL) \
- { \
- *pat = __alloca (sizeof (struct gaih_addrtuple)); \
- (*pat)->scopeid = 0; \
- } \
- uint32_t *addr = (uint32_t *) (*pat)->addr; \
- (*pat)->next = NULL; \
- (*pat)->family = _family; \
- addr[3] = *(uint32_t *) h->h_addr_list[i]; \
- addr[2] = htonl (0xffff); \
- addr[1] = 0; \
- addr[0] = 0; \
- pat = &((*pat)->next); \
- } \
- } \
- } \
- }
-
-
-#define gethosts2(_family, _type) \
- { \
- int i, herrno; \
- size_t tmpbuflen; \
- struct hostent th; \
- char *tmpbuf = NULL; \
- tmpbuflen = 512; \
- no_data = 0; \
- do { \
- tmpbuf = extend_alloca (tmpbuf, tmpbuflen, 2 * tmpbuflen); \
rc = 0; \
status = DL_CALL_FCT (fct, (name, _family, &th, tmpbuf, \
tmpbuflen, &rc, &herrno)); \
{ \
for (i = 0; h->h_addr_list[i]; i++) \
{ \
- if (*pat == NULL) { \
- *pat = __alloca (sizeof (struct gaih_addrtuple)); \
- (*pat)->scopeid = 0; \
- } \
+ if (*pat == NULL) \
+ { \
+ *pat = __alloca (sizeof (struct gaih_addrtuple)); \
+ (*pat)->scopeid = 0; \
+ } \
+ uint32_t *addr = (*pat)->addr; \
(*pat)->next = NULL; \
- (*pat)->family = _family; \
- memcpy ((*pat)->addr, h->h_addr_list[i], \
- sizeof(_type)); \
+ if (_family == AF_INET && req->ai_family == AF_INET6) \
+ { \
+ (*pat)->family = AF_INET6; \
+ addr[3] = *(uint32_t *) h->h_addr_list[i]; \
+ addr[2] = htonl (0xffff); \
+ addr[1] = 0; \
+ addr[0] = 0; \
+ } \
+ else \
+ { \
+ (*pat)->family = _family; \
+ memcpy (addr, h->h_addr_list[i], sizeof(_type)); \
+ } \
pat = &((*pat)->next); \
} \
+ \
+ if (_family == AF_INET6 && i > 0) \
+ got_ipv6 = true; \
} \
}
+
typedef enum nss_status (*nss_gethostbyname2_r)
(const char *name, int af, struct hostent *host,
char *buffer, size_t buflen, int *errnop,
int *h_errnop);
+typedef enum nss_status (*nss_getcanonname_r)
+ (const char *name, char *buffer, size_t buflen, char **result,
+ int *errnop, int *h_errnop);
extern service_user *__nss_hosts_database attribute_hidden;
static int
struct gaih_addrtuple *at = NULL;
int rc;
bool got_ipv6 = false;
+ const char *canon = NULL;
if (req->ai_protocol || req->ai_socktype)
{
at->family = AF_INET;
else if (req->ai_family == AF_INET6 && req->ai_flags & AI_V4MAPPED)
{
- ((uint32_t *) at->addr)[3] = *(uint32_t *) at->addr;
- ((uint32_t *) at->addr)[2] = htonl (0xffff);
- ((uint32_t *) at->addr)[1] = 0;
- ((uint32_t *) at->addr)[0] = 0;
+ at->addr[3] = at->addr[0];
+ at->addr[2] = htonl (0xffff);
+ at->addr[1] = 0;
+ at->addr[0] = 0;
at->family = AF_INET6;
}
else
else if (req->ai_family == AF_INET
&& IN6_IS_ADDR_V4MAPPED (at->addr))
{
- *(uint32_t *) at->addr = ((uint32_t *) at->addr)[3];
+ at->addr[0] = at->addr[3];
at->family = AF_INET;
}
else
struct gaih_addrtuple **pat = &at;
int no_data = 0;
int no_inet6_data = 0;
+ service_user *nip = NULL;
+ enum nss_status inet6_status = NSS_STATUS_UNAVAIL;
+ enum nss_status status = NSS_STATUS_UNAVAIL;
+ int no_more;
+ nss_gethostbyname2_r fct;
+ int old_res_options;
+
+ if (__nss_hosts_database != NULL)
+ {
+ no_more = 0;
+ nip = __nss_hosts_database;
+ }
+ else
+ no_more = __nss_database_lookup ("hosts", NULL,
+ "dns [!UNAVAIL=return] files",
+ &nip);
+
+ if (__res_maybe_init (&_res, 0) == -1)
+ no_more = 1;
+
/* If we are looking for both IPv4 and IPv6 address we don't
want the lookup functions to automatically promote IPv4
addresses to IPv6 addresses. Currently this is decided
by setting the RES_USE_INET6 bit in _res.options. */
- if (req->ai_family == AF_UNSPEC)
- {
- service_user *nip = NULL;
- enum nss_status inet6_status, status = NSS_STATUS_UNAVAIL;
- int no_more;
- nss_gethostbyname2_r fct;
- int old_res_options;
-
- if (__nss_hosts_database != NULL)
- {
- no_more = 0;
- nip = __nss_hosts_database;
- }
- else
- no_more = __nss_database_lookup ("hosts", NULL,
- "dns [!UNAVAIL=return] files",
- &nip);
+ old_res_options = _res.options;
+ _res.options &= ~RES_USE_INET6;
- if (__res_maybe_init (&_res, 0) == -1)
- no_more = 1;
- old_res_options = _res.options;
- _res.options &= ~RES_USE_INET6;
+ while (!no_more)
+ {
+ fct = __nss_lookup_function (nip, "gethostbyname2_r");
- while (!no_more)
+ if (fct != NULL)
{
- fct = __nss_lookup_function (nip, "gethostbyname2_r");
-
- if (fct != NULL)
+ if (req->ai_family == AF_INET6
+ || req->ai_family == AF_UNSPEC)
{
- gethosts2 (AF_INET6, struct in6_addr);
+ gethosts (AF_INET6, struct in6_addr);
no_inet6_data = no_data;
inet6_status = status;
- gethosts2 (AF_INET, struct in_addr);
-
- /* If we found one address for AF_INET or AF_INET6,
- don't continue the search. */
- if (inet6_status == NSS_STATUS_SUCCESS ||
- status == NSS_STATUS_SUCCESS)
- break;
-
- /* We can have different states for AF_INET
- and AF_INET6. Try to find a usefull one for
- both. */
- if (inet6_status == NSS_STATUS_TRYAGAIN)
- status = NSS_STATUS_TRYAGAIN;
- else if (status == NSS_STATUS_UNAVAIL &&
- inet6_status != NSS_STATUS_UNAVAIL)
- status = inet6_status;
}
+ if (req->ai_family == AF_INET
+ || req->ai_family == AF_UNSPEC
+ || (req->ai_family == AF_INET6
+ && (req->ai_flags & AI_V4MAPPED)))
+ {
+ gethosts (AF_INET, struct in_addr);
- if (nss_next_action (nip, status) == NSS_ACTION_RETURN)
- break;
+ if (req->ai_family == AF_INET)
+ {
+ no_inet6_data = no_data;
+ inet6_status = status;
+ }
+ }
- if (nip->next == NULL)
- no_more = -1;
- else
- nip = nip->next;
+ /* If we found one address for AF_INET or AF_INET6,
+ don't continue the search. */
+ if (inet6_status == NSS_STATUS_SUCCESS
+ || status == NSS_STATUS_SUCCESS)
+ {
+ /* If we need the canonical name, get it from the same
+ service as the result. */
+ nss_getcanonname_r cfct;
+ int herrno;
+
+ cfct = __nss_lookup_function (nip, "getcanonname_r");
+ if (cfct != NULL)
+ {
+ const size_t max_fqdn_len = 256;
+ char *buf = alloca (max_fqdn_len);
+ char *s;
+
+ if (DL_CALL_FCT (cfct, (name, buf, max_fqdn_len,
+ &s, &rc, &herrno))
+ == NSS_STATUS_SUCCESS)
+ canon = s;
+ else
+ /* Set to name now to avoid using
+ gethostbyaddr. */
+ canon = name;
+ }
+
+ break;
+ }
+
+ /* We can have different states for AF_INET and
+ AF_INET6. Try to find a useful one for both. */
+ if (inet6_status == NSS_STATUS_TRYAGAIN)
+ status = NSS_STATUS_TRYAGAIN;
+ else if (status == NSS_STATUS_UNAVAIL &&
+ inet6_status != NSS_STATUS_UNAVAIL)
+ status = inet6_status;
}
- _res.options = old_res_options;
- }
- else if (req->ai_family == AF_INET6)
- {
- gethosts (AF_INET6, struct in6_addr);
- no_inet6_data = no_data;
- }
- else if (req->ai_family == AF_INET)
- {
- gethosts (AF_INET, struct in_addr);
- no_inet6_data = no_data;
+ if (nss_next_action (nip, status) == NSS_ACTION_RETURN)
+ break;
+
+ if (nip->next == NULL)
+ no_more = -1;
+ else
+ nip = nip->next;
}
+ _res.options = old_res_options;
+
if (no_data != 0 && no_inet6_data != 0)
{
/* If both requests timed out report this. */
atr = at = __alloca (sizeof (struct gaih_addrtuple));
memset (at, '\0', sizeof (struct gaih_addrtuple));
- if (req->ai_family == 0)
+ if (req->ai_family == AF_UNSPEC)
{
at->next = __alloca (sizeof (struct gaih_addrtuple));
memset (at->next, '\0', sizeof (struct gaih_addrtuple));
}
- if (req->ai_family == 0 || req->ai_family == AF_INET6)
+ if (req->ai_family == AF_UNSPEC || req->ai_family == AF_INET6)
{
at->family = AF_INET6;
if ((req->ai_flags & AI_PASSIVE) == 0)
atr = at->next;
}
- if (req->ai_family == 0 || req->ai_family == AF_INET)
+ if (req->ai_family == AF_UNSPEC || req->ai_family == AF_INET)
{
atr->family = AF_INET;
if ((req->ai_flags & AI_PASSIVE) == 0)
- *(uint32_t *) atr->addr = htonl (INADDR_LOOPBACK);
+ atr->addr[0] = htonl (INADDR_LOOPBACK);
}
}
{
struct gaih_servtuple *st2;
struct gaih_addrtuple *at2 = at;
- size_t socklen, namelen;
+ size_t socklen;
+ size_t canonlen;
sa_family_t family;
/*
*/
while (at2 != NULL)
{
- const char *c = NULL;
-
/* Only the first entry gets the canonical name. */
if (at2 == at && (req->ai_flags & AI_CANONNAME) != 0)
{
- struct hostent *h = NULL;
-
- int herrno;
- struct hostent th;
- size_t tmpbuflen = 512;
- char *tmpbuf = NULL;
-
- do
+ if (canon == NULL)
{
- tmpbuf = extend_alloca (tmpbuf, tmpbuflen, tmpbuflen * 2);
- rc = __gethostbyaddr_r (at2->addr,
- ((at2->family == AF_INET6)
- ? sizeof(struct in6_addr)
- : sizeof(struct in_addr)),
- at2->family, &th, tmpbuf, tmpbuflen,
- &h, &herrno);
+ struct hostent *h = NULL;
+ int herrno;
+ struct hostent th;
+ size_t tmpbuflen = 512;
+ char *tmpbuf = NULL;
- }
- while (rc == ERANGE && herrno == NETDB_INTERNAL);
-
- if (rc != 0 && herrno == NETDB_INTERNAL)
- {
- __set_h_errno (herrno);
- return -EAI_SYSTEM;
- }
+ do
+ {
+ tmpbuf = extend_alloca (tmpbuf, tmpbuflen, tmpbuflen * 2);
+ rc = __gethostbyaddr_r (at2->addr,
+ ((at2->family == AF_INET6)
+ ? sizeof (struct in6_addr)
+ : sizeof (struct in_addr)),
+ at2->family, &th, tmpbuf,
+ tmpbuflen, &h, &herrno);
+ }
+ while (rc == ERANGE && herrno == NETDB_INTERNAL);
- if (h != NULL)
- c = h->h_name;
- else
- {
- /* We have to try to get the canonical in some other
- way. If we are looking for either AF_INET or
- AF_INET6 try the other line. */
- if (req->ai_family == AF_UNSPEC)
+ if (rc != 0 && herrno == NETDB_INTERNAL)
{
- struct addrinfo *p = NULL;
- struct addrinfo **end = &p;
- struct addrinfo localreq = *req;
- struct addrinfo *runp;
-
- localreq.ai_family = AF_INET + AF_INET6 - at2->family;
- (void) gaih_inet (name, service, &localreq, end);
-
- runp = p;
- while (runp != NULL)
- {
- if (p->ai_canonname != name)
- {
- c = strdupa (p->ai_canonname);
- break;
- }
- runp = runp->ai_next;
- }
-
- freeaddrinfo (p);
+ __set_h_errno (herrno);
+ return -EAI_SYSTEM;
}
- /* If this code is used the missing canonical name is
- substituted with the name passed in by the user. */
- if (c == NULL)
- c = name;
+ if (h != NULL)
+ canon = h->h_name;
+ else
+ {
+ assert (name != NULL);
+ /* If the canonical name cannot be determined, use
+ the passed in string. */
+ canon = name;
+ }
}
- if (c == NULL)
- return GAIH_OKIFUNSPEC | -EAI_NONAME;
-
#ifdef HAVE_LIBIDN
if (req->ai_flags & AI_CANONIDN)
{
idn_flags |= IDNA_USE_STD3_ASCII_RULES;
char *out;
- int rc = __idna_to_unicode_lzlz (c, &out, idn_flags);
+ int rc = __idna_to_unicode_lzlz (canon, &out, idn_flags);
if (rc != IDNA_SUCCESS)
{
if (rc == IDNA_MALLOC_ERROR)
}
/* In case the output string is the same as the input
string no new string has been allocated. */
- if (out != c)
+ if (out != canon)
{
- c = strdupa (out);
+ canon = strdupa (out);
free (out);
}
}
#endif
- namelen = strlen (c) + 1;
+ canonlen = strlen (canon) + 1;
}
else
- namelen = 0;
+ canonlen = 0;
if (at2->family == AF_INET6)
{
/* If we looked up IPv4 mapped address discard them here if
the caller isn't interested in all address and we have
found at least one IPv6 address. */
- if (! got_ipv6
+ if (got_ipv6
&& (req->ai_flags & (AI_V4MAPPED|AI_ALL)) == AI_V4MAPPED
&& IN6_IS_ADDR_V4MAPPED (at2->addr))
goto ignore;
for (st2 = st; st2 != NULL; st2 = st2->next)
{
- *pai = malloc (sizeof (struct addrinfo) + socklen + namelen);
+ *pai = malloc (sizeof (struct addrinfo) + socklen + canonlen);
if (*pai == NULL)
return -EAI_MEMORY;
(*pai)->ai_socktype = st2->socktype;
(*pai)->ai_protocol = st2->protocol;
(*pai)->ai_addrlen = socklen;
- (*pai)->ai_addr = (void *) (*pai) + sizeof (struct addrinfo);
+ (*pai)->ai_addr = (void *) (*pai + 1);
#if SALEN
(*pai)->ai_addr->sa_len = socklen;
#endif /* SALEN */
struct sockaddr_in6 *sin6p =
(struct sockaddr_in6 *) (*pai)->ai_addr;
+ sin6p->sin6_port = st2->port;
sin6p->sin6_flowinfo = 0;
memcpy (&sin6p->sin6_addr,
at2->addr, sizeof (struct in6_addr));
- sin6p->sin6_port = st2->port;
sin6p->sin6_scope_id = at2->scopeid;
}
else
{
struct sockaddr_in *sinp =
(struct sockaddr_in *) (*pai)->ai_addr;
+ sinp->sin_port = st2->port;
memcpy (&sinp->sin_addr,
at2->addr, sizeof (struct in_addr));
- sinp->sin_port = st2->port;
memset (sinp->sin_zero, '\0', sizeof (sinp->sin_zero));
}
- if (namelen != 0)
+ if (canonlen != 0)
{
(*pai)->ai_canonname = ((void *) (*pai) +
sizeof (struct addrinfo) + socklen);
- strcpy ((*pai)->ai_canonname, c);
+ strcpy ((*pai)->ai_canonname, canon);
/* We do not need to allocate the canonical name anymore. */
- namelen = 0;
+ canonlen = 0;
}
else
(*pai)->ai_canonname = NULL;
projects / platform / upstream / linaro-glibc.git / commitdiff