distorted: Provide SRV records for various obvious things.

diff --git a/distorted.lisp b/distorted.lisp
index c0cde05d6d5bbcd0f3cc7195ad59b2af2c4d7e40..6891e23cc93ebbd2708026c6e77c28768a8a0244 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -50,7 +50,13 @@ (defzone distorted.org.uk
                         (guvnor.ns :ip guvnor.demon))
   ;;
   ;; Mail servers
                         (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))
   ;;
   ;; Colocated services
   ;;((www ftp git) (inet :svc boyle.nsict.org) (fretwank :svc metalzone))