--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ipme.c	Fri Oct 19 14:06:22 2007 +0200
@@ -0,0 +1,95 @@
+#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;
+}