Include <time.h> to declare "gmtime()".
[obnox/wireshark/wip.git] / packet-dns.c
index 5416706934bbef84dbb37ca48b52370df82165e9..dec4c7a1235d803d2f0a331ca7fb92955867d91d 100644 (file)
@@ -1,7 +1,7 @@
 /* packet-dns.c
  * Routines for DNS packet disassembly
  *
- * $Id: packet-dns.c,v 1.9 1998/11/17 04:28:51 gerald Exp $
+ * $Id: packet-dns.c,v 1.33 1999/12/29 10:36:13 guy Exp $
  *
  * Ethereal - Network traffic analyzer
  * By Gerald Combs <gerald@zing.org>
 # include "config.h"
 #endif
 
-#include <gtk/gtk.h>
-
-#include <stdio.h>
-#include <memory.h>
-
 #ifdef HAVE_SYS_TYPES_H
 # include <sys/types.h>
 #endif
 
-#ifdef HAVE_NETINET_IN_H
-# include <netinet/in.h>
-#endif
+#include <stdio.h>
+#include <string.h>
+#include <memory.h>
 
-#include "ethereal.h"
+#include <glib.h>
 #include "packet.h"
 #include "packet-dns.h"
-
+#include "util.h"
+
+static int proto_dns = -1;
+static int hf_dns_response = -1;
+static int hf_dns_query = -1;
+static int hf_dns_flags = -1;
+static int hf_dns_transaction_id = -1;
+static int hf_dns_count_questions = -1;
+static int hf_dns_count_answers = -1;
+static int hf_dns_count_auth_rr = -1;
+static int hf_dns_count_add_rr = -1;
+
+static gint ett_dns = -1;
+static gint ett_dns_qd = -1;
+static gint ett_dns_rr = -1;
+static gint ett_dns_qry = -1;
+static gint ett_dns_ans = -1;
+static gint ett_dns_flags = -1;
+static gint ett_t_key_flags = -1;
 
 /* DNS structs and definitions */
 
-typedef struct _e_dns {
-  guint16 dns_id;
-  guint16 dns_flags;
-  guint16 dns_quest;
-  guint16 dns_ans;
-  guint16 dns_auth;
-  guint16 dns_add;
-} e_dns;
+/* Offsets of fields in the DNS header. */
+#define        DNS_ID          0
+#define        DNS_FLAGS       2
+#define        DNS_QUEST       4
+#define        DNS_ANS         6
+#define        DNS_AUTH        8
+#define        DNS_ADD         10
+
+/* Length of DNS header. */
+#define        DNS_HDRLEN      12
 
 /* type values  */
 #define T_A             1               /* host address */
-#define T_NS            2               /* authoritative server */
+#define T_NS            2               /* authoritative name server */
+#define T_MD            3               /* mail destination (obsolete) */
+#define T_MF            4               /* mail forwarder (obsolete) */
 #define T_CNAME         5               /* canonical name */
 #define T_SOA           6               /* start of authority zone */
+#define T_MB            7               /* mailbox domain name (experimental) */
+#define T_MG            8               /* mail group member (experimental) */
+#define T_MR            9               /* mail rename domain name (experimental) */
+#define T_NULL          10              /* null RR (experimental) */
 #define T_WKS           11              /* well known service */
 #define T_PTR           12              /* domain name pointer */
 #define T_HINFO         13              /* host information */
+#define T_MINFO         14              /* mailbox or mail list information */
 #define T_MX            15              /* mail routing information */
 #define T_TXT           16              /* text strings */
-#define T_AAAA          28              /* IP6 Address */
-
-
+#define T_RP            17              /* responsible person (RFC 1183) */
+#define T_AFSDB         18              /* AFS data base location (RFC 1183) */
+#define T_X25           19              /* X.25 address (RFC 1183) */
+#define T_ISDN          20              /* ISDN address (RFC 1183) */
+#define T_RT            21              /* route-through (RFC 1183) */
+#define T_NSAP          22              /* OSI NSAP (RFC 1706) */
+#define T_NSAP_PTR      23              /* PTR equivalent for OSI NSAP (RFC 1348 - obsolete) */
+#define T_SIG           24              /* digital signature (RFC 2065) */
+#define T_KEY           25              /* public key (RFC 2065) */
+#define T_PX            26              /* pointer to X.400/RFC822 mapping info (RFC 1664) */
+#define T_GPOS          27              /* geographical position (RFC 1712) */
+#define T_AAAA          28              /* IPv6 address (RFC 1886) */
+#define T_LOC           29              /* geographical location (RFC 1876) */
+#define T_NXT           30              /* "next" name (RFC 2065) */
+#define T_EID           31              /* ??? (Nimrod?) */
+#define T_NIMLOC        32              /* ??? (Nimrod?) */
+#define T_SRV           33              /* service location (RFC 2052) */
+#define T_ATMA          34              /* ??? */
+#define T_NAPTR         35              /* naming authority pointer (RFC 2168) */
+
+/* Bit fields in the flags */
+#define F_RESPONSE      (1<<15)         /* packet is response */
+#define F_OPCODE        (0xF<<11)       /* query opcode */
+#define F_AUTHORITATIVE (1<<10)         /* response is authoritative */
+#define F_TRUNCATED     (1<<9)          /* response is truncated */
+#define F_RECDESIRED    (1<<8)          /* recursion desired */
+#define F_RECAVAIL      (1<<7)          /* recursion available */
+#define F_RCODE         (0xF<<0)        /* reply code */
+
+/* Opcodes */
+#define OPCODE_QUERY    (0<<11)         /* standard query */
+#define OPCODE_IQUERY   (1<<11)         /* inverse query */
+#define OPCODE_STATUS   (2<<11)         /* server status request */
+
+/* Reply codes */
+#define RCODE_NOERROR   (0<<0)
+#define RCODE_FMTERROR  (1<<0)
+#define RCODE_SERVFAIL  (2<<0)
+#define RCODE_NAMEERROR (3<<0)
+#define RCODE_NOTIMPL   (4<<0)
+#define RCODE_REFUSED   (5<<0)
+
+/* See RFC 1035 for all RR types for which no RFC is listed. */
 static char *
-dns_type_name (int type)
+dns_type_name (u_int type)
 {
   char *type_names[36] = {
-    "unused", "A", "NS", "MD", "MF", "CNAME", "SOA", "MB", "MG", "MR",
-    "NULL", "WKS", "PTR", "HINFO", "MINFO", "MX", "TXT", "RP", "AFSDB",
-    "X25", "ISDN", "RT", "NSAP", "NSAP_PTR", "SIG", "KEY", "PX", "GPOS",
-    "AAAA", "LOC", "NXT", "EID", "NIMLOC", "SRV", "ATMA", "NAPTR"
+    "unused",
+    "A",
+    "NS",
+    "MD",
+    "MF",
+    "CNAME",
+    "SOA",
+    "MB",
+    "MG",
+    "MR",
+    "NULL",
+    "WKS",
+    "PTR",
+    "HINFO",
+    "MINFO",
+    "MX",
+    "TXT",
+    "RP",                              /* RFC 1183 */
+    "AFSDB",                           /* RFC 1183 */
+    "X25",                             /* RFC 1183 */
+    "ISDN",                            /* RFC 1183 */
+    "RT",                              /* RFC 1183 */
+    "NSAP",                            /* RFC 1706 */
+    "NSAP-PTR",                                /* RFC 1348 */
+    "SIG",                             /* RFC 2065 */
+    "KEY",                             /* RFC 2065 */
+    "PX",                              /* RFC 1664 */
+    "GPOS",                            /* RFC 1712 */
+    "AAAA",                            /* RFC 1886 */
+    "LOC",                             /* RFC 1876 */
+    "NXT",                             /* RFC 2065 */
+    "EID",
+    "NIMLOC",
+    "SRV",                             /* RFC 2052 */
+    "ATMA",
+    "NAPTR"                            /* RFC 2168 */
   };
   
   if (type <= 35)
@@ -97,7 +191,7 @@ dns_type_name (int type)
       
       /* queries  */
     case 251:
-      return "IXFR";
+      return "IXFR";   /* RFC 1995 */
     case 252:
       return "AXFR";
     case 253:
@@ -107,11 +201,88 @@ dns_type_name (int type)
     case 255:
       return "ANY";
     }
