static int
foreach_localaddr ( void *data,
int (*pass1fn) ( void *, struct sockaddr *) ,
int (*betweenfn) ( void *) ,
int (*pass2fn) ( void *,
struct sockaddr *) )
#if defined(DEBUG) || defined(TEST)
#endif
;
#ifdef TEST
# define Tprintf(X) printf X
# define Tperror(X) perror(X)
#else
# define Tprintf(X) (void) X
# define Tperror(X) (void)(X)
#endif
#ifdef HAVE_NETINET_IN_H
#include <netinet/in.h>
#ifndef USE_AF
#define USE_AF AF_INET
#define USE_TYPE SOCK_DGRAM
#define USE_PROTO 0
#endif
#endif
#ifdef KRB5_USE_NS
#include <netns/ns.h>
#ifndef USE_AF
#define USE_AF AF_NS
#define USE_TYPE SOCK_DGRAM
#define USE_PROTO 0
#endif
#endif
#if defined(__linux__) && defined(KRB5_USE_INET6)
#define LINUX_IPV6_HACK
#endif
#include <errno.h>
#ifdef HAVE_SA_LEN
#ifndef max
#define max(a,b) ((a) > (b) ? (a) : (b))
#endif
#define ifreq_size(i) max(sizeof(struct ifreq),\
sizeof((i).ifr_name)+(i).ifr_addr.sa_len)
#else
#define ifreq_size(i) sizeof(struct ifreq)
#endif
#if defined(DEBUG) || defined(TEST)
#include <netinet/in.h>
#include <net/if.h>
#include "socket-utils.h"
#include "fake-addrinfo.h"
void printaddr (struct sockaddr *);
void printaddr (struct sockaddr *sa)
{
char buf[NI_MAXHOST];
int err;
printf ("%p ", (void *) sa);
err = getnameinfo (sa, socklen (sa), buf, sizeof (buf), 0, 0,
NI_NUMERICHOST);
if (err)
printf ("<getnameinfo error %d: %s> family=%d",
err, gai_strerror (err),
sa->sa_family);
else
printf ("%s", buf);
}
#endif
#ifdef HAVE_IFADDRS_H
#include <ifaddrs.h>
#ifdef DEBUG
void printifaddr (struct ifaddrs *ifp)
{
printf ("%p={\n", ifp);
printf ("\tname=%s\n", ifp->ifa_name);
printf ("\tflags=");
{
int ch, flags = ifp->ifa_flags;
printf ("%x", flags);
ch = '<';
#define X(F) if (flags & IFF_##F) { printf ("%c%s", ch, #F); flags &= ~IFF_##F; ch = ','; }
X (UP); X (BROADCAST); X (DEBUG); X (LOOPBACK); X (POINTOPOINT);
X (NOTRAILERS); X (RUNNING); X (NOARP); X (PROMISC); X (ALLMULTI);
X (OACTIVE); X (SIMPLEX); X (MULTICAST);
printf (">");
#undef X
}
if (ifp->ifa_addr)
printf ("\n\taddr="), printaddr (ifp->ifa_addr);
if (ifp->ifa_netmask)
printf ("\n\tnetmask="), printaddr (ifp->ifa_netmask);
if (ifp->ifa_broadaddr)
printf ("\n\tbroadaddr="), printaddr (ifp->ifa_broadaddr);
if (ifp->ifa_dstaddr)
printf ("\n\tdstaddr="), printaddr (ifp->ifa_dstaddr);
if (ifp->ifa_data)
printf ("\n\tdata=%p", ifp->ifa_data);
printf ("\n}\n");
}
#endif
static int
addr_eq (const struct sockaddr *s1, const struct sockaddr *s2)
{
if (s1->sa_family != s2->sa_family)
return 0;
#ifdef HAVE_SA_LEN
if (s1->sa_len != s2->sa_len)
return 0;
return !memcmp (s1, s2, s1->sa_len);
#else
#define CMPTYPE(T,F) (!memcmp(&((T*)s1)->F,&((T*)s2)->F,sizeof(((T*)s1)->F)))
switch (s1->sa_family) {
case AF_INET:
return CMPTYPE (struct sockaddr_in, sin_addr);
case AF_INET6:
return CMPTYPE (struct sockaddr_in6, sin6_addr);
default:
return 0;
}
#endif
}
#endif
static void *
grow_or_free ( void *ptr, size_t newsize)
{
void *newptr;
newptr = realloc (ptr, newsize);
if (newptr == NULL && newsize != 0) {
free (ptr);
return NULL;
}
return newptr;
}
static int
get_ifconf (int s, size_t *lenp, char *buf)
{
int ret;
struct ifconf ifc;
ifc.ifc_len = *lenp;
ifc.ifc_buf = buf;
memset(buf, 0, *lenp);
ret = ioctl (s, SIOCGIFCONF, (char *)&ifc);
*lenp = ifc.ifc_len;
return ret;
}
#ifdef SIOCGLIFCONF
static int
get_lifconf (int af, int s, size_t *lenp, char *buf)
{
int ret;
struct lifconf lifc;
lifc.lifc_family = af;
lifc.lifc_flags = 0;
lifc.lifc_len = *lenp;
lifc.lifc_buf = buf;
memset(buf, 0, *lenp);
ret = ioctl (s, SIOCGLIFCONF, (char *)&lifc);
if (ret)
Tperror ("SIOCGLIFCONF");
*lenp = lifc.lifc_len;
return ret;
}
#endif
#ifdef LINUX_IPV6_HACK
struct linux_ipv6_addr_list {
struct sockaddr_in6 addr;
struct linux_ipv6_addr_list *next;
};
static struct linux_ipv6_addr_list *
get_linux_ipv6_addrs ()
{
struct linux_ipv6_addr_list *lst = 0;
FILE *f;
f = fopen("/proc/net/if_inet6", "r");
if (f) {
char ifname[21];
unsigned int idx, pfxlen, scope, dadstat;
struct in6_addr a6;
struct linux_ipv6_addr_list *nw;
int i;
unsigned int addrbyte[16];
while (fscanf(f,
"%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x%2x"
" %2x %2x %2x %2x %20s\n",
&addrbyte[0], &addrbyte[1], &addrbyte[2], &addrbyte[3],
&addrbyte[4], &addrbyte[5], &addrbyte[6], &addrbyte[7],
&addrbyte[8], &addrbyte[9], &addrbyte[10], &addrbyte[11],
&addrbyte[12], &addrbyte[13], &addrbyte[14],
&addrbyte[15],
&idx, &pfxlen, &scope, &dadstat, ifname) != EOF) {
for (i = 0; i < 16; i++)
a6.s6_addr[i] = addrbyte[i];
if (scope != 0)
continue;
#if 0
switch (scope) {
case 0:
default:
break;
case IPV6_ADDR_LINKLOCAL:
case IPV6_ADDR_SITELOCAL:
case IPV6_ADDR_COMPATv4:
case IPV6_ADDR_LOOPBACK:
continue;
}
#endif
nw = malloc (sizeof (struct linux_ipv6_addr_list));
if (nw == 0)
continue;
memset (nw, 0, sizeof (*nw));
nw->addr.sin6_addr = a6;
nw->addr.sin6_family = AF_INET6;
nw->next = lst;
lst = nw;
}
fclose (f);
}
return lst;
}
#endif
#ifdef HAVE_IFADDRS_H
static int
foreach_localaddr ( void *data,
int (*pass1fn) ( void *, struct sockaddr *) ,
int (*betweenfn) ( void *) ,
int (*pass2fn) ( void *,
struct sockaddr *) )
#if defined(DEBUG) || defined(TEST)
#endif
{
struct ifaddrs *ifp_head, *ifp, *ifp2;
int match;
if (getifaddrs (&ifp_head) < 0)
return errno;
for (ifp = ifp_head; ifp; ifp = ifp->ifa_next) {
#ifdef DEBUG
printifaddr (ifp);
#endif
if ((ifp->ifa_flags & IFF_UP) == 0)
continue;
if (ifp->ifa_flags & IFF_LOOPBACK) {
ifp->ifa_flags &= ~IFF_UP;
continue;
}
match = 0;
for (ifp2 = ifp_head; ifp2 && ifp2 != ifp; ifp2 = ifp2->ifa_next) {
if ((ifp2->ifa_flags & IFF_UP) == 0)
continue;
if (ifp2->ifa_flags & IFF_LOOPBACK)
continue;
if (addr_eq (ifp->ifa_addr, ifp2->ifa_addr)) {
match = 1;
ifp->ifa_flags &= ~IFF_UP;
break;
}
}
if (match)
continue;
if ((*pass1fn) (data, ifp->ifa_addr))
goto punt;
}
if (betweenfn && (*betweenfn)(data))
goto punt;
if (pass2fn)
for (ifp = ifp_head; ifp; ifp = ifp->ifa_next) {
if (ifp->ifa_flags & IFF_UP)
if ((*pass2fn) (data, ifp->ifa_addr))
goto punt;
}
punt:
freeifaddrs (ifp_head);
return 0;
}
#elif defined (SIOCGLIFNUM)
static int
foreach_localaddr ( void *data,
int (*pass1fn) ( void *, struct sockaddr *) ,
int (*betweenfn) ( void *) ,
int (*pass2fn) ( void *,
struct sockaddr *) )
#if defined(DEBUG) || defined(TEST)
#endif
{
static const int afs[] = { AF_INET, AF_NS, AF_INET6 };
#define N_AFS (sizeof (afs) / sizeof (afs[0]))
struct {
int af;
int sock;
void *buf;
size_t buf_size;
struct lifnum lifnum;
} afp[N_AFS];
int code, i, j;
int retval = 0, afidx;
krb5_error_code sock_err = 0;
struct lifreq *lifr, lifreq, *lifr2;
#define FOREACH_AF() for (afidx = 0; afidx < N_AFS; afidx++)
#define P (afp[afidx])
FOREACH_AF () {
P.af = afs[afidx];
P.sock = -1;
P.buf = 0;
}
FOREACH_AF () {
Tprintf (("trying af %d...\n", P.af));
P.sock = socket (P.af, USE_TYPE, USE_PROTO);
if (P.sock < 0) {
sock_err = SOCKET_ERROR;
Tperror ("socket");
continue;
}
P.lifnum.lifn_family = P.af;
P.lifnum.lifn_flags = 0;
P.lifnum.lifn_count = 0;
code = ioctl (P.sock, SIOCGLIFNUM, &P.lifnum);
if (code) {
Tperror ("ioctl(SIOCGLIFNUM)");
retval = errno;
goto punt;
}
P.buf_size = P.lifnum.lifn_count * sizeof (struct lifreq) * 2;
P.buf = malloc (P.buf_size);
if (P.buf == NULL) {
retval = errno;
goto punt;
}
code = get_lifconf (P.af, P.sock, &P.buf_size, P.buf);
if (code < 0) {
retval = errno;
goto punt;
}
for (i = 0; i < P.buf_size; i+= sizeof (*lifr)) {
lifr = (struct lifreq *)((caddr_t) P.buf+i);
strncpy(lifreq.lifr_name, lifr->lifr_name,
sizeof (lifreq.lifr_name));
Tprintf (("interface %s\n", lifreq.lifr_name));
if (ioctl (P.sock, SIOCGLIFFLAGS, (char *)&lifreq) < 0) {
Tperror ("ioctl(SIOCGLIFFLAGS)");
skip:
lifr->lifr_name[0] = '\0';
continue;
}
#ifdef IFF_LOOPBACK
if (lifreq.lifr_flags & IFF_LOOPBACK) {
Tprintf ((" loopback\n"));
goto skip;
}
#endif
if ((lifreq.lifr_flags & IFF_UP) == 0) {
Tprintf ((" down\n"));
goto skip;
}
for (j = 0; j < i; j += sizeof (*lifr2)) {
lifr2 = (struct lifreq *)((caddr_t) P.buf+j);
if (lifr2->lifr_name[0] == '\0')
continue;
if (lifr2->lifr_addr.ss_family == lifr->lifr_addr.ss_family
&& !memcmp (&lifr2->lifr_addr, &lifr->lifr_addr,
sizeof (*lifr))) {
Tprintf ((" duplicate addr\n"));
goto skip;
}
}
if ((*pass1fn) (data, ss2sa (&lifr->lifr_addr)))
goto punt;
}
}
FOREACH_AF ()
if (P.sock != -1)
goto have_working_socket;
retval = sock_err;
goto punt;
have_working_socket:
if (betweenfn != NULL && (*betweenfn)(data))
goto punt;
if (pass2fn)
FOREACH_AF ()
if (P.sock >= 0) {
for (i = 0; i < P.buf_size; i+= sizeof (*lifr)) {
lifr = (struct lifreq *)((caddr_t) P.buf+i);
if (lifr->lifr_name[0] == '\0')
continue;
if ((*pass2fn) (data, ss2sa (&lifr->lifr_addr)))
goto punt;
}
}
punt:
FOREACH_AF () {
closesocket(P.sock);
free (P.buf);
}
return retval;
}
#else
#define SLOP (sizeof (struct ifreq) + 128)
static int
foreach_localaddr ( void *data,
int (*pass1fn) ( void *, struct sockaddr *) ,
int (*betweenfn) ( void *) ,
int (*pass2fn) ( void *,
struct sockaddr *) )
#if defined(DEBUG) || defined(TEST)
#endif
{
struct ifreq *ifr, ifreq, *ifr2;
int s, code;
int est_if_count = 8;
size_t est_ifreq_size;
char *buf = 0;
size_t current_buf_size = 0, size, n, i, j;
#ifdef SIOCGSIZIFCONF
int ifconfsize = -1;
#endif
int retval = 0;
#ifdef SIOCGIFNUM
int numifs = -1;
#endif
#ifdef LINUX_IPV6_HACK
struct linux_ipv6_addr_list *linux_ipv6_addrs = get_linux_ipv6_addrs ();
struct linux_ipv6_addr_list *lx_v6;
#endif
s = socket (USE_AF, USE_TYPE, USE_PROTO);
if (s < 0)
return SOCKET_ERRNO;
est_ifreq_size = sizeof (struct ifreq) + 8;
#ifdef SIOCGSIZIFCONF
code = ioctl (s, SIOCGSIZIFCONF, &ifconfsize);
if (!code) {
current_buf_size = ifconfsize;
est_if_count = ifconfsize / est_ifreq_size;
}
#elif defined (SIOCGIFNUM)
code = ioctl (s, SIOCGIFNUM, &numifs);
if (!code && numifs > 0)
est_if_count = numifs;
#endif
if (current_buf_size == 0)
current_buf_size = est_ifreq_size * est_if_count + SLOP;
buf = malloc (current_buf_size);
if (buf == NULL)
return errno;
ask_again:
size = current_buf_size;
code = get_ifconf (s, &size, buf);
if (code < 0) {
retval = errno;
closesocket (s);
free (buf);
return retval;
}
if (current_buf_size - size < SLOP
#ifdef SIOCGSIZIFCONF
&& ifconfsize <= 0
#elif defined (SIOCGIFNUM)
&& numifs <= 0
#endif
&& current_buf_size <= 100000
) {
size_t new_size;
est_if_count *= 2;
new_size = est_ifreq_size * est_if_count + SLOP;
buf = grow_or_free (buf, new_size);
if (buf == 0)
return errno;
current_buf_size = new_size;
goto ask_again;
}
n = size;
if (n > current_buf_size)
n = current_buf_size;
for (i = 0; i < n; i+= ifreq_size(*ifr) ) {
ifr = (struct ifreq *)((caddr_t) buf+i);
strncpy(ifreq.ifr_name, ifr->ifr_name, sizeof (ifreq.ifr_name));
Tprintf (("interface %s\n", ifreq.ifr_name));
if (ioctl (s, SIOCGIFFLAGS, (char *)&ifreq) < 0) {
skip:
ifr->ifr_name[0] = '\0';
continue;
}
#ifdef IFF_LOOPBACK
if (ifreq.ifr_flags & IFF_LOOPBACK) {
Tprintf ((" loopback\n"));
goto skip;
}
#endif
if ((ifreq.ifr_flags & IFF_UP) == 0) {
Tprintf ((" down\n"));
goto skip;
}
for (j = 0; j < i; j += ifreq_size(*ifr2)) {
ifr2 = (struct ifreq *)((caddr_t) buf+j);
if (ifr2->ifr_name[0] == '\0')
continue;
if (ifr2->ifr_addr.sa_family == ifr->ifr_addr.sa_family
&& ifreq_size (*ifr) == ifreq_size (*ifr2)
&& !memcmp (&ifr2->ifr_addr.sa_data, &ifr->ifr_addr.sa_data,
(ifreq_size (*ifr)
- offsetof (struct ifreq, ifr_addr.sa_data)))) {
Tprintf ((" duplicate addr\n"));
goto skip;
}
}
if ((*pass1fn) (data, &ifr->ifr_addr))
goto punt;
}
#ifdef LINUX_IPV6_HACK
for (lx_v6 = linux_ipv6_addrs; lx_v6; lx_v6 = lx_v6->next)
if ((*pass1fn) (data, (struct sockaddr *) &lx_v6->addr))
goto punt;
#endif
if (betweenfn != NULL && (*betweenfn)(data))
goto punt;
if (pass2fn) {
for (i = 0; i < n; i+= ifreq_size(*ifr) ) {
ifr = (struct ifreq *)((caddr_t) buf+i);
if (ifr->ifr_name[0] == '\0')
continue;
if ((*pass2fn) (data, &ifr->ifr_addr))
goto punt;
}
#ifdef LINUX_IPV6_HACK
for (lx_v6 = linux_ipv6_addrs; lx_v6; lx_v6 = lx_v6->next)
if ((*pass2fn) (data, (struct sockaddr *) &lx_v6->addr))
goto punt;
#endif
}
punt:
closesocket(s);
free (buf);
#ifdef LINUX_IPV6_HACK
while (linux_ipv6_addrs) {
lx_v6 = linux_ipv6_addrs->next;
free (linux_ipv6_addrs);
linux_ipv6_addrs = lx_v6;
}
#endif
return retval;
}
#endif