distorted.lisp: A new subzone `dnserr' full of wrong things.

[zones] / distorted.lisp

diff --git a/distorted.lisp b/distorted.lisp
index a39ac91..d9691da 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -36,16 +36,16 @@
        ((:kpasswd :protocol :udp) krb))
 
   ;; Anycast services.  (Currently not implemented.)
-  (dns0 (inside :svc radius.unsafe)
+  (dns0 (unsafe :svc radius.unsafe)
        (any :a dns0.any))
-  (dns1 (inside :svc vampire.unsafe)
+  (dns1 (unsafe :svc vampire.unsafe)
        (any :a dns1.any))
-  (ntp0 (inside :svc ibanez.unsafe)
+  (ntp0 (unsafe :svc ibanez.unsafe)
        (any :a ntp0.any))
-  (ntp1 (inside :svc vampire.unsafe)
+  (ntp1 (unsafe :svc vampire.unsafe)
        (any :a ntp1.any))
   (www-cache (dmz :svc vampire.dmz)
-            (inside :svc vampire.unsafe)
+            (unsafe :svc vampire.unsafe)
             (any :a www-cache.any))
   (dns :cname dns0)
   (ntp :cname ntp0)
@@ -79,6 +79,9 @@
   (tor :svc #+view/inside vampire.unsafe
            #-view/inside anon.dmz)
 
+  ;; Fancy connectivity.
+  (iodine (dmz :a iodine.dmz))
+
   ;; Colocated hosts.
   (colo :net colo)
   (jump :net jump)
@@ -135,9 +138,14 @@
   (gw (its :a gw.its))
   (mz (its :a mz.its))
 
+  ;; Strange things.
+  (blackhole (jump :a blackhole.jump))
+
   ;; Delegations.
   (dhcp :ns (radius.ns vampire.ns))
-  (io :ns ((ns.io :ip vampire))))
+  (dnserr :ns ((radius.ns.dnserr :ip radius.dmz)
+              (vampire.ns.dnserr :ip vampire.dmz)))
+  (io :ns ((ns.io :ip iodine.dmz))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Other subsidiary zones.