From 327c80f3895d7e0c52a714f303f5e328dacb0cfa Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 16 Apr 2020 12:48:35 +0100
Subject: [PATCH] hosts.lisp, distorted.lisp: Add entries for new wireless
 access points.

Thanks for these, James.
---
 distorted.lisp | 4 +++-
 hosts.lisp     | 2 ++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/distorted.lisp b/distorted.lisp
index ec82871..8cc4d41 100644
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -242,10 +242,12 @@
   (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 3aabfd2..28d57ea 100644
--- 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 kitkat.safe (safe 7))
+(defhost lunch.safe (safe 8))
 
 ;; Wireless network.
 (defhost radius.untrusted (untrusted 1))
-- 
2.11.0