hosts.lisp, distorted.lisp: Define a network for `hippotat'.

[zones] / hosts.lisp

diff --git a/hosts.lisp b/hosts.lisp
index 25e151e..546258f 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -25,6 +25,7 @@
   (untrusted "198.0/24"
     (wireless "0/25")
     (iodine "128/28")
+    (hippo "144/28")
     (upn "160/27"))
   (trusted "199.0/24"
     (wired "0/25"
@@ -134,6 +135,10 @@
 ;; Iodine network.
 (defhost jazz.iodine (iodine 1))
 
+;; Hippotat network.
+(defhost jazz.hippo (hippo 1))
+(defhost crybaby.hippo (hippo 2))
+
 ;; Special network for ITS.
 ;; It doesn't understand point-to-point links, so we need a little net.
 (defhost gw.its (its 1))