hosts.lisp, distorted.lisp: Set up `safe' subnet.

[zones] / hosts.lisp

diff --git a/hosts.lisp b/hosts.lisp
index fee2e5d..8fc9924 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -28,12 +28,12 @@
   (trusted 256
     (wired 128
       (unsafe 32)
-      (dhcp 32)
-      (safe 32))
+      (dhcp 32))
     (virtual 32)
-    (play 32
+    (nil 16
       (its 4))
-    (colo 32)))
+    (colo 16)
+    (safe 32)))
 
 ;;;--------------------------------------------------------------------------
 ;;; Host allocations
@@ -66,8 +66,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))