-  
+
   return "unknown";
 }
 
 
+static char *
+dns_long_type_name (u_int type)
+{
+  char *type_names[36] = {
+    "unused",
+    "Host address",
+    "Authoritative name server",       
+    "Mail destination",
+    "Mail forwarder",
+    "Canonical name for an alias",
+    "Start of zone of authority",
+    "Mailbox domain name",
+    "Mail group member",
+    "Mail rename domain name",
+    "Null resource record",
+    "Well-known service description",
+    "Domain name pointer",
+    "Host information",
+    "Mailbox or mail list information",
+    "Mail exchange",
+    "Text strings",
+    "Responsible person",              /* RFC 1183 */
+    "AFS data base location",          /* RFC 1183 */
+    "X.25 address",                    /* RFC 1183 */
+    "ISDN number",                     /* RFC 1183 */
+    "Route through",                   /* RFC 1183 */
+    "OSI NSAP",                                /* RFC 1706 */
+    "OSI NSAP name pointer",           /* RFC 1348 */
+    "Signature",                       /* RFC 2065 */
+    "Public key",                      /* RFC 2065 */
+    "Pointer to X.400/RFC822 mapping info", /* RFC 1664 */
+    "Geographical position",           /* RFC 1712 */
+    "IPv6 address",                    /* RFC 1886 */
+    "Location",                                /* RFC 1876 */
+    "Next",                            /* RFC 2065 */
+    "EID",
+    "NIMLOC",
+    "Service location",                        /* RFC 2052 */
+    "ATMA",
+    "Naming authority pointer"         /* RFC 2168 */
+  };
+  static char unkbuf[7+1+2+1+4+1+1+10+1+1];    /* "Unknown RR type (%d)" */
+  
+  if (type <= 35)
+    return type_names[type];
+  
+  /* special cases */
+  switch (type) 
+    {
+      /* non standard  */
+    case 100:
+      return "UINFO";
+    case 101:
+      return "UID";
+    case 102:
+      return "GID";
+    case 103:
+      return "UNSPEC";
+      
+      /* queries  */
+    case 251:
+      return "Request for incremental zone transfer";  /* RFC 1995 */
+    case 252:
+      return "Request for full zone transfer";
+    case 253:
+      return "Request for mailbox-related records";
+    case 254:
+      return "Request for mail agent resource records";
+    case 255:
+      return "Request for all records";
+    }
+  
+  sprintf(unkbuf, "Unknown RR type (%d)", type);
+  return unkbuf;
+}
+
+
 char *
 dns_class_name(int class)
 {
@@ -133,135 +304,177 @@ dns_class_name(int class)
 
   return class_name;
 }
-  
-
-static int
-is_compressed_name(const u_char *foo)
-{
-  return (0xc0 == (*foo & 0xc0));
-}
-
-
-static int
-get_compressed_name_offset(const u_char *ptr)
-{
-  return ((*ptr & ~0xc0) << 8) | *(ptr+1);
-}
-
-
-static int
-copy_one_name_component(const u_char *dataptr, char *nameptr)
-{
-  int len;
-  int n;
-  
-  len = n  = *dataptr++;
-  if (0 == len)
-    return 0;
-  
-  while (n-- > 0)
-    *nameptr++ = *dataptr++;
-
-  return len;
-}
-
-
-static int
-copy_name_component_rec(const u_char *dns_data_ptr, const u_char *dataptr,
-  char *nameptr, int *real_string_len)
-{
-  int len = 0;
-  int str_len;
-  int offset;
-  int compress = 0;
-  
-  if (is_compressed_name(dataptr)) {
-    compress = 1;
-    offset = get_compressed_name_offset(dataptr);
-    dataptr = dns_data_ptr + offset;
-    copy_name_component_rec(dns_data_ptr, dataptr, nameptr, &str_len);
-    *real_string_len += str_len;
-    nameptr += str_len;
-    len = 2;
-  }
-  else {
-    str_len = copy_one_name_component(dataptr, nameptr);
-    *real_string_len = str_len;
-    dataptr += str_len + 1;
-    len     += str_len + 1;
-    nameptr += str_len;
-  }
-
-  if (compress)
-    return len;
-  
-  (*real_string_len)++;
-
-  if (*dataptr > 0) {
-    *nameptr++ = '.';
-    len += copy_name_component_rec(dns_data_ptr, dataptr, nameptr, &str_len);
-    *real_string_len += str_len;
-    return len;
-  }
-
-  return len + 1;
-}
-
 
 int
-get_dns_name(const u_char *dns_data_ptr, const u_char *pd, int offset,
-  char *nameptr, int maxname)
+get_dns_name(const u_char *pd, int offset, int dns_data_offset,
+    char *name, int maxname)
 {
-  int len;
-  const u_char *dataptr = pd + offset;
-  int str_len = 0;
+  const u_char *dp = pd + offset;
+  const u_char *dptr = dp;
+  char *np = name;
+  int len = -1;
+  u_int component_len;
+
+  maxname--;   /* reserve space for the trailing '\0' */
+  for (;;) {
+    if (!BYTES_ARE_IN_FRAME(offset, 1))
+      goto overflow;
+    component_len = *dp++;
+    offset++;
+    if (component_len == 0)
+      break;
+    switch (component_len & 0xc0) {
+
+    case 0x00:
+      /* Label */
+      if (np != name) {
+       /* Not the first component - put in a '.'. */
+        if (maxname > 0) {
+          *np++ = '.';
+          maxname--;
+        }
+      }
+      if (!BYTES_ARE_IN_FRAME(offset, component_len))
+        goto overflow;
+      while (component_len > 0) {
+        if (maxname > 0) {
+          *np++ = *dp;
+          maxname--;
+        }
+       component_len--;
+       dp++;
+       offset++;
+      }
+      break;
+
+    case 0x40:
+    case 0x80:
+      goto error;      /* error */
+
+    case 0xc0:
+      /* Pointer. */
+      /* XXX - check to make sure we aren't looping, by keeping track
+         of how many characters are in the DNS packet, and of how many
+         characters we've looked at, and quitting if the latter
+         becomes bigger than the former. */
+      if (!BYTES_ARE_IN_FRAME(offset, 1))
+        goto overflow;
+      offset = dns_data_offset + (((component_len & ~0xc0) << 8) | (*dp++));
+      /* If "len" is negative, we are still working on the original name,
+         not something pointed to by a pointer, and so we should set "len"
+         to the length of the original name. */
+      if (len < 0)
+        len = dp - dptr;
+      dp = pd + offset;
+      break;   /* now continue processing from there */
+    }
+  }
+        
+error:
+  *np = '\0';
+  /* If "len" is negative, we haven't seen a pointer, and thus haven't
+     set the length, so set it. */
+  if (len < 0)
+    len = dp - dptr;
+  /* Zero-length name means "root server" */
+  if (*name == '\0')
+    strcpy(name, "<Root>");
+  return len;
 
-  memset (nameptr, 0, maxname);
-  len = copy_name_component_rec(dns_data_ptr, dataptr, nameptr, &str_len);
-  
+overflow:
+  /* We ran past the end of the captured data in the packet. */
+  strcpy(name, "<Name goes past end of captured data in packet>");
+  /* If "len" is negative, we haven't seen a pointer, and thus haven't
+     set the length, so set it. */
+  if (len < 0)
+    len = dp - dptr;
   return len;
 }
 
 
 static int
