keys/, distorted.lisp: Add SSHFP recortds for virtual servers.

[zones] / distorted.lisp

diff --git a/distorted.lisp b/distorted.lisp
index 2269c98833f60d0fc97ffe9cf8afab1093c2f0bf..f2559135c53bc1945cee1b4caa02e5c3aba76585 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -212,9 +212,11 @@ (defzone distorted.org.uk
 
   ;; Virtual hosts.
   (national :abbrev n (linode :abbrev nl) (upn :abbrev ny))
-  (national (linode :addr national.linode) (upn :addr national.upn))
+  (national (linode :addr national.linode :sshfp "national")
+           (upn :addr national.upn :sshfp "national"))
   (eggle :abbrev e (jump :abbrev ej) (upn :abbrev ey))
-  (eggle (jump :addr eggle.jump) (upn :addr eggle.upn))
+  (eggle (jump :addr eggle.jump :sshfp "eggle")
+        (upn :addr eggle.upn :sshfp "eggle"))
   (mdwdev (upn :addr mdwdev.upn))
 
   ;; Nicko's servers.