#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <sys/types.h>
#include <ctype.h>
#include <sys/socket.h>
#include "ntp_rfc2553.h"
#ifdef HAVE_NETINET_IN_H
#include <netinet/in.h>
#endif
#include <netdb.h>
#include "ntpd.h"
#include "ntp_malloc.h"
#include "ntp_stdlib.h"
#include "ntp_string.h"
#ifndef HAVE_IPV6
#if defined(SYS_WINNT)
const struct in6_addr in6addr_any = IN6ADDR_ANY_INIT;
#else
const struct in6_addr in6addr_any;
#endif
static char *ai_errlist[] = {
"Success",
"Address family for hostname not supported",
"Temporary failure in name resolution",
"Invalid value for ai_flags",
"Non-recoverable failure in name resolution",
"ai_family not supported",
"Memory allocation failure",
"No address associated with hostname",
"hostname nor servname provided, or not known",
"servname not supported for ai_socktype",
"ai_socktype not supported",
"System error returned in errno",
"Invalid value for hints",
"Resolved protocol is unknown",
"Unknown error",
};
static int ipv4_aton P((const char *, struct sockaddr_storage *));
static int do_nodename P((const char *nodename, struct addrinfo *ai,
const struct addrinfo *hints));
int
getaddrinfo (const char *nodename, const char *servname,
const struct addrinfo *hints, struct addrinfo **res)
{
int rval;
struct addrinfo *ai;
struct sockaddr_in *sockin;
ai = calloc(sizeof(struct addrinfo), 1);
if (ai == NULL)
return (EAI_MEMORY);
if (nodename != NULL) {
rval = do_nodename(nodename, ai, hints);
if (rval != 0) {
freeaddrinfo(ai);
return (rval);
}
}
if (nodename == NULL && hints != NULL) {
ai->ai_addr = calloc(sizeof(struct sockaddr_storage), 1);
if (ai->ai_addr == NULL) {
freeaddrinfo(ai);
return (EAI_MEMORY);
}
ai->ai_family = AF_INET;
ai->ai_addrlen = sizeof(struct sockaddr_storage);
sockin = (struct sockaddr_in *)ai->ai_addr;
sockin->sin_family = AF_INET;
sockin->sin_addr.s_addr = htonl(INADDR_ANY);
#ifdef HAVE_SA_LEN_IN_STRUCT_SOCKADDR
ai->ai_addr->sa_len = SOCKLEN(ai->ai_addr);
#endif
}
if (servname != NULL) {
ai->ai_family = AF_INET;
ai->ai_socktype = SOCK_DGRAM;
if (strcmp(servname, "ntp") != 0) {
freeaddrinfo(ai);
return (EAI_SERVICE);
}
sockin = (struct sockaddr_in *)ai->ai_addr;
sockin->sin_port = htons(NTP_PORT);
}
*res = ai;
return (0);
}
void
freeaddrinfo(struct addrinfo *ai)
{
if (ai->ai_canonname != NULL)
free(ai->ai_canonname);
if (ai->ai_addr != NULL)
free(ai->ai_addr);
free(ai);
}
int
getnameinfo (const struct sockaddr *sa, u_int salen, char *host,
size_t hostlen, char *serv, size_t servlen, int flags)
{
struct hostent *hp;
if (sa->sa_family != AF_INET)
return (EAI_FAMILY);
hp = gethostbyaddr(
(const char *)&((const struct sockaddr_in *)sa)->sin_addr,
4, AF_INET);
if (hp == NULL) {
if (h_errno == TRY_AGAIN)
return (EAI_AGAIN);
else
return (EAI_FAIL);
}
if (host != NULL) {
strncpy(host, hp->h_name, hostlen);
host[hostlen] = '\0';
}
return (0);
}
char *
gai_strerror(int ecode)
{
if (ecode < 0 || ecode > EAI_MAX)
ecode = EAI_MAX;
return ai_errlist[ecode];
}
static int
do_nodename(
const char *nodename,
struct addrinfo *ai,
const struct addrinfo *hints)
{
struct hostent *hp;
struct sockaddr_in *sockin;
ai->ai_addr = calloc(sizeof(struct sockaddr_storage), 1);
if (ai->ai_addr == NULL)
return (EAI_MEMORY);
if (hints != NULL && hints->ai_flags & AI_NUMERICHOST) {
if (ipv4_aton(nodename,
(struct sockaddr_storage *)ai->ai_addr) == 1) {
ai->ai_family = AF_INET;
ai->ai_addrlen = sizeof(struct sockaddr_in);
return (0);
}
return (EAI_NONAME);
}
hp = gethostbyname(nodename);
if (hp == NULL) {
if (h_errno == TRY_AGAIN)
return (EAI_AGAIN);
else {
if (ipv4_aton(nodename,
(struct sockaddr_storage *)ai->ai_addr) == 1) {
ai->ai_family = AF_INET;
ai->ai_addrlen = sizeof(struct sockaddr_in);
return (0);
}
return (EAI_FAIL);
}
}
ai->ai_family = hp->h_addrtype;
ai->ai_addrlen = sizeof(struct sockaddr);
sockin = (struct sockaddr_in *)ai->ai_addr;
memcpy(&sockin->sin_addr, hp->h_addr, hp->h_length);
ai->ai_addr->sa_family = hp->h_addrtype;
#ifdef HAVE_SA_LEN_IN_STRUCT_SOCKADDR
ai->ai_addr->sa_len = sizeof(struct sockaddr);
#endif
if (hints != NULL && hints->ai_flags & AI_CANONNAME) {
ai->ai_canonname = malloc(strlen(hp->h_name) + 1);
if (ai->ai_canonname == NULL)
return (EAI_MEMORY);
strcpy(ai->ai_canonname, hp->h_name);
}
return (0);
}
static int
ipv4_aton(
const char *num,
struct sockaddr_storage *saddr
)
{
const char *cp;
char *bp;
int i;
int temp;
char buf[80];
u_int32 netnum;
struct sockaddr_in *addr;
cp = num;
netnum = 0;
for (i = 0; i < 4; i++) {
bp = buf;
while (isdigit((int)*cp))
*bp++ = *cp++;
if (bp == buf)
break;
if (i < 3) {
if (*cp++ != '.')
break;
} else if (*cp != '\0')
break;
*bp = '\0';
temp = atoi(buf);
if (temp > 255)
break;
netnum <<= 8;
netnum += temp;
#ifdef DEBUG
if (debug > 3)
printf("ipv4_aton %s step %d buf %s temp %d netnum %lu\n",
num, i, buf, temp, (u_long)netnum);
#endif
}
if (i < 4) {
#ifdef DEBUG
if (debug > 3)
printf(
"ipv4_aton: \"%s\" invalid host number, line ignored\n",
num);
#endif
return (0);
}
memset((void *)saddr, 0, sizeof(struct sockaddr_storage));
addr = (struct sockaddr_in *)saddr;
addr->sin_family = AF_INET;
addr->sin_port = htons(NTP_PORT);
addr->sin_addr.s_addr = htonl(netnum);
#ifdef DEBUG
if (debug > 1)
printf("ipv4_aton given %s, got %s.\n", num, ntoa(saddr));
#endif
return (1);
}
#endif