hosts.lisp: Carve out a chunk of address space for anycast.

[zones] / hosts.lisp

diff --git a/hosts.lisp b/hosts.lisp
index fee2e5d..cee2a51 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -28,12 +28,13 @@
   (trusted 256
     (wired 128
       (unsafe 32)
-      (dhcp 32)
-      (safe 32))
-    (virtual 32)
-    (play 32
+      (dhcp 32))
+    (vpn 32)
+    (nil 16
       (its 4))
-    (colo 32)))
+    (colo 16)
+    (safe 32)
+    (any 32)))
 
 ;;;--------------------------------------------------------------------------
 ;;; Host allocations
@@ -66,8 +67,9 @@
 (defhost ibanez.unsafe (unsafe 14))
 
 ;; Safe network.
-(defhost tubescreamer.safe (safe 1))
-(defhost obsidian.safe (safe 2))
+(defhost radius.safe (safe 1))
+(defhost vampire.safe (safe 2))
+(defhost evolution.safe (safe 3))
 
 ;; Wireless network.
 (defhost radius.untrusted (untrusted 1))
@@ -75,8 +77,8 @@
 (defhost vampire.untrusted (untrusted 3))
 
 ;; Virtual private network.
-(defhost crybaby.virtual (virtual 1))
-(defhost terror.virtual (virtual 2))
+(defhost crybaby.vpn (vpn 1))
+(defhost terror.vpn (vpn 2))
 
 ;; Iodine network.
 (defhost vampire.iodine (iodine 1))