+ (evolution (safe :addr evolution.safe))
+ (evolution :alias evo)
+
+ ;; Colocated services.
+ ((irc vox) (colo :svc jazz.colo :sshfp "jazz")
+ (jump :svc jazz.jump :sshfp "jazz"))
+ ((git www mail) (colo :svc stratocaster.colo :sshfp "stratocaster")
+ (jump :svc stratocaster.jump :sshfp "stratocaster"))
+ :svc #+view/inside stratocaster.colo
+ #-view/inside stratocaster.jump
+ (cabal :svc stratocaster.colo :sshfp "stratocaster")
+ ((db ftp) (colo :svc telecaster.colo :sshfp "telecaster")
+ (jump :svc telecaster.jump :sshfp "telecaster"))
+ (dyndns :svc telecaster.jump :sshfp "telecaster")
+
+ ;; Local services.
+ ((rawk pifi) (unsafe :svc artist.unsafe)
+ (dmz :svc artist.dmz))
+ (mirror (dmz :svc roadstar.dmz :sshfp "roadstar")
+ (unsafe :svc roadstar.unsafe :sshfp "roadstar"))
+ ((wiki bugs old-mail i2p) :svc vampire :sshfp "vampire")
+
+ ;; Internal services.
+ #+view/inside ((news lpr) :svc vampire.unsafe :sshfp "vampire")
+
+ ;; Anonymity services.
+ (anon (colo :svc jazz.colo)
+ (unsafe :svc vampire.unsafe)
+ (jump :addr anon.jump)
+ (dmz :addr anon.dmz))
+
+ ;; Fancy connectivity.
+ (iodine (jump :svc jazz.jump))
+
+ ;; Colocated hosts.
+ (colo :net colo)
+ (jump :net jump)
+ (gate (jump :addr gate.jump :sshfp "precision"))
+ (fender (colo :addr fender.colo :sshfp "fender")
+ (jump :addr fender.jump :sshfp "fender"))
+ (precision (colo :addr precision.colo :sshfp "precision")
+ (jump :addr precision.jump :sshfp "precision"))
+ (telecaster (colo :addr telecaster.colo :sshfp "telecaster")
+ (jump :addr telecaster.jump :sshfp "telecaster"))
+ (telecaster :alias tele)
+ (stratocaster (colo :addr stratocaster.colo :sshfp "stratocaster")
+ (jump :addr stratocaster.jump :sshfp "stratocaster"))
+ (stratocaster :alias strat)
+ (jazz (colo :addr jazz.colo :sshfp "jazz")
+ (jump :addr jazz.jump :sshfp "jazz")
+ (iodine :addr jazz.iodine :sshfp "jazz"))
+
+ ;; Media server (on loan to Good Technology HSTG).
+ (jaguar (jump :addr jaguar.jump :sshfp "jaguar"))
+
+ ;; Nicko's server.
+ (richmond (jump :svc richmond.jump))
+
+ ;; Wired ethernet.
+ (unsafe :net unsafe)
+ (safe :net safe)
+ (untrusted :net untrusted)
+ (vampire (unsafe :addr vampire.unsafe :sshfp "vampire")
+ (dmz :addr vampire.dmz :sshfp "vampire")
+ (safe :addr vampire.safe :sshfp "vampire")
+ (untrusted :addr vampire.untrusted :sshfp "vampire"))
+ (ibanez (unsafe :addr ibanez.unsafe :sshfp "ibanez")
+ (dmz :addr ibanez.dmz :sshfp "ibanez"))
+ (radius (unsafe :addr radius.unsafe :sshfp "radius")
+ (dmz :addr radius.dmz :sshfp "radius")
+ (safe :addr radius.safe :sshfp "radius")
+ (untrusted :addr radius.untrusted :sshfp "radius"))
+ (roadstar (unsafe :addr roadstar.unsafe :sshfp "roadstar")
+ (dmz :addr roadstar.dmz :sshfp "roadstar"))
+ (jem (unsafe :addr jem.unsafe :sshfp "jem")
+ (dmz :addr jem.dmz :sshfp "jem"))
+ (artist (unsafe :addr artist.unsafe :sshfp "artist")
+ (dmz :addr artist.dmz :sshfp "artist")
+ (untrusted :addr artist.untrusted :sshfp "artist"))
+
+ ;; DHCP hosts.
+ (gibson :cname gibson.dhcp)
+ (lespaul :cname lespaul.dhcp)
+ (firebird :cname firebird.dhcp)
+ (marauder :cname marauder.dhcp)
+ (invader :cname invader.dhcp)
+
+ ;; Virtual network.
+ (vpn :net vpn)
+ (crybaby (vpn :addr crybaby.vpn :sshfp "crybaby"))
+ (terror (vpn :addr terror.vpn :sshfp "terror"))
+ (orange (vpn :addr orange.vpn :sshfp "orange"))
+ (haze (vpn :addr haze.vpn))
+ (iodine :net iodine)
+
+ ;; ITS.
+ (its :net its)
+ (gw (its :addr gw.its))
+ (mz (its :addr mz.its))
+
+ ;; Strange things.
+ (blackhole (jump :addr blackhole.jump))
+
+ ;; Delegations.
+ (dhcp :ns ((radius.ns.dhcp :ip radius)
+ (precision.ns.dhcp :ip precision)
+ (telecaster.ns.dhcp :ip telecaster)
+ (vampire.ns.dhcp :ip vampire)))
+ (dyn :ns ((radius.ns.dyn :ip radius)
+ (precision.ns.dyn :ip precision)
+ (telecaster.ns.dyn :ip telecaster)
+ (vampire.ns.dyn :ip vampire)))
+ (dnserr :ns ((radius.ns.dnserr :ip radius.dmz)
+ (precision.ns.dnserr :ip precision.jump)
+ (telecaster.ns.dnserr :ip telecaster)
+ (vampire.ns.dnserr :ip vampire.dmz)))
+ (io :ns ((ns.io :ip jazz.jump))))
+
+;;;--------------------------------------------------------------------------
+;;; Other subsidiary zones.
+
+(defzone dhcp.distorted.org.uk
+ (gibson :addr gibson.unsafe)
+ (lespaul :addr lespaul.safe)
+ (invader :addr invader.safe)
+ (marauder :addr marauder.safe))
+
+(defzone nicko.org
+ (richmond :addr richmond.jump))