2004-05-20 Magnus Henoch <mange@freemail.hu>

	* dns.el (dns-read-type): Add support for SVR.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7aa0251..56188c9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-05-20  Magnus Henoch  <mange@freemail.hu>
+
+       * dns.el (dns-read-type): Add support for SVR.
+
 2004-05-20  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * spam.el (spam-use-crm114, spam-crm114, spam-crm114-program)

diff --git a/lisp/dns.el b/lisp/dns.el
index 40e12b2..4aa9a46 100644 (file)
--- a/lisp/dns.el
+++ b/lisp/dns.el
@@ -56,6 +56,7 @@ If nil, /etc/resolv.conf will be consulted.")
     (MX 15)
     (TXT 16)
     (AAAA 28) ; RFC3596
+    (SRV 33) ; RFC2782
     (AXFR 252)
     (MAILB 253)
     (MAILA 254)
@@ -284,6 +285,11 @@ If TCP-P, the first two bytes of the package with be the length field."
                  (list 'retry (dns-read-int32))
                  (list 'expire (dns-read-int32))
                  (list 'minimum (dns-read-int32))))
+          ((eq type 'SRV)
+           (list (list 'priority (dns-read-bytes 2))
+                 (list 'weight (dns-read-bytes 2))
+                 (list 'port (dns-read-bytes 2))
+                 (list 'target (dns-read-name buffer))))
           ((eq type 'MX)
            (cons (dns-read-bytes 2) (dns-read-name buffer)))
           ((or (eq type 'CNAME) (eq type 'NS) (eq type 'PTR))