harlequin: Add new service patchwork for blog.

[zones] / harlequin.lisp

diff --git a/harlequin.lisp b/harlequin.lisp
index 08e8f30500fa1983752ec2d2924f0fdff7f62164..076bcbe0ea48b5e5c7bd89c5123c4c32d082e697 100644 (file)
--- a/harlequin.lisp
+++ b/harlequin.lisp
@@ -3,7 +3,16 @@
 (load "hosts" :verbose nil)
 
 (setf *default-zone-admin* "hostmaster@distorted.org.uk")
 (load "hosts" :verbose nil)
 
 (setf *default-zone-admin* "hostmaster@distorted.org.uk")

-(setf *default-zone-source* 'guvnor.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)))

 
 (defzone harlequin.org.uk
   ;;
 
 (defzone harlequin.org.uk
   ;;


@@ -13,7 +22,12 @@ (defzone harlequin.org.uk
        ns1.blackcatnetworks.co.uk.)
   ;;
   ;; Mail servers
        ns1.blackcatnetworks.co.uk.)
   ;;
   ;; Mail servers

-  :mx ((mail :ip guvnor.demon))
+  :mx ((mail :ip mail))
+  :srv ((:smtp mail))

   ;;
   ;; Web service
   ;;
   ;; Web service

-  ((@ www) :a boyle.nsict.org))
+  ((@ www) :svc boyle.nsict.org)
+  :srv ((:http www))
+  ;;
+  ;; Web log (currently local)
+  (patchwork :svc bloghost))