distorted.lisp: Publish information about the Kerberos setup.

[zones] / distorted.lisp

diff --git a/distorted.lisp b/distorted.lisp
index 369e606dbe7f8c59da972120c3d2da964ced355d..02dd2e3b46b24bf25cf40141d2655c77958c1e7e 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -28,6 +28,13 @@ (defzone distorted.org.uk
    :mx mail
    :srv ((:smtp mail)))
 
+  ;; Kerberos.
+  (_kerberos :txt "DISTORTED.ORG.UK")
+  :srv (((:kerberos :protocol :udp) krb)
+       ((:kerberos-master :protocol :udp :port 88) krb)
+       (:kerberos-adm krb)
+       ((:kpasswd :protocol :udp) krb))
+
   ;; Other services.
   :srv ((:http www)
        (:ftp ftp))
@@ -44,7 +51,7 @@ (defzone distorted.org.uk
 
   ;; Local services.
   :svc vampire
-  ((www ftp rsync wiki git bugs mail db tor i2p rawk vox www-cache)
+  ((www krb ftp rsync wiki git bugs mail db tor i2p rawk vox www-cache)
    :svc vampire)
 
   ;; Internal services.