#include <sys/types.h>

#include <sys/param.h>

#include <sys/time.h>

#include <sys/ioctl.h>

#include <sys/socket.h>

#include <net/if.h>

#include <netinet/in.h>

#ifndef SIOCGIFCONF /* whatever works */

#include <sys/sockio.h>

#endif

#include "hassalen.h"

#include "byte.h"

#include "ip.h"

#include "ipalloc.h"

#include "stralloc.h"

#include "ipme.h"

static int ipmeok = 0;

ipalloc ipme = {0};

int ipme_is(ip)

struct ip_address *ip;

{

  int i;

  if (ipme_init() != 1) return -1;

  for (i = 0;i < ipme.len;++i)

    if (byte_equal(&ipme.ix[i].ip,4,ip))

      return 1;

  return 0;

}

static stralloc buf = {0};

int ipme_init()

{

  struct ifconf ifc;

  char *x;

  struct ifreq *ifr;

  struct sockaddr_in *sin;

  int len;

  int s;

  struct ip_mx ix;

  if (ipmeok) return 1;

  if (!ipalloc_readyplus(&ipme,0)) return 0;

  ipme.len = 0;

  ix.pref = 0;

  if ((s = socket(AF_INET,SOCK_STREAM,0)) == -1) return -1;

  len = 256;

  for (;;) {

    if (!stralloc_ready(&buf,len)) { close(s); return 0; }

    buf.len = 0;

    ifc.ifc_buf = buf.s;

    ifc.ifc_len = len;

    if (ioctl(s,SIOCGIFCONF,&ifc) >= 0) /* > is for System V */

      if (ifc.ifc_len + sizeof(*ifr) + 64 < len) { /* what a stupid interface */

        buf.len = ifc.ifc_len;

        break;

      }

    if (len > 200000) { close(s); return -1; }

    len += 100 + (len >> 2);

  }

  x = buf.s;

  while (x < buf.s + buf.len) {

    ifr = (struct ifreq *) x;

#ifdef HASSALEN

    len = sizeof(ifr->ifr_name) + ifr->ifr_addr.sa_len;

    if (len < sizeof(*ifr))

      len = sizeof(*ifr);

    if (ifr->ifr_addr.sa_family == AF_INET) {

      sin = (struct sockaddr_in *) &ifr->ifr_addr;

      byte_copy(&ix.ip,4,&sin->sin_addr);

      if (ioctl(s,SIOCGIFFLAGS,x) == 0)

        if (ifr->ifr_flags & IFF_UP)

          if (!ipalloc_append(&ipme,&ix)) { close(s); return 0; }

    }

#else

    len = sizeof(*ifr);

    if (ioctl(s,SIOCGIFFLAGS,x) == 0)

      if (ifr->ifr_flags & IFF_UP)

        if (ioctl(s,SIOCGIFADDR,x) == 0)

	  if (ifr->ifr_addr.sa_family == AF_INET) {

	    sin = (struct sockaddr_in *) &ifr->ifr_addr;

	    byte_copy(&ix.ip,4,&sin->sin_addr);

	    if (!ipalloc_append(&ipme,&ix)) { close(s); return 0; }

	  }

#endif

    x += len;

  }

  close(s);

  ipmeok = 1;

  return 1;

}