-get_dns_name_type_class (const u_char *dns_data_ptr,
-                        const u_char *pd,
-                        int offset,
-                        char *name_ret,
-                        int *name_len_ret,
-                        int *type_ret,
-                        int *class_ret)
+get_dns_name_type_class(const u_char *pd, int offset, int dns_data_offset,
+    char *name_ret, int *name_len_ret, int *type_ret, int *class_ret)
 {
   int len;
   int name_len;
   int type;
   int class;
   char name[MAXDNAME];
-  const u_char *pd_save;
+  int start_offset = offset;
 
-  name_len = get_dns_name(dns_data_ptr, pd, offset, name, sizeof(name));
-  pd += offset;
-  pd_save = pd;
-  pd += name_len;
+  name_len = get_dns_name(pd, offset, dns_data_offset, name, sizeof(name));
+  offset += name_len;
   
-  type = pntohs(pd);
-  pd += 2;
-  class = pntohs(pd);
-  pd += 2;
+  if (!BYTES_ARE_IN_FRAME(offset, 2)) {
+    /* We ran past the end of the captured data in the packet. */
+    return -1;
+  }
+  type = pntohs(&pd[offset]);
+  offset += 2;
+
+  if (!BYTES_ARE_IN_FRAME(offset, 2)) {
+    /* We ran past the end of the captured data in the packet. */
+    return -1;
+  }
+  class = pntohs(&pd[offset]);
+  offset += 2;
 
   strcpy (name_ret, name);
   *type_ret = type;
   *class_ret = class;
   *name_len_ret = name_len;
 
-  len = pd - pd_save;
+  len = offset - start_offset;
   return len;
 }
 
+static double
+rfc1867_size(u_char val)
+{
+  double size;
+  guint32 exponent;
+
+  size = (val & 0xF0) >> 4;
+  exponent = (val & 0x0F);
+  while (exponent != 0) {
+    size *= 10;
+    exponent--;
+  }
+  return size / 100;   /* return size in meters, not cm */
+}
+
+static char *
+rfc1867_angle(const u_char *dptr, const char *nsew)
+{
+  guint32 angle;
+  char direction;
+  guint32 degrees, minutes, secs, tsecs;
+  static char buf[10+1+3+1 + 2+1+3+1 + 2+1+3+1+3+1 + 1 + 1];
+
+  angle = pntohl(dptr);
+
+  if (angle < 0x80000000U) {
+    angle = 0x80000000U - angle;
+    direction = nsew[1];
+  } else {
+    angle = angle - 0x80000000U;
+    direction = nsew[0];
+  }
+  tsecs = angle % 1000;
+  angle = angle / 1000;
+  secs = angle % 60;
+  angle = angle / 60;
+  minutes = angle % 60;
+  degrees = angle / 60;
+  sprintf(buf, "%u deg %u min %u.%03u sec %c", degrees, minutes, secs,
+               tsecs, direction);
+  return buf;
+}
 
 static int
