--- /dev/null
+/*
+ * cheap and dirty network database lookup functions
+ */
+/*
+ * uses local files only
+ */
+/*
+ * currently searches the protocols only
+ */
+
+#include <net-snmp/net-snmp-config.h>
+
+#if (defined(WIN32) || defined(cygwin) || defined(aix4))
+
+#ifdef aix4
+#define _NO_PROTO /* Hack, you say ? */
+#endif
+
+#include <stdio.h>
+#include <sys/types.h>
+#if HAVE_STDLIB_H
+#include <stdlib.h>
+#endif
+#if HAVE_STRING_H
+#include <string.h>
+#endif
+#if HAVE_WINSOCK_H
+#include <winsock.h>
+#endif
+#if HAVE_NETINET_IN_H
+#include <netinet/in.h>
+#endif
+#if HAVE_NETDB_H
+#include <netdb.h>
+#endif
+
+static int h_stay_open, s_stay_open, p_stay_open, n_stay_open;
+static FILE *h_fp, *s_fp, *p_fp, *n_fp;
+static char *h_fn, *s_fn, *p_fn, *n_fn;
+
+#ifdef aix4
+#define ROOT_BASE "/etc/"
+#define PROT_FN "protocols"
+#else
+#define ROOT_BASE "\\SYSTEM32\\DRIVERS\\ETC\\"
+#define PROT_FN "protocol"
+#endif
+#define HOST_FN "hosts"
+#define SERV_FN "services"
+#define NETW_FN "networks"
+
+static int pre_env_done = 0;
+static void
+pre_env(void)
+{
+ const char *cproot;
+ const char *cp = "";
+
+ if (pre_env_done)
+ return;
+ pre_env_done = 1;
+
+#ifndef aix4
+ cp = getenv("SYSTEMROOT");
+ if (cp) {
+ ;
+ /*
+ * printf ("Root is '%s'\n", cp);
+ */
+ } else
+ cp = "C:\\WINNT";
+#endif
+
+ cproot = ROOT_BASE;
+ p_fn =
+ (char *) malloc(3 + strlen(cp) + strlen(cproot) + strlen(PROT_FN));
+ if (p_fn)
+ sprintf(p_fn, "%s%s%s", cp, cproot, PROT_FN);
+#ifdef notused
+ h_fn =
+ (char *) malloc(3 + strlen(cp) + strlen(cproot) + strlen(HOST_FN));
+ if (h_fn)
+ sprintf(h_fn, "%s%s%s", cp, cproot, HOST_FN);
+ s_fn =
+ (char *) malloc(3 + strlen(cp) + strlen(cproot) + strlen(SERV_FN));
+ if (s_fn)
+ sprintf(s_fn, "%s%s%s", cp, cproot, SERV_FN);
+ n_fn =
+ (char *) malloc(3 + strlen(cp) + strlen(cproot) + strlen(NETW_FN));
+ if (n_fn)
+ sprintf(n_fn, "%s%s%s", cp, cproot, NETW_FN);
+#endif
+}
+
+/*
+ * sets can open. ends must close.
+ */
+void
+endhostent(void)
+{
+ if (h_fp)
+ fclose(h_fp);
+ h_fp = 0;
+}
+
+void
+endservent(void)
+{
+ if (s_fp)
+ fclose(s_fp);
+ s_fp = 0;
+}
+
+void
+endprotoent(void)
+{
+ if (p_fp)
+ fclose(p_fp);
+ p_fp = 0;
+}
+
+void
+endnetent(void)
+{
+ if (n_fp)
+ fclose(n_fp);
+ n_fp = 0;
+}
+
+void
+sethostent(int stay_open)
+{
+ pre_env();
+ endhostent();
+ h_stay_open = stay_open;
+}
+
+void
+setservent(int stay_open)
+{
+ pre_env();
+ endservent();
+ s_stay_open = stay_open;
+}
+
+void
+setprotoent(int stay_open)
+{
+ pre_env();
+ endprotoent();
+ p_stay_open = stay_open;
+}
+
+void
+setnetent(int stay_open)
+{
+ pre_env();
+ endnetent();
+ n_stay_open = stay_open;
+}
+
+#define STRTOK_DELIMS " \t\n"
+
+/*
+ * get next entry from data base file, or from NIS if possible.
+ */
+/*
+ * returns 0 if there are no more entries to read.
+ */
+struct hostent *
+gethostent(void)
+{
+ return 0;
+}
+struct servent *
+getservent(void)
+{
+ return 0;
+}
+
+struct protoent *
+getprotoent(void)
+{
+ char *cp, **alp, lbuf[256];
+ static struct protoent spx;
+ static char *ali[10];
+ struct protoent *px = &spx;
+ int linecnt = 0;
+
+ for (alp = ali; *alp; free(*alp), *alp = 0, alp++);
+ if (px->p_name)
+ free(px->p_name);
+ px->p_aliases = ali;
+
+ if (!p_fn)
+ return 0;
+ if (!p_fp)
+ p_fp = fopen(p_fn, "r");
+
+ if (!p_fp)
+ return 0;
+ while (fgets(lbuf, sizeof(lbuf), p_fp)) {
+ linecnt++;
+ cp = lbuf;
+ if (*cp == '#')
+ continue;
+
+ cp = strtok(lbuf, STRTOK_DELIMS);
+ if (!cp)
+ continue;
+ if (cp)
+ px->p_name = strdup(cp);
+
+ cp = strtok(NULL, STRTOK_DELIMS);
+ if (!cp) {
+ free(px->p_name);
+ continue;
+ }
+ px->p_proto = (short) atoi(cp);
+
+ for (alp = px->p_aliases; cp; alp++) {
+ cp = strtok(NULL, STRTOK_DELIMS);
+ if (!cp)
+ break;
+ if (*cp == '#')
+ break;
+ *alp = strdup(cp);
+ }
+
+ return (px);
+ }
+
+ return 0;
+}
+struct netent *
+getnetent(void)
+{
+ return 0;
+}
+
+struct netent *
+getnetbyaddr(long net, int type)
+{
+ return 0;
+}
+
+/*
+ * Return the network number from an internet address
+ */
+u_long
+inet_netof(struct in_addr in)
+{
+ register u_long i = ntohl(in.s_addr);
+ u_long ii = (i >> 24) & 0xff;
+ if (0 == (ii & 0x80))
+ return ((0xff000000 & i) >> 24);
+ if (0x80 == (ii & 0xc0))
+ return ((0xffff0000 & i) >> 16);
+ /*
+ * if (0xc0 == (ii & 0xe0))
+ */
+ return ((0xffffff00 & i) >> 8);
+}
+
+/*
+ * Return the host number from an internet address
+ */
+u_long
+inet_lnaof(struct in_addr in)
+{
+ register u_long i = ntohl(in.s_addr);
+ u_long ii = (i >> 24) & 0xff;
+ if (0 == (ii & 0x80))
+ return (0x00ffffff & i);
+ if (0x80 == (ii & 0xc0))
+ return (0x0000ffff & i);
+ /*
+ * if (0xc0 == (ii & 0xe0))
+ */
+ return (0x000000ff & i);
+}
+
+#endif /* WIN32 or cygwin */