1/* From openssh 4.3p2 filename openbsd-compat/fake-rfc2553.h */
2/*
3 * Copyright (C) 2000-2003 Damien Miller.  All rights reserved.
4 * Copyright (C) 1999 WIDE Project.  All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 * 1. Redistributions of source code must retain the above copyright
10 *    notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 *    notice, this list of conditions and the following disclaimer in the
13 *    documentation and/or other materials provided with the distribution.
14 * 3. Neither the name of the project nor the names of its contributors
15 *    may be used to endorse or promote products derived from this software
16 *    without specific prior written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
19 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
22 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
24 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
25 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
26 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 * SUCH DAMAGE.
29 */
30
31/*
32 * Pseudo-implementation of RFC2553 name / address resolution functions
33 *
34 * But these functions are not implemented correctly. The minimum subset
35 * is implemented for ssh use only. For example, this routine assumes
36 * that ai_family is AF_INET. Don't use it for another purpose.
37 */
38
39#include <ldns/config.h>
40#include <ldns/common.h>
41#include <unistd.h>
42#include <string.h>
43#include <stdio.h>
44#include <stdlib.h>
45#include "compat/fake-rfc2553.h"
46
47#ifndef HAVE_GETNAMEINFO
48int getnameinfo(const struct sockaddr *sa, size_t ATTR_UNUSED(salen), char *host,
49                size_t hostlen, char *serv, size_t servlen, int flags)
50{
51	struct sockaddr_in *sin = (struct sockaddr_in *)sa;
52	struct hostent *hp;
53	char tmpserv[16];
54
55	if (serv != NULL) {
56		snprintf(tmpserv, sizeof(tmpserv), "%d", ntohs(sin->sin_port));
57		if (strlcpy(serv, tmpserv, servlen) >= servlen)
58			return (EAI_MEMORY);
59	}
60
61	if (host != NULL) {
62		if (flags & NI_NUMERICHOST) {
63			if (strlcpy(host, inet_ntoa(sin->sin_addr),
64			    hostlen) >= hostlen)
65				return (EAI_MEMORY);
66			else
67				return (0);
68		} else {
69			hp = gethostbyaddr((char *)&sin->sin_addr,
70			    sizeof(struct in_addr), AF_INET);
71			if (hp == NULL)
72				return (EAI_NODATA);
73
74			if (strlcpy(host, hp->h_name, hostlen) >= hostlen)
75				return (EAI_MEMORY);
76			else
77				return (0);
78		}
79	}
80	return (0);
81}
82#endif /* !HAVE_GETNAMEINFO */
83
84#ifndef HAVE_GAI_STRERROR
85#ifdef HAVE_CONST_GAI_STRERROR_PROTO
86const char *
87#else
88char *
89#endif
90gai_strerror(int err)
91{
92	switch (err) {
93	case EAI_NODATA:
94		return ("no address associated with name");
95	case EAI_MEMORY:
96		return ("memory allocation failure.");
97	case EAI_NONAME:
98		return ("nodename nor servname provided, or not known");
99	default:
100		return ("unknown/invalid error.");
101	}
102}
103#endif /* !HAVE_GAI_STRERROR */
104
105#ifndef HAVE_FREEADDRINFO
106void
107freeaddrinfo(struct addrinfo *ai)
108{
109	struct addrinfo *next;
110
111	for(; ai != NULL;) {
112		next = ai->ai_next;
113		free(ai);
114		ai = next;
115	}
116}
117#endif /* !HAVE_FREEADDRINFO */
118
119#ifndef HAVE_GETADDRINFO
120static struct
121addrinfo *malloc_ai(int port, u_long addr, const struct addrinfo *hints)
122{
123	struct addrinfo *ai;
124
125	ai = malloc(sizeof(*ai) + sizeof(struct sockaddr_in));
126	if (ai == NULL)
127		return (NULL);
128
129	memset(ai, '\0', sizeof(*ai) + sizeof(struct sockaddr_in));
130
131	ai->ai_addr = (struct sockaddr *)(ai + 1);
132	/* XXX -- ssh doesn't use sa_len */
133	ai->ai_addrlen = sizeof(struct sockaddr_in);
134	ai->ai_addr->sa_family = ai->ai_family = AF_INET;
135
136	((struct sockaddr_in *)(ai)->ai_addr)->sin_port = port;
137	((struct sockaddr_in *)(ai)->ai_addr)->sin_addr.s_addr = addr;
138
139	/* XXX: the following is not generally correct, but does what we want */
140	if (hints->ai_socktype)
141		ai->ai_socktype = hints->ai_socktype;
142	else
143		ai->ai_socktype = SOCK_STREAM;
144
145	if (hints->ai_protocol)
146		ai->ai_protocol = hints->ai_protocol;
147
148	return (ai);
149}
150
151int
152getaddrinfo(const char *hostname, const char *servname,
153    const struct addrinfo *hints, struct addrinfo **res)
154{
155	struct hostent *hp;
156	struct servent *sp;
157	struct in_addr in;
158	int i;
159	long int port;
160	u_long addr;
161
162	port = 0;
163	if (servname != NULL) {
164		char *cp;
165
166		port = strtol(servname, &cp, 10);
167		if (port > 0 && port <= 65535 && *cp == '\0')
168			port = htons(port);
169		else if ((sp = getservbyname(servname, NULL)) != NULL)
170			port = sp->s_port;
171		else
172			port = 0;
173	}
174
175	if (hints && hints->ai_flags & AI_PASSIVE) {
176		addr = htonl(0x00000000);
177		if (hostname && inet_aton(hostname, &in) != 0)
178			addr = in.s_addr;
179		*res = malloc_ai(port, addr, hints);
180		if (*res == NULL)
181			return (EAI_MEMORY);
182		return (0);
183	}
184
185	if (!hostname) {
186		*res = malloc_ai(port, htonl(0x7f000001), hints);
187		if (*res == NULL)
188			return (EAI_MEMORY);
189		return (0);
190	}
191
192	if (inet_aton(hostname, &in)) {
193		*res = malloc_ai(port, in.s_addr, hints);
194		if (*res == NULL)
195			return (EAI_MEMORY);
196		return (0);
197	}
198
199	/* Don't try DNS if AI_NUMERICHOST is set */
200	if (hints && hints->ai_flags & AI_NUMERICHOST)
201		return (EAI_NONAME);
202
203	hp = gethostbyname(hostname);
204	if (hp && hp->h_name && hp->h_name[0] && hp->h_addr_list[0]) {
205		struct addrinfo *cur, *prev;
206
207		cur = prev = *res = NULL;
208		for (i = 0; hp->h_addr_list[i]; i++) {
209			struct in_addr *in = (struct in_addr *)hp->h_addr_list[i];
210
211			cur = malloc_ai(port, in->s_addr, hints);
212			if (cur == NULL) {
213				if (*res != NULL)
214					freeaddrinfo(*res);
215				return (EAI_MEMORY);
216			}
217			if (prev)
218				prev->ai_next = cur;
219			else
220				*res = cur;
221
222			prev = cur;
223		}
224		return (0);
225	}
226
227	return (EAI_NODATA);
228}
229#endif /* !HAVE_GETADDRINFO */
230