hosts.lisp, distorted.lisp: artist is on the untrusted network.

[zones] / harlequin.lisp

diff --git a/harlequin.lisp b/harlequin.lisp
index 076bcbe0ea48b5e5c7bd89c5123c4c32d082e697..15deeb7c2626a2fb55998d83e178e55042b1035d 100644 (file)
--- a/harlequin.lisp
+++ b/harlequin.lisp
@@ -1,33 +1,26 @@
 ;;; Zone file for harlequin.org.uk
 
-(load "hosts" :verbose nil)
+(load "hosts.lisp" :verbose nil)
 
 (setf *default-zone-admin* "hostmaster@distorted.org.uk")
 
-(preferred-subnet-case
-  (fretwank
-   (setf *default-zone-source* 'metalzone.distorted.org.uk.)
-   (defhost mail metalzone)
-   (defhost bloghost vampire))
-  (t
-   (setf *default-zone-source* 'guvnor.distorted.org.uk.)
-   (defhost mail guvnor.demon)
-   (defhost bloghost guvnor.demon)))
+(setf *default-zone-source* 'radius.distorted.org.uk.)
 
 (defzone harlequin.org.uk
-  ;;
+
   ;; Nameservers
-  :ns ((boyle.ns :ip boyle.nsict.org)
-       ns0.blackcatnetworks.co.uk.
-       ns1.blackcatnetworks.co.uk.)
-  ;;
+  :ns ((radius.ns :ip radius)
+       (precision.ns :ip precision)
+       (mythic-beasts-1.ns :ip mythic-ns1)
+       (mythic-beasts-2.ns :ip mythic-ns2))
+
   ;; Mail servers
-  :mx ((mail :ip mail))
+  :mx ((mail :ip vampire))
   :srv ((:smtp mail))
-  ;;
+
   ;; Web service
   ((@ www) :svc boyle.nsict.org)
   :srv ((:http www))
-  ;;
+
   ;; Web log (currently local)
-  (patchwork :svc bloghost))
+  (bindery :svc vampire))