distorted.lisp, hosts.lisp: Assign theme names to the TP-Link switches.

Thanks to Owen Dunn for pointing me at some excellent names.

diff --git a/distorted.lisp b/distorted.lisp
index 43fcca2872d8742dde075945a01c0af4d9f93bf2..90f901401ad06247e5cae6ba59ef3e9f1c0cf28e 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -229,9 +229,12 @@ (defzone distorted.org.uk
   (evolution :alias evo)
 
   ;; Switches.
   (evolution :alias evo)
 
   ;; Switches.

-  (tp0 (safe :addr tp0.safe))
-  (tp1 (safe :addr tp1.safe))
-  (tp2 (safe :addr tp2.safe))
+  (grigsby :alias tp0)
+  (grigsby (safe :addr grigsby.safe))
+  (carling :alias tp1)
+  (carling (safe :addr carling.safe))
+  (tritan :alias tp2)
+  (tritan (safe :addr tritan.safe))

 
   ;; Wired ethernet.
   (unsafe :net unsafe)
 
   ;; Wired ethernet.
   (unsafe :net unsafe)

diff --git a/hosts.lisp b/hosts.lisp
index e4d7111e96686a8852494bd5fec0b42e51623160..7463af1bc2de2f3560761056a406ac0373ff9754 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -98,9 +98,9 @@ (defhost marauder.safe ((:ipv6 "2001:470:9740:4001:a00:27ff:fe6a:7846")))
 (defhost radius.safe (safe 1))
 (defhost vampire.safe (safe 2))
 (defhost evolution.safe (safe 3))
 (defhost radius.safe (safe 1))
 (defhost vampire.safe (safe 2))
 (defhost evolution.safe (safe 3))

-(defhost tp0.safe (safe 4))
-(defhost tp1.safe (safe 5))
-(defhost tp2.safe (safe 6))
+(defhost grigsby.safe (safe 4))
+(defhost carling.safe (safe 5))
+(defhost tritan.safe (safe 6))

 
 ;; Wireless network.
 (defhost radius.untrusted (untrusted 1))
 
 ;; Wireless network.
 (defhost radius.untrusted (untrusted 1))