-dissect_dns_query(const u_char *dns_data_ptr, const u_char *pd, int offset,
-  GtkWidget *dns_tree)
+dissect_dns_query(const u_char *pd, int offset, int dns_data_offset,
+  frame_data *fd, proto_tree *dns_tree)
 {
   int len;
   char name[MAXDNAME];
@@ -270,61 +483,85 @@ dissect_dns_query(const u_char *dns_data_ptr, const u_char *pd, int offset,
   int class;
   char *class_name;
   char *type_name;
+  char *long_type_name;
   const u_char *dptr;
   const u_char *data_start;
-  GtkWidget *q_tree, *tq;
+  proto_tree *q_tree;
+  proto_item *tq;
 
   data_start = dptr = pd + offset;
 
-  len = get_dns_name_type_class(dns_data_ptr, pd, offset, name, &name_len,
+  len = get_dns_name_type_class(pd, offset, dns_data_offset, name, &name_len,
     &type, &class);
+  if (len < 0) {
+    /* We ran past the end of the data in the packet. */
+    return 0;
+  }
   dptr += len;
 
   type_name = dns_type_name(type);
   class_name = dns_class_name(class);
+  long_type_name = dns_long_type_name(type);
 
-  tq = add_item_to_tree(dns_tree, offset, len, "%s: type %s, class %s", 
+  if (fd != NULL)
+    col_append_fstr(fd, COL_INFO, " %s %s", type_name, name);
+  if (dns_tree != NULL) {
+    tq = proto_tree_add_text(dns_tree, offset, len, "%s: type %s, class %s", 
                   name, type_name, class_name);
-  q_tree = gtk_tree_new();
-  add_subtree(tq, q_tree, ETT_DNS_QD);
+    q_tree = proto_item_add_subtree(tq, ett_dns_qd);
 
-  add_item_to_tree(q_tree, offset, name_len, "Name: %s", name);
-  offset += name_len;
+    proto_tree_add_text(q_tree, offset, name_len, "Name: %s", name);
+    offset += name_len;
 
-  add_item_to_tree(q_tree, offset, 2, "Type: %s", type_name);
-  offset += 2;
+    proto_tree_add_text(q_tree, offset, 2, "Type: %s", long_type_name);
+    offset += 2;
 
-  add_item_to_tree(q_tree, offset, 2, "Class: %s", class_name);
-  offset += 2;
+    proto_tree_add_text(q_tree, offset, 2, "Class: %s", class_name);
+    offset += 2;
+  }
   
   return dptr - data_start;
 }
 
 
-GtkWidget *
-add_rr_to_tree(GtkWidget *trr, int rr_type, int offset, const char *name,
+proto_tree *
+add_rr_to_tree(proto_item *trr, int rr_type, int offset, const char *name,
   int namelen, const char *type_name, const char *class_name, u_int ttl,
   u_short data_len)
 {
-  GtkWidget *rr_tree;
+  proto_tree *rr_tree;
 
-  rr_tree = gtk_tree_new();
-  add_subtree(trr, rr_tree, rr_type);
-  add_item_to_tree(rr_tree, offset, namelen, "Name: %s", name);
+  rr_tree = proto_item_add_subtree(trr, rr_type);
+  proto_tree_add_text(rr_tree, offset, namelen, "Name: %s", name);
   offset += namelen;
-  add_item_to_tree(rr_tree, offset, 2, "Type: %s", type_name);
+  proto_tree_add_text(rr_tree, offset, 2, "Type: %s", type_name);
   offset += 2;
-  add_item_to_tree(rr_tree, offset, 2, "Class: %s", class_name);
+  proto_tree_add_text(rr_tree, offset, 2, "Class: %s", class_name);
   offset += 2;
-  add_item_to_tree(rr_tree, offset, 4, "Time to live: %u", ttl);
+  proto_tree_add_text(rr_tree, offset, 4, "Time to live: %s",
+                                               time_secs_to_str(ttl));
   offset += 4;
-  add_item_to_tree(rr_tree, offset, 2, "Data length: %u", data_len);
+  proto_tree_add_text(rr_tree, offset, 2, "Data length: %u", data_len);
   return rr_tree;
 }
 
+/*
+ * SIG and KEY RR algorithms.
+ */
+#define        DNS_ALGO_MD5            1       /* MD5/RSA */
+#define        DNS_ALGO_EDATE          253     /* Expiration date */
+#define        DNS_ALGO_PRIVATE        254     /* Private use */       
+
+static const value_string algo_vals[] = {
+         { DNS_ALGO_MD5,     "MD5/RSA" },
+         { DNS_ALGO_EDATE,   "Expiration date" },
+         { DNS_ALGO_PRIVATE, "Private use" },
+         { 0,                NULL }
+};
+
 static int
-dissect_dns_answer(const u_char *dns_data_ptr, const u_char *pd, int offset,
-  GtkWidget *dns_tree)
+dissect_dns_answer(const u_char *pd, int offset, int dns_data_offset,
+  frame_data *fd, proto_tree *dns_tree)
 {
   int len;
   char name[MAXDNAME];
@@ -333,66 +570,695 @@ dissect_dns_answer(const u_char *dns_data_ptr, const u_char *pd, int offset,
   int class;
   char *class_name;
   char *type_name;
+  char *long_type_name;
   const u_char *dptr;
+  int cur_offset;
   const u_char *data_start;
   u_int ttl;
   u_short data_len;
-  GtkWidget *rr_tree, *trr;
+  proto_tree *rr_tree;
+  proto_item *trr;
 
   data_start = dptr = pd + offset;
+  cur_offset = offset;
 
-  len = get_dns_name_type_class(dns_data_ptr, pd, offset, name, &name_len,
+  len = get_dns_name_type_class(pd, offset, dns_data_offset, name, &name_len,
     &type, &class);
+  if (len < 0) {
+    /* We ran past the end of the captured data in the packet. */
+    return 0;
+  }
   dptr += len;
+  cur_offset += len;
 
   type_name = dns_type_name(type);
   class_name = dns_class_name(class);
+  long_type_name = dns_long_type_name(type);
 
+  if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+    /* We ran past the end of the captured data in the packet. */
+    return 0;
+  }
   ttl = pntohl(dptr);
   dptr += 4;
+  cur_offset += 4;
 
+  if (!BYTES_ARE_IN_FRAME(cur_offset, 2)) {
+    /* We ran past the end of the captured data in the packet. */
+    return 0;
+  }
   data_len = pntohs(dptr);
   dptr += 2;
+  cur_offset += 2;
 
   switch (type) {
-  case T_A:            /* "A" record */
-    trr = add_item_to_tree(dns_tree, offset, (dptr - data_start) + data_len,
+  case T_A:
+    if (fd != NULL) {
+      col_append_fstr(fd, COL_INFO, " %s %s", type_name,
+                       ip_to_str((guint8 *)dptr));
+    }
+    if (dns_tree != NULL) {
+      trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
                     "%s: type %s, class %s, addr %s",
                     name, type_name, class_name,
                     ip_to_str((guint8 *)dptr));
-    rr_tree = add_rr_to_tree(trr, ETT_DNS_RR, offset, name, name_len, type_name,
-                     class_name, ttl, data_len);
-    offset += (dptr - data_start);
-    add_item_to_tree(rr_tree, offset, 4, "Addr: %s",
-                     ip_to_str((guint8 *)dptr));
+      rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                    long_type_name, class_name, ttl, data_len);
+      if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+       /* We ran past the end of the captured data in the packet. */
+       return 0;
+      }
+      proto_tree_add_text(rr_tree, cur_offset, 4, "Addr: %s",
+                    ip_to_str((guint8 *)dptr));
+    }
     break;
 
-  case T_NS:           /* "NS" record */
+  case T_NS:
     {
       char ns_name[MAXDNAME];
       int ns_name_len;
       
-      ns_name_len = get_dns_name(dns_data_ptr, dptr, 0, ns_name, sizeof(ns_name));
-      trr = add_item_to_tree(dns_tree, offset, (dptr - data_start) + data_len,
+      ns_name_len = get_dns_name(pd, cur_offset, dns_data_offset, ns_name, sizeof(ns_name));
+      if (fd != NULL)
+       col_append_fstr(fd, COL_INFO, " %s %s", type_name, ns_name);
+      if (dns_tree != NULL) {
+       trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
                       "%s: type %s, class %s, ns %s",
                       name, type_name, class_name, ns_name);
-      rr_tree = add_rr_to_tree(trr, ETT_DNS_RR, offset, name, name_len,
-                       type_name, class_name, ttl, data_len);
-      offset += (dptr - data_start);
-      add_item_to_tree(rr_tree, offset, ns_name_len, "Name server: %s", ns_name);
+       rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       if (ns_name_len < 0) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, ns_name_len, "Name server: %s",
+                       ns_name);
+      }
     }
     break;
 
-    /* TODO: parse more record types */
+  case T_CNAME:
+    {
+      char cname[MAXDNAME];
+      int cname_len;
+      
+      cname_len = get_dns_name(pd, cur_offset, dns_data_offset, cname, sizeof(cname));
+      if (fd != NULL)
+       col_append_fstr(fd, COL_INFO, " %s %s", type_name, cname);
+      if (dns_tree != NULL) {
+       trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                    "%s: type %s, class %s, cname %s",
+                    name, type_name, class_name, cname);
+       rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       if (cname_len < 0) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, cname_len, "Primary name: %s",
+                       cname);
+      }
+    }
+    break;
+
+  case T_SOA:
+    {
+      char mname[MAXDNAME];
+      int mname_len;
+      char rname[MAXDNAME];
+      int rname_len;
+      guint32 serial;
+      guint32 refresh;
+      guint32 retry;
+      guint32 expire;
+      guint32 minimum;
+
+      mname_len = get_dns_name(pd, cur_offset, dns_data_offset, mname, sizeof(mname));
+      if (mname_len >= 0)
+       rname_len = get_dns_name(pd, cur_offset + mname_len, dns_data_offset, rname, sizeof(rname));
+      else {
+       /* We ran past the end of the captured data in the packet. */
+       rname_len = -1;
+      }
+      if (fd != NULL)
+       col_append_fstr(fd, COL_INFO, " %s %s", type_name, mname);
+      if (dns_tree != NULL) {
+       trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                    "%s: type %s, class %s, mname %s",
+                    name, type_name, class_name, mname);
+       rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       if (mname_len < 0) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, mname_len, "Primary name server: %s",
+                      mname);
+       cur_offset += mname_len;
+      
+       if (rname_len < 0) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, rname_len, "Responsible authority's mailbox: %s",
+                      rname);
+       cur_offset += rname_len;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       serial = pntohl(&pd[cur_offset]);
+       proto_tree_add_text(rr_tree, cur_offset, 4, "Serial number: %u",
+                      serial);
+       cur_offset += 4;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       refresh = pntohl(&pd[cur_offset]);
+       proto_tree_add_text(rr_tree, cur_offset, 4, "Refresh interval: %s",
+                      time_secs_to_str(refresh));
+       cur_offset += 4;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       retry = pntohl(&pd[cur_offset]);
+       proto_tree_add_text(rr_tree, cur_offset, 4, "Retry interval: %s",
+                      time_secs_to_str(retry));
+       cur_offset += 4;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       expire = pntohl(&pd[cur_offset]);
+       proto_tree_add_text(rr_tree, cur_offset, 4, "Expiration limit: %s",
+                      time_secs_to_str(expire));
+       cur_offset += 4;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       minimum = pntohl(&pd[cur_offset]);
+       proto_tree_add_text(rr_tree, cur_offset, 4, "Minimum TTL: %s",
+                      time_secs_to_str(minimum));
+      }
+    }
+    break;
+
+  case T_PTR:
+    {
+      char pname[MAXDNAME];
+      int pname_len;
+      
+      pname_len = get_dns_name(pd, cur_offset, dns_data_offset, pname, sizeof(pname));
+      if (fd != NULL)
+       col_append_fstr(fd, COL_INFO, " %s %s", type_name, pname);
+      if (dns_tree != NULL) {
+       trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                    "%s: type %s, class %s, ptr %s",
+                    name, type_name, class_name, pname);
+       rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       if (pname_len < 0) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, pname_len, "Domain name: %s",
+                       pname);
+      }
+      break;
+    }
+    break;
+
+  case T_HINFO:
+    {
+      int cpu_offset;
+      int cpu_len;
+      int os_offset;
+      int os_len;
+
+      cpu_offset = cur_offset;
+      if (!BYTES_ARE_IN_FRAME(cpu_offset, 1)) {
+       /* We ran past the end of the captured data in the packet. */
+       if (dns_tree != NULL) {
+         trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                      "%s: type %s, class %s, <CPU goes past end of captured data in packet>",
+                      name, type_name, class_name);
+         rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       }
+       return 0;
+      }
+      cpu_len = pd[cpu_offset];
+      if (!BYTES_ARE_IN_FRAME(cpu_offset + 1, cpu_len)) {
+       /* We ran past the end of the captured data in the packet. */
+       if (dns_tree != NULL) {
+         trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                      "%s: type %s, class %s, <CPU goes past end of captured data in packet>",
+                      name, type_name, class_name);
+         rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       }
+       return 0;
+      }
+      os_offset = cpu_offset + 1 + cpu_len;
+      if (!BYTES_ARE_IN_FRAME(os_offset, 1)) {
+       /* We ran past the end of the captured data in the packet. */
+       if (dns_tree != NULL) {
+         trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                      "%s: type %s, class %s, CPU %.*s, <OS goes past end of captured data in packet>",
+                      name, type_name, class_name, cpu_len, &pd[cpu_offset + 1]);
+         rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       }
+       return 0;
+      }
+      os_len = pd[os_offset];
+      if (!BYTES_ARE_IN_FRAME(os_offset + 1, os_len)) {
+       /* We ran past the end of the captured data in the packet. */
+       if (dns_tree != NULL) {
+         trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                      "%s: type %s, class %s, CPU %*.s, <OS goes past end of captured data in packet>",
+                      name, type_name, class_name, cpu_len, &pd[cpu_offset + 1]);
+         rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       }
+       return 0;
+      }
+      if (fd != NULL)
+       col_append_fstr(fd, COL_INFO, " %s %.*s %.*s", type_name, cpu_len,
+           &pd[cpu_offset + 1], os_len, &pd[os_offset + 1]);
+      if (dns_tree != NULL) {
+       trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                    "%s: type %s, class %s, CPU %.*s, OS %.*s",
+                    name, type_name, class_name,
+                    cpu_len, &pd[cpu_offset + 1], os_len, &pd[os_offset + 1]);
+       rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       proto_tree_add_text(rr_tree, cpu_offset, 1 + cpu_len, "CPU: %.*s",
+                       cpu_len, &pd[cpu_offset + 1]);
+       proto_tree_add_text(rr_tree, os_offset, 1 + os_len, "OS: %.*s",
+                       os_len, &pd[os_offset + 1]);
+      }
+      break;
+    }
+    break;
+
+  case T_MX:
+    {
+      guint16 preference = 0;
+      char mx_name[MAXDNAME];
+      int mx_name_len;
       
+      if (!BYTES_ARE_IN_FRAME(cur_offset, 2)) {
+       /* We ran past the end of the captured data in the packet. */
+       if (dns_tree != NULL) {
+         trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                      "%s: type %s, class %s, <preference goes past end of captured data in packet>",
+                      name, type_name, class_name);
+         rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       }
+       return 0;
+      }
+      preference = pntohs(&pd[cur_offset]);
+      mx_name_len = get_dns_name(pd, cur_offset + 2, dns_data_offset, mx_name, sizeof(mx_name));
+      if (mx_name_len < 0) {
+       /* We ran past the end of the captured data in the packet. */
+       if (dns_tree != NULL) {
+         trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                      "%s: type %s, class %s, preference %u, <mx goes past end of captured data in packet>",
+                      name, type_name, class_name, preference);
+         rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       }
+       return 0;
+      }
+      if (fd != NULL)
+       col_append_fstr(fd, COL_INFO, " %s %u %s", type_name, preference, mx_name);
+      if (dns_tree != NULL) {
+       trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                      "%s: type %s, class %s, preference %u, mx %s",
+                      name, type_name, class_name, preference, mx_name);
+       rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       proto_tree_add_text(rr_tree, cur_offset, 2, "Preference: %u", preference);
+       proto_tree_add_text(rr_tree, cur_offset + 2, mx_name_len, "Mail exchange: %s",
+                       mx_name);
+      }
+    }
+    break;
+
+  case T_SIG:
+    {
+      int rr_len = data_len;
+      struct timeval unixtime;
+      char signer_name[MAXDNAME];
+      int signer_name_len;
+
+      if (fd != NULL)
+       col_append_fstr(fd, COL_INFO, " %s", type_name);
+      if (dns_tree != NULL) {
+       trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                    "%s: type %s, class %s",
+                    name, type_name, class_name);
+       rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+
+        if (!BYTES_ARE_IN_FRAME(cur_offset, 2)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+        }
+       proto_tree_add_text(rr_tree, cur_offset, 2, "Type covered: %s (%s)",
+               dns_type_name(pntohs(&pd[cur_offset])),
+               dns_long_type_name(pntohs(&pd[cur_offset])));
+       cur_offset += 2;
+       rr_len -= 2;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 1)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, 1, "Algorithm: %s",
+               val_to_str(pd[cur_offset], algo_vals,
+                   "Unknown (0x%02X)"));
+       cur_offset += 1;
+       rr_len -= 1;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 1)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, 1, "Labels: %u",
+               pd[cur_offset]);
+       cur_offset += 1;
+       rr_len -= 1;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, 4, "Original TTL: %s",
+               time_secs_to_str(pntohl(&pd[cur_offset])));
+       cur_offset += 4;
+       rr_len -= 4;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       unixtime.tv_sec = pntohl(&pd[cur_offset]);
+       unixtime.tv_usec = 0;
+       proto_tree_add_text(rr_tree, cur_offset, 4, "Signature expiration: %s",
+               abs_time_to_str(&unixtime));
+       cur_offset += 4;
+       rr_len -= 4;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       unixtime.tv_sec = pntohl(&pd[cur_offset]);
+       unixtime.tv_usec = 0;
+       proto_tree_add_text(rr_tree, cur_offset, 4, "Time signed: %s",
+               abs_time_to_str(&unixtime));
+       cur_offset += 4;
+       rr_len -= 4;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 2)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, 2, "Key footprint: 0x%04x",
+               pntohs(&pd[cur_offset]));
+       cur_offset += 2;
+       rr_len -= 2;
+
+       signer_name_len = get_dns_name(pd, cur_offset, dns_data_offset, signer_name, sizeof(signer_name));
+       if (signer_name_len < 0) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, signer_name_len,
+               "Signer's name: %s", signer_name);
+       cur_offset += signer_name_len;
+       rr_len -= signer_name_len;
+
+       proto_tree_add_text(rr_tree, cur_offset, rr_len, "Signature");
+      }
+    }
+    break;
+
+  case T_KEY:
+    {
+      int rr_len = data_len;
+      guint16 flags;
+      proto_item *tf;
+      proto_tree *flags_tree;
+
+      if (fd != NULL)
+       col_append_fstr(fd, COL_INFO, " %s", type_name);
+      if (dns_tree != NULL) {
+       trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                    "%s: type %s, class %s",
+                    name, type_name, class_name);
+       rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+
+        if (!BYTES_ARE_IN_FRAME(cur_offset, 2)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+        }
+        flags = pntohs(&pd[cur_offset]);
+       tf = proto_tree_add_text(rr_tree, cur_offset, 2, "Flags: 0x%04X", flags);
+       flags_tree = proto_item_add_subtree(tf, ett_t_key_flags);
+       proto_tree_add_text(flags_tree, cur_offset, 2, "%s",
+               decode_boolean_bitfield(flags, 0x8000,
+                 2*8, "Key prohibited for authentication",
+                      "Key allowed for authentication"));
+       proto_tree_add_text(flags_tree, cur_offset, 2, "%s",
+               decode_boolean_bitfield(flags, 0x4000,
+                 2*8, "Key prohibited for confidentiality",
+                      "Key allowed for confidentiality"));
+       if ((flags & 0xC000) != 0xC000) {
+         /* We have a key */
+         proto_tree_add_text(flags_tree, cur_offset, 2, "%s",
+               decode_boolean_bitfield(flags, 0x2000,
+                 2*8, "Key is experimental or optional",
+                      "Key is required"));
+         proto_tree_add_text(flags_tree, cur_offset, 2, "%s",
+               decode_boolean_bitfield(flags, 0x0400,
+                 2*8, "Key is associated with a user",
+                      "Key is not associated with a user"));
+         proto_tree_add_text(flags_tree, cur_offset, 2, "%s",
+               decode_boolean_bitfield(flags, 0x0200,
+                 2*8, "Key is associated with the named entity",
+                      "Key is not associated with the named entity"));
+         proto_tree_add_text(flags_tree, cur_offset, 2, "%s",
+               decode_boolean_bitfield(flags, 0x0100,
+                 2*8, "This is the zone key for the specified zone",
+                      "This is not a zone key"));
+         proto_tree_add_text(flags_tree, cur_offset, 2, "%s",
+               decode_boolean_bitfield(flags, 0x0080,
+                 2*8, "Key is valid for use with IPSEC",
+                      "Key is not valid for use with IPSEC"));
+         proto_tree_add_text(flags_tree, cur_offset, 2, "%s",
+               decode_boolean_bitfield(flags, 0x0040,
+                 2*8, "Key is valid for use with MIME security multiparts",
+                      "Key is not valid for use with MIME security multiparts"));
+         proto_tree_add_text(flags_tree, cur_offset, 2, "%s",
+               decode_numeric_bitfield(flags, 0x000F,
+                 2*8, "Signatory = %u"));
+       }
+       cur_offset += 2;
+       rr_len -= 2;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 1)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, 1, "Protocol: %u",
+               pd[cur_offset]);
+       cur_offset += 1;
+       rr_len -= 1;
+
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 1)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, 1, "Algorithm: %s",
+               val_to_str(pd[cur_offset], algo_vals,
+                   "Unknown (0x%02X)"));
+       cur_offset += 1;
+               rr_len -= 1;
+
+       proto_tree_add_text(rr_tree, cur_offset, rr_len, "Public key");
+      }
+    }
+    break;
+
+  case T_AAAA:
+    if (fd != NULL) {
+      col_append_fstr(fd, COL_INFO, " %s %s", type_name,
+                       ip6_to_str((struct e_in6_addr *)dptr));
+    }
+    if (dns_tree != NULL) {
+      trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                    "%s: type %s, class %s, addr %s",
+                    name, type_name, class_name,
+                    ip6_to_str((struct e_in6_addr *)dptr));
+      rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                    long_type_name, class_name, ttl, data_len);
+      if (!BYTES_ARE_IN_FRAME(cur_offset, 16)) {
+       /* We ran past the end of the captured data in the packet. */
+       return 0;
+      }
+      proto_tree_add_text(rr_tree, cur_offset, 16, "Addr: %s",
+                    ip6_to_str((struct e_in6_addr *)dptr));
+    }
+    break;
+
+  case T_LOC:
+    {
+      if (fd != NULL)
+       col_append_fstr(fd, COL_INFO, " %s", type_name);
+      if (dns_tree != NULL) {
+       trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                    "%s: type %s, class %s",
+                    name, type_name, class_name);
+       rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       if (!BYTES_ARE_IN_FRAME(cur_offset, 1)) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, 1, "Version: %u", pd[cur_offset]);
+       if (pd[cur_offset] == 0) {
+         /* Version 0, the only version RFC 1876 discusses. */
+         cur_offset++;
+
+         if (!BYTES_ARE_IN_FRAME(cur_offset, 1)) {
+                   /* We ran past the end of the captured data in the packet. */
+           return 0;
+         }
+         proto_tree_add_text(rr_tree, cur_offset, 1, "Size: %g m",
+                               rfc1867_size(pd[cur_offset]));
+         cur_offset++;
+
+         if (!BYTES_ARE_IN_FRAME(cur_offset, 1)) {
+                   /* We ran past the end of the captured data in the packet. */
+           return 0;
+         }
+         proto_tree_add_text(rr_tree, cur_offset, 1, "Horizontal precision: %g m",
+                               rfc1867_size(pd[cur_offset]));
+         cur_offset++;
+
+         if (!BYTES_ARE_IN_FRAME(cur_offset, 1)) {
+                   /* We ran past the end of the captured data in the packet. */
+           return 0;
+         }
+         proto_tree_add_text(rr_tree, cur_offset, 1, "Vertical precision: %g m",
+                               rfc1867_size(pd[cur_offset]));
+         cur_offset++;
+
+         if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+           /* We ran past the end of the captured data in the packet. */
+           return 0;
+         }
+         proto_tree_add_text(rr_tree, cur_offset, 4, "Latitude: %s",
+                               rfc1867_angle(&pd[cur_offset], "NS"));
+         cur_offset += 4;
+
+         if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+           /* We ran past the end of the captured data in the packet. */
+           return 0;
+         }
+         proto_tree_add_text(rr_tree, cur_offset, 4, "Longitude: %s",
+                               rfc1867_angle(&pd[cur_offset], "EW"));
+         cur_offset += 4;
+
+         if (!BYTES_ARE_IN_FRAME(cur_offset, 4)) {
+           /* We ran past the end of the captured data in the packet. */
+           return 0;
+         }
+         proto_tree_add_text(rr_tree, cur_offset, 4, "Altitude: %g m",
+                               (pntohl(&pd[cur_offset]) - 10000000)/100.0);
+       } else
+         proto_tree_add_text(rr_tree, cur_offset, data_len, "Data");
+      }
+      break;
+    }
+    break;
+      
+  case T_NXT:
+    {
+      int rr_len = data_len;
+      char next_domain_name[MAXDNAME];
+      int next_domain_name_len;
+      int rr_type;
+      guint8 bits;
+      int mask;
+      int i;
+
+      next_domain_name_len = get_dns_name(pd, cur_offset, dns_data_offset,
+                       next_domain_name, sizeof(next_domain_name));
+      if (fd != NULL)
+       col_append_fstr(fd, COL_INFO, " %s %s", type_name, next_domain_name);
+      if (dns_tree != NULL) {
+       trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                    "%s: type %s, class %s, next domain name %s",
+                    name, type_name, class_name, next_domain_name);
+       rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+       if (next_domain_name_len < 0) {
+         /* We ran past the end of the captured data in the packet. */
+         return 0;
+       }
+       proto_tree_add_text(rr_tree, cur_offset, next_domain_name_len,
+                       "Next domain name: %s", next_domain_name);
+       cur_offset += next_domain_name_len;
+       rr_len -= next_domain_name_len;
+       rr_type = 0;
+       while (rr_len != 0) {
+         bits = pd[cur_offset];
+         mask = 1<<8;
+         for (i = 0; i < 8; i++) {
+           if (bits & mask) {
+             proto_tree_add_text(rr_tree, cur_offset, 1,
+                       "RR type in bit map: %s (%s)",
+                       dns_type_name(rr_type),
+                       dns_long_type_name(rr_type));
+           }
+           mask >>= 1;
+           rr_type++;
+         }
+         cur_offset += 1;
+         rr_len -= 1;
+       }
+      }
+    }
+    break;
+
+    /* TODO: parse more record types */
+
   default:
