hosts.lisp: evolution now speaks IPv6.

[zones] / distorted.lisp

diff --git a/distorted.lisp b/distorted.lisp
index b0d0d593a40b8cc4206847298c2a4ac8e60e66d3..fbb1f8ff65c7de0300b24d36b25807adf31718e8 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -226,6 +226,11 @@ (defzone distorted.org.uk
   (evolution (safe :addr evolution.safe))
   (evolution :alias evo)
 
+  ;; Switches.
+  (tp0 (safe :addr tp0.safe))
+  (tp1 (safe :addr tp1.safe))
+  (tp2 (safe :addr tp2.safe))
+
   ;; Wired ethernet.
   (unsafe :net unsafe)
   (safe :net safe)
@@ -258,6 +263,8 @@ (defzone distorted.org.uk
   (artist (unsafe :addr artist.unsafe :sshfp "artist")
          (dmz :addr artist.dmz :sshfp "artist")
          (untrusted :addr artist.untrusted :sshfp "artist"))
+  (groove :abbrev gr)
+  (groove (unsafe :addr groove.unsafe :sshfp "groove"))
 
   ;; DHCP hosts.
   (gibson :cname gibson.dhcp :abbrev g)
@@ -276,8 +283,6 @@ (defzone distorted.org.uk
   (orange (vpn :addr orange.vpn :sshfp "orange"))
   (haze :abbrev h)
   (haze (vpn :addr haze.vpn :sshfp "haze"))
-  (groove :abbrev gr)
-  (groove (vpn :addr groove.vpn :sshfp "groove"))
   (iodine :net iodine)
 
   ;; ITS.