hosts.lisp, distorted.lisp: Add entries for new wireless access points.

Thanks for these, James.

diff --git a/distorted.lisp b/distorted.lisp
index ec828719c6f4b1d591d4400837f613fedf2fd565..8cc4d41d9f8b33a2064aaf4f9b73b9b292409501 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -242,10 +242,12 @@ (defzone distorted.org.uk
   (guvnor (dmz :addr guvnor.dmz))
   (nat (dmz :addr nat.dmz))
 
-  ;; Wireless gateway.
+  ;; Wireless access points.
   (wireless :net wireless)
   (evolution (safe :addr evolution.safe))
   (evolution :alias evo)
+  (kitkat (safe :addr kitkat.safe))
+  (lunch (safe :addr lunch.safe))
 
   ;; Switches.
   (grigsby :alias tp0)

diff --git a/hosts.lisp b/hosts.lisp
index 3aabfd21ef8e582a738b402b05b452cbe1004638..28d57ea4b63ceb596481f07fc364b73ccb07e9d9 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -114,6 +114,8 @@ (defhost evolution.safe (safe 3))
 (defhost grigsby.safe (safe 4))
 (defhost carling.safe (safe 5))
 (defhost tritan.safe (safe 6))
+(defhost kitkat.safe (safe 7))
+(defhost lunch.safe (safe 8))
 
 ;; Wireless network.
 (defhost radius.untrusted (untrusted 1))