distorted.lisp: Add network-specific abbreviation for `groove.unsafe'.

[zones] / distorted.lisp

diff --git a/distorted.lisp b/distorted.lisp
index dd1a2ceb35a97fbadda52b3420b77cb60f01e97c..71a4b91869379dec68b8eaec265df03e8dde1222 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -185,7 +185,7 @@ (defzone distorted.org.uk
          (unsafe :svc roadstar.unsafe :sshfp "roadstar"))
 
   ;; Internal services.
-  #+view/inside ((news lpr) :svc vampire.unsafe :sshfp "vampire")
+  #+view/inside ((news lpr) :svc roadstar.unsafe :sshfp "roadstar")
 
   ;; Anonymity services.
   (anon (colo :svc jazz.colo)
@@ -229,13 +229,11 @@ (defzone distorted.org.uk
   (national :abbrev n (linode :abbrev nl) (upn :abbrev ny))
   (national (linode :addr national.linode)
            (upn :addr national.upn))
+  (mdwdev (upn :addr mdwdev.upn))
 
-  ;; Media server (on loan to Good Technology HSTG).
-  (jaguar :abbrev jag)
-  (jaguar (jump :addr jaguar.jump :sshfp "jaguar"))
-
-  ;; Nicko's server.
+  ;; Nicko's servers.
   (richmond (jump :svc richmond.jump))
+  (marshall (jump :svc marshall.jump))
 
   ;; Entry is via little router box.
   (dmz :net dmz)
@@ -251,6 +249,10 @@ (defzone distorted.org.uk
   (lunch :alias ap1)
   (lunch (safe :addr lunch.safe))
 
+  ;; Printer.
+  (burntaxe :alias lp0)
+  (burntaxe (safe :addr burntaxe.safe))
+
   ;; Switches.
   (grigsby :alias tp0)
   (grigsby (safe :addr grigsby.safe))
@@ -296,7 +298,8 @@ (defzone distorted.org.uk
   (artist (unsafe :addr artist.unsafe :sshfp "artist")
          (dmz :addr artist.dmz :sshfp "artist")
          (untrusted :addr artist.untrusted :sshfp "artist"))
-  (groove :abbrev gr)
+  (groove :abbrev gr
+         (unsafe :abbrev gru))
   (groove (unsafe :addr groove.unsafe :sshfp "groove"))
 
   ;; DHCP hosts.