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

Thanks for these, James.

diff --git a/distorted.lisp b/distorted.lisp
index ec82871..8cc4d41 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -242,10 +242,12 @@
   (guvnor (dmz :addr guvnor.dmz))
   (nat (dmz :addr nat.dmz))
 
   (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)
   (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)
 
   ;; Switches.
   (grigsby :alias tp0)

diff --git a/hosts.lisp b/hosts.lisp
index 3aabfd2..28d57ea 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -114,6 +114,8 @@
 (defhost grigsby.safe (safe 4))
 (defhost carling.safe (safe 5))
 (defhost tritan.safe (safe 6))
 (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))
 
 ;; Wireless network.
 (defhost radius.untrusted (untrusted 1))