Renamed the `named'-plugin to `dns'-plugin.
[collectd.git] / src / utils_dns.c
diff --git a/src/utils_dns.c b/src/utils_dns.c
new file mode 100644 (file)
index 0000000..19afe55
--- /dev/null
@@ -0,0 +1,900 @@
+/*
+ * collectd - src/utils_dns.c
+ * Modifications Copyright (C) 2006  Florian octo Forster
+ * Copyright (C) 2002  The Measurement Factory, Inc.
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ * 1. Redistributions of source code must retain the above copyright notice,
+ *    this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright notice,
+ *    this list of conditions and the following disclaimer in the documentation
+ *    and/or other materials provided with the distribution.
+ * 3. Neither the name of The Measurement Factory nor the names of its
+ *    contributors may be used to endorse or promote products derived from this
+ *    software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ *
+ * Authors:
+ *   The Measurement Factory, Inc. <http://www.measurement-factory.com/>
+ *   Florian octo Forster <octo at verplant.org>
+ */
+
+#include <sys/types.h>
+#include <sys/time.h>
+#include <sys/stat.h>
+
+#include <netinet/in.h>
+
+#include <pcap.h>
+#include <signal.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <time.h>
+#include <ctype.h>
+#include <curses.h>
+#include <assert.h>
+#include <arpa/inet.h>
+#include <arpa/nameser.h>
+#ifdef __APPLE__
+#include <arpa/nameser_compat.h>
+#endif
+
+#include <sys/socket.h>
+#include <net/if_arp.h>
+#include <net/if.h>
+#include <netinet/if_ether.h>
+
+#include <netinet/in_systm.h>
+#include <netinet/ip.h>
+#include <netinet/ip6.h>
+#include <netinet/udp.h>
+
+#include <netdb.h>
+
+#define PCAP_SNAPLEN 1460
+#ifndef ETHER_HDR_LEN
+#define ETHER_ADDR_LEN 6
+#define ETHER_TYPE_LEN 2
+#define ETHER_HDR_LEN (ETHER_ADDR_LEN * 2 + ETHER_TYPE_LEN)
+#endif
+#ifndef ETHERTYPE_8021Q
+# define ETHERTYPE_8021Q 0x8100
+#endif
+#ifndef ETHERTYPE_IPV6
+# define ETHERTYPE_IPV6 0x86DD
+#endif
+
+#include <net/if_ppp.h>
+#ifndef PPP_ADDRESS_VAL
+# define PPP_ADDRESS_VAL 0xff  /* The address byte value */
+#endif
+#ifndef PPP_CONTROL_VAL
+# define PPP_CONTROL_VAL 0x03  /* The control byte value */
+#endif
+
+#ifdef __linux__
+#define uh_sport source
+#define uh_dport dest
+#endif
+
+#include "utils_dns.h"
+
+/*
+ * Type definitions
+ */
+struct ip_list_s
+{
+    struct in6_addr addr;
+    void *data;
+    struct ip_list_s *next;
+};
+typedef struct ip_list_s ip_list_t;
+
+typedef int (printer)(const char *, ...);
+
+/*
+ * flags/features for non-interactive mode
+ */
+
+#ifndef T_A6
+#define T_A6 38
+#endif
+#ifndef T_SRV
+#define T_SRV 33
+#endif
+
+/*
+ * Global variables
+ */
+int qtype_counts[T_MAX];
+int opcode_counts[OP_MAX];
+int qclass_counts[C_MAX];
+
+static pcap_t *pcap_obj = NULL;
+
+static ip_list_t *IgnoreList = NULL;
+
+static void (*Callback) (const rfc1035_header_t *) = NULL;
+
+static int query_count_intvl = 0;
+static int query_count_total = 0;
+#ifdef __OpenBSD__
+static struct bpf_timeval last_ts;
+#else
+static struct timeval last_ts;
+#endif
+
+static int cmp_in6_addr (const struct in6_addr *a,
+       const struct in6_addr *b)
+{
+    int i;
+
+    for (i = 0; i < 4; i++)
+       if (a->s6_addr32[i] != b->s6_addr32[i])
+           break;
+
+    if (i >= 4)
+       return (0);
+
+    return (a->s6_addr32[i] > b->s6_addr32[i] ? 1 : -1);
+} /* int cmp_addrinfo */
+
+static inline int ignore_list_match (const struct in6_addr *addr)
+{
+    ip_list_t *ptr;
+
+    for (ptr = IgnoreList; ptr != NULL; ptr = ptr->next)
+       if (cmp_in6_addr (addr, &ptr->addr) == 0)
+           return (1);
+    return (0);
+} /* int ignore_list_match */
+
+static void ignore_list_add (const struct in6_addr *addr)
+{
+    ip_list_t *new;
+
+    if (ignore_list_match (addr) != 0)
+       return;
+
+    new = malloc (sizeof (ip_list_t));
+    if (new == NULL)
+    {
+       perror ("malloc");
+       return;
+    }
+
+    memcpy (&new->addr, addr, sizeof (struct in6_addr));
+    new->next = IgnoreList;
+
+    IgnoreList = new;
+} /* void ignore_list_add */
+
+void ignore_list_add_name (const char *name)
+{
+    struct addrinfo *ai_list;
+    struct addrinfo *ai_ptr;
+    struct in6_addr  addr;
+    int status;
+
+    status = getaddrinfo (name, NULL, NULL, &ai_list);
+    if (status != 0)
+       return;
+
+    for (ai_ptr = ai_list; ai_ptr != NULL; ai_ptr = ai_ptr->ai_next)
+    {
+       if (ai_ptr->ai_family == AF_INET)
+       {
+           addr.s6_addr32[0] = 0;
+           addr.s6_addr32[1] = 0;
+           addr.s6_addr32[2] = htonl (0x0000FFFF);
+           addr.s6_addr32[3] = ((struct sockaddr_in *) ai_ptr->ai_addr)->sin_addr.s_addr;
+
+           ignore_list_add (&addr);
+       }
+       else
+       {
+           ignore_list_add (&((struct sockaddr_in6 *) ai_ptr->ai_addr)->sin6_addr);
+       }
+    } /* for */
+
+    freeaddrinfo (ai_list);
+}
+
+static void in6_addr_from_buffer (struct in6_addr *ia,
+       const void *buf, size_t buf_len,
+       int family)
+{
+    memset (ia, 0, sizeof (struct in6_addr));
+    if ((AF_INET == family) && (sizeof (uint32_t) == buf_len))
+    {
+       ia->s6_addr32[2] = htonl (0x0000FFFF);
+       ia->s6_addr32[3] = *((uint32_t *) buf);
+    }
+    else if ((AF_INET6 == family) && (sizeof (struct in6_addr) == buf_len))
+    {
+       memcpy (ia, buf, buf_len);
+    }
+} /* void in6_addr_from_buffer */
+
+void dnstop_set_pcap_obj (pcap_t *po)
+{
+       pcap_obj = po;
+}
+
+void dnstop_set_callback (void (*cb) (const rfc1035_header_t *))
+{
+       Callback = cb;
+}
+
+#define RFC1035_MAXLABELSZ 63
+static int
+rfc1035NameUnpack(const char *buf, size_t sz, off_t * off, char *name, size_t ns
+)
+{
+    off_t no = 0;
+    unsigned char c;
+    size_t len;
+    assert(ns > 0);
+    do {
+       if ((*off) >= sz)
+           break;
+       c = *(buf + (*off));
+       if (c > 191) {
+           /* blasted compression */
+           unsigned short s;
+           off_t ptr;
+           memcpy(&s, buf + (*off), sizeof(s));
+           s = ntohs(s);
+           (*off) += sizeof(s);
+           /* Sanity check */
+           if ((*off) >= sz)
+               return 1;
+           ptr = s & 0x3FFF;
+           /* Make sure the pointer is inside this message */
+           if (ptr >= sz)
+               return 2;
+           return rfc1035NameUnpack(buf, sz, &ptr, name + no, ns - no);
+       } else if (c > RFC1035_MAXLABELSZ) {
+           /*
+            * "(The 10 and 01 combinations are reserved for future use.)"
+            */
+           break;
+           return 3;
+       } else {
+           (*off)++;
+           len = (size_t) c;
+           if (len == 0)
+               break;
+           if (len > (ns - 1))
+               len = ns - 1;
+           if ((*off) + len > sz)      /* message is too short */
+               return 4;
+           memcpy(name + no, buf + (*off), len);
+           (*off) += len;
+           no += len;
+           *(name + (no++)) = '.';
+       }
+    } while (c > 0);
+    *(name + no - 1) = '\0';
+    /* make sure we didn't allow someone to overflow the name buffer */
+    assert(no <= ns);
+    return 0;
+}
+
+static int
+handle_dns(const char *buf, int len,
+       const struct in6_addr *s_addr,
+       const struct in6_addr *d_addr)
+{
+    rfc1035_header_t qh;
+    uint16_t us;
+    off_t offset;
+    char *t;
+    int x;
+
+    /* The DNS header is 12 bytes long */
+    if (len < 12)
+       return 0;
+
+    memcpy(&us, buf + 0, 2);
+    qh.id = ntohs(us);
+
+    memcpy(&us, buf + 2, 2);
+    us = ntohs(us);
+    fprintf (stderr, "Bytes 0, 1: 0x%04hx\n", us);
+    qh.qr = (us >> 15) & 0x01;
+    qh.opcode = (us >> 11) & 0x0F;
+    qh.aa = (us >> 10) & 0x01;
+    qh.tc = (us >> 9) & 0x01;
+    qh.rd = (us >> 8) & 0x01;
+    qh.ra = (us >> 7) & 0x01;
+    qh.z  = (us >> 6) & 0x01;
+    qh.ad = (us >> 5) & 0x01;
+    qh.cd = (us >> 4) & 0x01;
+    qh.rcode = us & 0x0F;
+
+    memcpy(&us, buf + 4, 2);
+    qh.qdcount = ntohs(us);
+
+    memcpy(&us, buf + 6, 2);
+    qh.ancount = ntohs(us);
+
+    memcpy(&us, buf + 8, 2);
+    qh.nscount = ntohs(us);
+
+    memcpy(&us, buf + 10, 2);
+    qh.arcount = ntohs(us);
+
+    offset = 12;
+    memset(qh.qname, '\0', MAX_QNAME_SZ);
+    x = rfc1035NameUnpack(buf, len, &offset, qh.qname, MAX_QNAME_SZ);
+    if (0 != x)
+       return 0;
+    if ('\0' == qh.qname[0])
+       strcpy(qh.qname, ".");
+    while ((t = strchr(qh.qname, '\n')))
+       *t = ' ';
+    while ((t = strchr(qh.qname, '\r')))
+       *t = ' ';
+    for (t = qh.qname; *t; t++)
+       *t = tolower(*t);
+
+    memcpy(&us, buf + offset, 2);
+    qh.qtype = ntohs(us);
+    memcpy(&us, buf + offset + 2, 2);
+    qh.qclass = ntohs(us);
+
+    qh.length = (uint16_t) len;
+
+    /* gather stats */
+    qtype_counts[qh.qtype]++;
+    qclass_counts[qh.qclass]++;
+    opcode_counts[qh.opcode]++;
+
+    if (Callback != NULL)
+           Callback (&qh);
+
+    return 1;
+}
+
+static int
+handle_udp(const struct udphdr *udp, int len,
+       const struct in6_addr *s_addr,
+       const struct in6_addr *d_addr)
+{
+    char buf[PCAP_SNAPLEN];
+    if ((ntohs (udp->uh_dport) != 53)
+                   && (ntohs (udp->uh_sport) != 53))
+       return 0;
+    memcpy(buf, udp + 1, len - sizeof(*udp));
+    if (0 == handle_dns(buf, len - sizeof(*udp), s_addr, d_addr))
+       return 0;
+    return 1;
+}
+
+static int
+handle_ipv6 (struct ip6_hdr *ipv6, int len)
+{
+    char buf[PCAP_SNAPLEN];
+    int offset;
+    int nexthdr;
+
+    struct in6_addr s_addr;
+    struct in6_addr d_addr;
+    uint16_t payload_len;
+
+    offset = sizeof (struct ip6_hdr);
+    nexthdr = ipv6->ip6_nxt;
+    s_addr = ipv6->ip6_src;
+    d_addr = ipv6->ip6_dst;
+    payload_len = ntohs (ipv6->ip6_plen);
+
+    if (ignore_list_match (&s_addr))
+           return (0);
+
+    /* Parse extension headers. This only handles the standard headers, as
+     * defined in RFC 2460, correctly. Fragments are discarded. */
+    while ((IPPROTO_ROUTING == nexthdr) /* routing header */
+           || (IPPROTO_HOPOPTS == nexthdr) /* Hop-by-Hop options. */
+           || (IPPROTO_FRAGMENT == nexthdr) /* fragmentation header. */
+           || (IPPROTO_DSTOPTS == nexthdr) /* destination options. */
+           || (IPPROTO_DSTOPTS == nexthdr) /* destination options. */
+           || (IPPROTO_AH == nexthdr) /* destination options. */
+           || (IPPROTO_ESP == nexthdr)) /* encapsulating security payload. */
+    {
+       struct ip6_ext ext_hdr;
+       uint16_t ext_hdr_len;
+
+       /* Catch broken packets */
+       if ((offset + sizeof (struct ip6_ext)) > len)
+           return (0);
+
+       /* Cannot handle fragments. */
+       if (IPPROTO_FRAGMENT == nexthdr)
+           return (0);
+
+       memcpy (&ext_hdr, (char *) ipv6 + offset, sizeof (struct ip6_ext));
+       nexthdr = ext_hdr.ip6e_nxt;
+       ext_hdr_len = (8 * (ntohs (ext_hdr.ip6e_len) + 1));
+
+       /* This header is longer than the packets payload.. WTF? */
+       if (ext_hdr_len > payload_len)
+           return (0);
+
+       offset += ext_hdr_len;
+       payload_len -= ext_hdr_len;
+    } /* while */
+
+    /* Catch broken and empty packets */
+    if (((offset + payload_len) > len)
+           || (payload_len == 0)
+           || (payload_len > PCAP_SNAPLEN))
+       return (0);
+
+    if (IPPROTO_UDP != nexthdr)
+       return (0);
+
+    memcpy (buf, (char *) ipv6 + offset, payload_len);
+    if (handle_udp ((struct udphdr *) buf, payload_len, &s_addr, &d_addr) == 0)
+       return (0);
+
+    return (1); /* Success */
+} /* int handle_ipv6 */
+
+static int
+handle_ip(const struct ip *ip, int len)
+{
+    char buf[PCAP_SNAPLEN];
+    int offset = ip->ip_hl << 2;
+    struct in6_addr s_addr;
+    struct in6_addr d_addr;
+
+    if (ip->ip_v == 6)
+       return (handle_ipv6 ((struct ip6_hdr *) ip, len));
+
+    in6_addr_from_buffer (&s_addr, &ip->ip_src.s_addr, sizeof (ip->ip_src.s_addr), AF_INET);
+    in6_addr_from_buffer (&d_addr, &ip->ip_dst.s_addr, sizeof (ip->ip_dst.s_addr), AF_INET);
+    if (ignore_list_match (&s_addr))
+           return (0);
+    if (IPPROTO_UDP != ip->ip_p)
+       return 0;
+    memcpy(buf, (void *) ip + offset, len - offset);
+    if (0 == handle_udp((struct udphdr *) buf, len - offset, &s_addr, &d_addr))
+       return 0;
+    return 1;
+}
+
+static int
+handle_ppp(const u_char * pkt, int len)
+{
+    char buf[PCAP_SNAPLEN];
+    unsigned short us;
+    unsigned short proto;
+    if (len < 2)
+       return 0;
+    if (*pkt == PPP_ADDRESS_VAL && *(pkt + 1) == PPP_CONTROL_VAL) {
+       pkt += 2;               /* ACFC not used */
+       len -= 2;
+    }
+    if (len < 2)
+       return 0;
+    if (*pkt % 2) {
+       proto = *pkt;           /* PFC is used */
+       pkt++;
+       len--;
+    } else {
+       memcpy(&us, pkt, sizeof(us));
+       proto = ntohs(us);
+       pkt += 2;
+       len -= 2;
+    }
+    if (ETHERTYPE_IP != proto && PPP_IP != proto)
+       return 0;
+    memcpy(buf, pkt, len);
+    return handle_ip((struct ip *) buf, len);
+}
+
+static int
+handle_null(const u_char * pkt, int len)
+{
+    unsigned int family;
+    memcpy(&family, pkt, sizeof(family));
+    if (AF_INET != family)
+       return 0;
+    return handle_ip((struct ip *) (pkt + 4), len - 4);
+}
+
+#ifdef DLT_LOOP
+static int
+handle_loop(const u_char * pkt, int len)
+{
+    unsigned int family;
+    memcpy(&family, pkt, sizeof(family));
+    if (AF_INET != ntohl(family))
+       return 0;
+    return handle_ip((struct ip *) (pkt + 4), len - 4);
+}
+
+#endif
+
+#ifdef DLT_RAW
+static int
+handle_raw(const u_char * pkt, int len)
+{
+    return handle_ip((struct ip *) pkt, len);
+}
+
+#endif
+
+static int
+handle_ether(const u_char * pkt, int len)
+{
+    char buf[PCAP_SNAPLEN];
+    struct ether_header *e = (void *) pkt;
+    unsigned short etype = ntohs(e->ether_type);
+    if (len < ETHER_HDR_LEN)
+       return 0;
+    pkt += ETHER_HDR_LEN;
+    len -= ETHER_HDR_LEN;
+    if (ETHERTYPE_8021Q == etype) {
+       etype = ntohs(*(unsigned short *) (pkt + 2));
+       pkt += 4;
+       len -= 4;
+    }
+    if ((ETHERTYPE_IP != etype)
+           && (ETHERTYPE_IPV6 != etype))
+       return 0;
+    memcpy(buf, pkt, len);
+    if (ETHERTYPE_IPV6 == etype)
+       return (handle_ipv6 ((struct ip6_hdr *) buf, len));
+    else
+       return handle_ip((struct ip *) buf, len);
+}
+
+/* public function */
+void handle_pcap(u_char *udata, const struct pcap_pkthdr *hdr, const u_char *pkt)
+{
+    int status;
+
+    fprintf (stderr, "handle_pcap (udata = %p, hdr = %p, pkt = %p): hdr->caplen = %i\n",
+                   (void *) udata, (void *) hdr, (void *) pkt,
+                   hdr->caplen);
+
+    if (hdr->caplen < ETHER_HDR_LEN)
+       return;
+
+    switch (pcap_datalink (pcap_obj))
+    {
+       case DLT_EN10MB:
+           status = handle_ether (pkt, hdr->caplen);
+           break;
+       case DLT_PPP:
+           status = handle_ppp (pkt, hdr->caplen);
+           break;
+#ifdef DLT_LOOP
+       case DLT_LOOP:
+           status = handle_loop (pkt, hdr->caplen);
+           break;
+#endif
+#ifdef DLT_RAW
+       case DLT_RAW:
+           status = handle_raw (pkt, hdr->caplen);
+           break;
+#endif
+       case DLT_NULL:
+           status = handle_null (pkt, hdr->caplen);
+           break;
+
+       default:
+           fprintf (stderr, "unsupported data link type %d\n",
+                   pcap_datalink(pcap_obj));
+           status = 0;
+           break;
+    } /* switch (pcap_datalink(pcap_obj)) */
+
+    if (0 == status)
+       return;
+
+    query_count_intvl++;
+    query_count_total++;
+    last_ts = hdr->ts;
+}
+
+const char *qtype_str(int t)
+{
+    static char buf[32];
+    switch (t) {
+           case ns_t_a:        return ("A");
+           case ns_t_ns:       return ("NS");
+           case ns_t_md:       return ("MD");
+           case ns_t_mf:       return ("MF");
+           case ns_t_cname:    return ("CNAME");
+           case ns_t_soa:      return ("SOA");
+           case ns_t_mb:       return ("MB");
+           case ns_t_mg:       return ("MG");
+           case ns_t_mr:       return ("MR");
+           case ns_t_null:     return ("NULL");
+           case ns_t_wks:      return ("WKS");
+           case ns_t_ptr:      return ("PTR");
+           case ns_t_hinfo:    return ("HINFO");
+           case ns_t_minfo:    return ("MINFO");
+           case ns_t_mx:       return ("MX");
+           case ns_t_txt:      return ("TXT");
+           case ns_t_rp:       return ("RP");
+           case ns_t_afsdb:    return ("AFSDB");
+           case ns_t_x25:      return ("X25");
+           case ns_t_isdn:     return ("ISDN");
+           case ns_t_rt:       return ("RT");
+           case ns_t_nsap:     return ("NSAP");
+           case ns_t_nsap_ptr: return ("NSAP-PTR");
+           case ns_t_sig:      return ("SIG");
+           case ns_t_key:      return ("KEY");
+           case ns_t_px:       return ("PX");
+           case ns_t_gpos:     return ("GPOS");
+           case ns_t_aaaa:     return ("AAAA");
+           case ns_t_loc:      return ("LOC");
+           case ns_t_nxt:      return ("NXT");
+           case ns_t_eid:      return ("EID");
+           case ns_t_nimloc:   return ("NIMLOC");
+           case ns_t_srv:      return ("SRV");
+           case ns_t_atma:     return ("ATMA");
+           case ns_t_naptr:    return ("NAPTR");
+           case ns_t_kx:       return ("KX");
+           case ns_t_cert:     return ("CERT");
+           case ns_t_a6:       return ("A6");
+           case ns_t_dname:    return ("DNAME");
+           case ns_t_sink:     return ("SINK");
+           case ns_t_opt:      return ("OPT");
+           case ns_t_tsig:     return ("TSIG");
+           case ns_t_ixfr:     return ("IXFR");
+           case ns_t_axfr:     return ("AXFR");
+           case ns_t_mailb:    return ("MAILB");
+           case ns_t_maila:    return ("MAILA");
+           case ns_t_any:      return ("ANY");
+           case ns_t_zxfr:     return ("ZXFR");
+           default:
+                   snprintf (buf, 32, "#%i", t);
+                   buf[31] = '\0';
+                   return (buf);
+    }; /* switch (t) */
+    /* NOTREACHED */
+    return (NULL);
+}
+
+const char *opcode_str (int o)
+{
+    static char buf[30];
+    switch (o) {
+    case 0:
+       return "Query";
+       break;
+    case 1:
+       return "Iquery";
+       break;
+    case 2:
+       return "Status";
+       break;
+    case 4:
+       return "Notify";
+       break;
+    case 5:
+       return "Update";
+       break;
+    default:
+       snprintf(buf, 30, "Opcode%d", o);
+       return buf;
+    }
+    /* NOTREACHED */
+}
+
+const char *rcode_str (int rcode)
+{
+       static char buf[32];
+       switch (rcode)
+       {
+               case ns_r_noerror:  return ("NOERROR");
+               case ns_r_formerr:  return ("FORMERR");
+               case ns_r_servfail: return ("SERVFAIL");
+               case ns_r_nxdomain: return ("NXDOMAIN");
+               case ns_r_notimpl:  return ("NOTIMPL");
+               case ns_r_refused:  return ("REFUSED");
+               case ns_r_yxdomain: return ("YXDOMAIN");
+               case ns_r_yxrrset:  return ("YXRRSET");
+               case ns_r_nxrrset:  return ("NXRRSET");
+               case ns_r_notauth:  return ("NOTAUTH");
+               case ns_r_notzone:  return ("NOTZONE");
+               case ns_r_max:      return ("MAX");
+               case ns_r_badsig:   return ("BADSIG");
+               case ns_r_badkey:   return ("BADKEY");
+               case ns_r_badtime:  return ("BADTIME");
+               default:
+                       snprintf (buf, 32, "RCode%i", rcode);
+                       buf[31] = '\0';
+                       return (buf);
+       }
+       /* Never reached */
+       return (NULL);
+} /* const char *rcode_str (int rcode) */
+
+#if 0
+static int
+main(int argc, char *argv[])
+{
+    char errbuf[PCAP_ERRBUF_SIZE];
+    int x;
+    struct stat sb;
+    int readfile_state = 0;
+    struct bpf_program fp;
+
+    port53 = htons(53);
+    SubReport = Sources_report;
+    ignore_addr.s_addr = 0;
+    progname = strdup(strrchr(argv[0], '/') ? strchr(argv[0], '/') + 1 : argv[0]);
+    srandom(time(NULL));
+    ResetCounters();
+
+    while ((x = getopt(argc, argv, "ab:f:i:pst")) != -1) {
+       switch (x) {
+       case 'a':
+           anon_flag = 1;
+           break;
+       case 's':
+           sld_flag = 1;
+           break;
+       case 't':
+           nld_flag = 1;
+           break;
+       case 'p':
+           promisc_flag = 0;
+           break;
+       case 'b':
+           bpf_program_str = strdup(optarg);
+           break;
+       case 'i':
+           ignore_addr.s_addr = inet_addr(optarg);
+           break;
+       case 'f':
+           set_filter(optarg);
+           break;
+       default:
+           usage();
+           break;
+       }
+    }
+    argc -= optind;
+    argv += optind;
+
+    if (argc < 1)
+       usage();
+    device = strdup(argv[0]);
+
+    if (0 == stat(device, &sb))
+       readfile_state = 1;
+    if (readfile_state) {
+       pcap_obj = pcap_open_offline(device, errbuf);
+    } else {
+       pcap_obj = pcap_open_live(device, PCAP_SNAPLEN, promisc_flag, 1000, errbuf);
+    }
+    if (NULL == pcap_obj) {
+       fprintf(stderr, "pcap_open_*: %s\n", errbuf);
+       exit(1);
+    }
+
+    if (0 == isatty(1)) {
+       if (0 == readfile_state) {
+           fprintf(stderr, "Non-interactive mode requires savefile argument\n");
+           exit(1);
+       }
+       interactive = 0;
+       print_func = printf;
+    }
+
+    memset(&fp, '\0', sizeof(fp));
+    x = pcap_compile(pcap_obj, &fp, bpf_program_str, 1, 0);
+    if (x < 0) {
+       fprintf(stderr, "pcap_compile failed\n");
+       exit(1);
+    }
+    x = pcap_setfilter(pcap_obj, &fp);
+    if (x < 0) {
+       fprintf(stderr, "pcap_setfilter failed\n");
+       exit(1);
+    }
+
+    /*
+     * non-blocking call added for Mac OS X bugfix.  Sent by Max Horn.
+     * ref http://www.tcpdump.org/lists/workers/2002/09/msg00033.html
+     */
+    x = pcap_setnonblock(pcap_obj, 1, errbuf);
+    if (x < 0) {
+       fprintf(stderr, "pcap_setnonblock failed: %s\n", errbuf);
+       exit(1);
+    }
+
+    switch (pcap_datalink(pcap_obj)) {
+    case DLT_EN10MB:
+       handle_datalink = handle_ether;
+       break;
+#if USE_PPP
+    case DLT_PPP:
+       handle_datalink = handle_ppp;
+       break;
+#endif
+#ifdef DLT_LOOP
+    case DLT_LOOP:
+       handle_datalink = handle_loop;
+       break;
+#endif
+#ifdef DLT_RAW
+    case DLT_RAW:
+       handle_datalink = handle_raw;
+       break;
+#endif
+    case DLT_NULL:
+       handle_datalink = handle_null;
+       break;
+    default:
+       fprintf(stderr, "unsupported data link type %d\n",
+           pcap_datalink(pcap_obj));
+       return 1;
+       break;
+    }
+    if (interactive) {
+       init_curses();
+       while (0 == Quit) {
+           if (readfile_state < 2) {
+               /*
+                * On some OSes select() might return 0 even when
+                * there are packets to process.  Thus, we always
+                * ignore its return value and just call pcap_dispatch()
+                * anyway.
+                */
+               if (0 == readfile_state)        /* interactive */
+                   pcap_select(pcap_obj, 1, 0);
+               x = pcap_dispatch(pcap_obj, 50, handle_pcap, NULL);
+           }
+           if (0 == x && 1 == readfile_state) {
+               /* block on keyboard until user quits */
+               readfile_state++;
+               nodelay(w, 0);
+           }
+           keyboard();
+           cron_pre();
+           report();
+           cron_post();
+       }
+       endwin();               /* klin, Thu Nov 28 08:56:51 2002 */
+    } else {
+       while (pcap_dispatch(pcap_obj, 50, handle_pcap, NULL))
+               (void) 0;
+       cron_pre();
+       Sources_report(); print_func("\n");
+       Destinatioreport(); print_func("\n");
+       Qtypes_report(); print_func("\n");
+       Opcodes_report(); print_func("\n");
+       Tld_report(); print_func("\n");
+       Sld_report(); print_func("\n");
+       Nld_report(); print_func("\n");
+       SldBySource_report();
+    }
+
+    pcap_close(pcap_obj);
+    return 0;
+} /* static int main(int argc, char *argv[]) */
+#endif