-    trr = add_item_to_tree(dns_tree, offset, (dptr - data_start) + data_len,
-                     "%s: type %s, class %s",
+    if (fd != NULL)
+      col_append_fstr(fd, COL_INFO, " %s", type_name);
+    if (dns_tree != NULL) {
+      trr = proto_tree_add_text(dns_tree, offset, (dptr - data_start) + data_len,
+                    "%s: type %s, class %s",
                     name, type_name, class_name);
-    rr_tree = add_rr_to_tree(trr, ETT_DNS_RR, offset, name, name_len, type_name,
-                       class_name, ttl, data_len);
-    offset += (dptr - data_start);
-    add_item_to_tree(rr_tree, offset, data_len, "Data");
+      rr_tree = add_rr_to_tree(trr, ett_dns_rr, offset, name, name_len,
+                      long_type_name, class_name, ttl, data_len);
+      proto_tree_add_text(rr_tree, cur_offset, data_len, "Data");
+    }
+    break;
   }
   
   dptr += data_len;
@@ -401,104 +1267,269 @@ dissect_dns_answer(const u_char *dns_data_ptr, const u_char *pd, int offset,
 }
 
 static int
-dissect_query_records(const u_char *dns_data_ptr, int count, const u_char *pd, 
-                     int cur_off, GtkWidget *dns_tree)
+dissect_query_records(const u_char *pd, int cur_off, int dns_data_offset,
+    int count, frame_data *fd, proto_tree *dns_tree)
 {
-  int start_off;
-  GtkWidget *qatree, *ti;
+  int start_off, add_off;
+  proto_tree *qatree = NULL;
+  proto_item *ti = NULL;
   
-  qatree = gtk_tree_new();
   start_off = cur_off;
-  
-  while (count-- > 0)
-    cur_off += dissect_dns_query(dns_data_ptr, pd, cur_off, qatree);
-  ti = add_item_to_tree(GTK_WIDGET(dns_tree), 
-                       start_off, cur_off - start_off, "Queries");
-  add_subtree(ti, qatree, ETT_DNS_QRY);
+  if (dns_tree) {
+    ti = proto_tree_add_text(dns_tree, start_off, 0, "Queries");
+    qatree = proto_item_add_subtree(ti, ett_dns_qry);
+  }
+  while (count-- > 0) {
+    add_off = dissect_dns_query(pd, cur_off, dns_data_offset, fd, qatree);
+    if (add_off <= 0) {
+      /* We ran past the end of the captured data in the packet. */
+      break;
+    }
+    cur_off += add_off;
+  }
+  if (ti)
+    proto_item_set_len(ti, cur_off - start_off);
 
   return cur_off - start_off;
 }
 
