distorted: Provide SRV records for various obvious things.

diff --git a/distorted.lisp b/distorted.lisp
index c0cde05..6891e23 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -50,7 +50,13 @@
                         (guvnor.ns :ip guvnor.demon))
   ;;
   ;; Mail servers
-  ((@ mail lists bugs cryptomail) :mx mail)
+  ((@ mail lists bugs cryptomail)
+   :mx mail
+   :srv ((:smtp mail)))
+  ;;
+  ;; Other services
+  :srv ((:http www)
+       (:ftp ftp))
   ;;
   ;; Colocated services
   ;;((www ftp git) (inet :svc boyle.nsict.org) (fretwank :svc metalzone))