-
-
 static int
-dissect_answer_records(const u_char *dns_data_ptr, int count,
-                       const u_char *pd, int cur_off, GtkWidget *dns_tree,
-                       char *name)
+dissect_answer_records(const u_char *pd, int cur_off, int dns_data_offset,
+    int count, frame_data *fd, proto_tree *dns_tree, char *name)
 {
-  int start_off;
-  GtkWidget *qatree, *ti;
+  int start_off, add_off;
+  proto_tree *qatree = NULL;
+  proto_item *ti = NULL;
   
-  qatree = gtk_tree_new();
   start_off = cur_off;
-
-  while (count-- > 0)
-    cur_off += dissect_dns_answer(dns_data_ptr, pd, cur_off, qatree);
-  ti = add_item_to_tree(GTK_WIDGET(dns_tree), start_off, cur_off - start_off, name);
-  add_subtree(ti, qatree, ETT_DNS_ANS);
+  if (dns_tree) {
+    ti = proto_tree_add_text(dns_tree, start_off, 0, name);
+    qatree = proto_item_add_subtree(ti, ett_dns_ans);
+  }
+  while (count-- > 0) {
+    add_off = dissect_dns_answer(pd, cur_off, dns_data_offset, fd, qatree);
+    if (add_off <= 0) {
+      /* We ran past the end of the captured data in the packet. */
+      break;
+    }
+    cur_off += add_off;
+  }
+  if (ti)
+    proto_item_set_len(ti, cur_off - start_off);
 
   return cur_off - start_off;
 }
 
-
 void
-dissect_dns(const u_char *pd, int offset, frame_data *fd, GtkTree *tree) {
-  const u_char *dns_data_ptr;
-  e_dns     *dh;
-  GtkWidget *dns_tree, *ti;
+dissect_dns(const u_char *pd, int offset, frame_data *fd, proto_tree *tree)
+{
+  int dns_data_offset;
+  proto_tree *dns_tree = NULL, *field_tree;
+  proto_item *ti, *tf;
   guint16    id, flags, quest, ans, auth, add;
-  int query = 0;
+  char buf[128+1];
   int cur_off;
+  static const value_string opcode_vals[] = {
+                 { OPCODE_QUERY,  "Standard query"        },
+                 { OPCODE_IQUERY, "Inverse query"         },
+                 { OPCODE_STATUS, "Server status request" },
+                 { 0,              NULL                   } };
+  static const value_string rcode_vals[] = {
+                 { RCODE_NOERROR,   "No error"        },
+                 { RCODE_FMTERROR,  "Format error"    },
+                 { RCODE_SERVFAIL,  "Server failure"  },
+                 { RCODE_NAMEERROR, "Name error"      },
+                 { RCODE_NOTIMPL,   "Not implemented" },
+                 { RCODE_REFUSED,   "Refused"         },
+                 { 0,               NULL              } };
+
+  dns_data_offset = offset;
 
-  dns_data_ptr = &pd[offset];
-  dh = (e_dns *) dns_data_ptr;
-
-  /* To do: check for runts, errs, etc. */
-  id    = ntohs(dh->dns_id);
-  flags = ntohs(dh->dns_flags);
-  quest = ntohs(dh->dns_quest);
-  ans   = ntohs(dh->dns_ans);
-  auth  = ntohs(dh->dns_auth);
-  add   = ntohs(dh->dns_add);
-  
-  query = ! (flags & (1 << 15));
-  
   if (check_col(fd, COL_PROTOCOL))
-    col_add_str(fd, COL_PROTOCOL, "DNS (UDP)");
-  if (check_col(fd, COL_INFO))
-    col_add_str(fd, COL_INFO, query ? "Query" : "Response");
+    col_add_str(fd, COL_PROTOCOL, "DNS");
+
+  if (pi.captured_len < DNS_HDRLEN) {
+    col_add_str(fd, COL_INFO, "Short DNS packet");
+    dissect_data(pd, offset, fd, tree);
+    return;
+  }
+
+  /* To do: check for errs, etc. */
+  id    = pntohs(&pd[offset + DNS_ID]);
+  flags = pntohs(&pd[offset + DNS_FLAGS]);
+  quest = pntohs(&pd[offset + DNS_QUEST]);
+  ans   = pntohs(&pd[offset + DNS_ANS]);
+  auth  = pntohs(&pd[offset + DNS_AUTH]);
+  add   = pntohs(&pd[offset + DNS_ADD]);
+
+  if (check_col(fd, COL_INFO)) {
+    strcpy(buf, val_to_str(flags & F_OPCODE, opcode_vals, "Unknown operation (%x)"));
+    if (flags & F_RESPONSE) {
+      strcat(buf, " response");
+      if ((flags & F_RCODE) != RCODE_NOERROR) {
+        strcat(buf, ", ");
+        strcat(buf, val_to_str(flags & F_RCODE, rcode_vals,
+            "Unknown error (%x)"));
+      }
+    }
+    col_add_str(fd, COL_INFO, buf);
+  } else {
+    /* Set "fd" to NULL; we pass a NULL "fd" to the query and answer
+       dissectors, as a way of saying that they shouldn't add stuff
+       to the COL_INFO column (a call to "check_col(fd, COL_INFO)"
+       is more expensive than a check that a pointer isn't NULL). */
+    fd = NULL;
+  }
   
   if (tree) {
-    ti = add_item_to_tree(GTK_WIDGET(tree), offset, 4,
-                         query ? "DNS query" : "DNS response");
-    
-    dns_tree = gtk_tree_new();
-    add_subtree(ti, dns_tree, ETT_DNS);
+    ti = proto_tree_add_item_format(tree, proto_dns, offset, 4, NULL,
+      "Domain Name System (%s)", (flags & F_RESPONSE) ? "response" : "query");
     
-    add_item_to_tree(dns_tree, offset,      2, "ID: 0x%04x", id);
+    dns_tree = proto_item_add_subtree(ti, ett_dns);
+
+    if (flags & F_RESPONSE)
+      proto_tree_add_item_hidden(dns_tree, hf_dns_response, offset, 4, 1);
+    else
+      proto_tree_add_item_hidden(dns_tree, hf_dns_query, offset, 4, 1);
+
+    proto_tree_add_item(dns_tree, hf_dns_transaction_id, 
+                       offset + DNS_ID, 2, id);
+
+    strcpy(buf, val_to_str(flags & F_OPCODE, opcode_vals, "Unknown operation"));
+    if (flags & F_RESPONSE) {
+      strcat(buf, " response");
+      strcat(buf, ", ");
+      strcat(buf, val_to_str(flags & F_RCODE, rcode_vals,
+            "Unknown error"));
+    }
+    tf = proto_tree_add_item_format(dns_tree, hf_dns_flags, 
+                                   offset + DNS_FLAGS, 2, 
+                                   flags,
+                                   "Flags: 0x%04x (%s)",
+                                   flags, buf);
+    field_tree = proto_item_add_subtree(tf, ett_dns_flags);
+    proto_tree_add_text(field_tree, offset + DNS_FLAGS, 2, "%s",
+       decode_boolean_bitfield(flags, F_RESPONSE,
+            2*8, "Response", "Query"));
+    proto_tree_add_text(field_tree, offset + DNS_FLAGS, 2, "%s",
+       decode_enumerated_bitfield(flags, F_OPCODE,
+            2*8, opcode_vals, "%s"));
+    if (flags & F_RESPONSE) {
+      proto_tree_add_text(field_tree, offset + DNS_FLAGS, 2, "%s",
+         decode_boolean_bitfield(flags, F_AUTHORITATIVE,
+              2*8,
+              "Server is an authority for domain",
+              "Server isn't an authority for domain"));
+    }
+    proto_tree_add_text(field_tree, offset + DNS_FLAGS, 2, "%s",
+       decode_boolean_bitfield(flags, F_TRUNCATED,
+            2*8,
+            "Message is truncated",
+            "Message is not truncated"));
+    proto_tree_add_text(field_tree, offset + DNS_FLAGS, 2, "%s",
+       decode_boolean_bitfield(flags, F_RECDESIRED,
+            2*8,
+            "Do query recursively",
+            "Don't do query recursively"));
+    if (flags & F_RESPONSE) {
+      proto_tree_add_text(field_tree, offset + DNS_FLAGS, 2, "%s",
+         decode_boolean_bitfield(flags, F_RECAVAIL,
+              2*8,
+              "Server can do recursive queries",
+              "Server can't do recursive queries"));
+      proto_tree_add_text(field_tree, offset + DNS_FLAGS, 2, "%s",
+         decode_enumerated_bitfield(flags, F_RCODE,
+              2*8, rcode_vals, "%s"));
+    }
+    proto_tree_add_item(dns_tree, hf_dns_count_questions, 
+                       offset + DNS_QUEST, 2, quest);
+    proto_tree_add_item(dns_tree, hf_dns_count_answers, 
+                       offset + DNS_ANS, 2, ans);
+    proto_tree_add_item(dns_tree, hf_dns_count_auth_rr, 
+                       offset + DNS_AUTH, 2, auth);
+    proto_tree_add_item(dns_tree, hf_dns_count_add_rr, 
+                       offset + DNS_ADD, 2, add);
 
-    add_item_to_tree(dns_tree, offset +  2, 2, "Flags: 0x%04x", flags);
-    add_item_to_tree(dns_tree, offset +  4, 2, "Questions: %d", quest);
-    add_item_to_tree(dns_tree, offset +  6, 2, "Answer RRs: %d", ans);
-    add_item_to_tree(dns_tree, offset +  8, 2, "Authority RRs: %d", auth);
-    add_item_to_tree(dns_tree, offset + 10, 2, "Additional RRs: %d", add);
+  }
+  cur_off = offset + DNS_HDRLEN;
 
-    cur_off = offset + 12;
-    
-    if (quest > 0)
-      cur_off += dissect_query_records(dns_data_ptr, quest, pd, cur_off,
+  if (quest > 0) {
+    /* If this is a response, don't add information about the queries
+       to the summary, just add information about the answers. */
+    cur_off += dissect_query_records(pd, cur_off, dns_data_offset, quest,
+                                       (!(flags & F_RESPONSE) ? fd : NULL),
                                        dns_tree);
+  }
     
-    if (ans > 0)
-      cur_off += dissect_answer_records(dns_data_ptr, ans, pd, cur_off,
-          dns_tree, "Answers");
+  if (ans > 0) {
+    /* If this is a request, don't add information about the answers
+       to the summary, just add information about the queries. */
+    cur_off += dissect_answer_records(pd, cur_off, dns_data_offset, ans,
+                                       ((flags & F_RESPONSE) ? fd : NULL),
+                                       dns_tree, "Answers");
+  }
     
+  if (tree) {
+    /* Don't add information about the authoritative name servers, or the
+       additional records, to the summary. */
     if (auth > 0)
-      cur_off += dissect_answer_records(dns_data_ptr, auth, pd, cur_off,
-          dns_tree, "Authoritative nameservers");
+      cur_off += dissect_answer_records(pd, cur_off, dns_data_offset, auth,
+          NULL, dns_tree, "Authoritative nameservers");
 
     if (add > 0)
-      cur_off += dissect_answer_records(dns_data_ptr, add, pd, cur_off,
-          dns_tree, "Additional records");
+      cur_off += dissect_answer_records(pd, cur_off, dns_data_offset, add,
+          NULL, dns_tree, "Additional records");
   }
 }
+
+void
+proto_register_dns(void)
+{
+  static hf_register_info hf[] = {
+    { &hf_dns_response,
+      { "Response",            "dns.response",  
+       FT_BOOLEAN, BASE_NONE, NULL, 0x0,
+       "TRUE if DNS response" }},
+    { &hf_dns_query,
+      { "Query",               "dns.query",  
+       FT_BOOLEAN, BASE_NONE, NULL, 0x0,
+       "TRUE if DNS query" }},
+    { &hf_dns_flags,
+      { "Flags",               "dns.flags",  
+       FT_UINT16, BASE_HEX, NULL, 0x0,
+       "" }},
+    { &hf_dns_transaction_id,
+      { "Transaction ID",              "dns.id",  
+       FT_UINT16, BASE_HEX, NULL, 0x0,
+       "Identification of transaction" }},
+    { &hf_dns_count_questions,
+      { "Questions",           "dns.count.queries",  
+       FT_UINT16, BASE_DEC, NULL, 0x0,
+       "Number of queries in packet" }},
+    { &hf_dns_count_answers,
+      { "Answer RRs",          "dns.count.answers",  
+       FT_UINT16, BASE_DEC, NULL, 0x0,
+       "Number of answers in packet" }},
+    { &hf_dns_count_auth_rr,
+      { "Authority RRs",               "dns.count.auth_rr",  
+       FT_UINT16, BASE_DEC, NULL, 0x0,
+       "Number of authoritative records in packet" }},
+    { &hf_dns_count_add_rr,
+      { "Additional RRs",              "dns.count.add_rr",  
+       FT_UINT16, BASE_DEC, NULL, 0x0,
+       "Number of additional records in packet" }}
+  };
+  static gint *ett[] = {
+    &ett_dns,
+    &ett_dns_qd,
+    &ett_dns_rr,
+    &ett_dns_qry,
+    &ett_dns_ans,
+    &ett_dns_flags,
+    &ett_t_key_flags,
+  };
+
+  proto_dns = proto_register_protocol("Domain Name Service", "dns");
+  proto_register_field_array(proto_dns, hf, array_length(hf));
+  proto_register_subtree_array(ett, array_length(ett));
+}