hosts.lisp, distorted.lisp: Add VPN address for `groove'.

[zones] / distorted.lisp

diff --git a/distorted.lisp b/distorted.lisp
index 63d5a4e5fe62f50b8eab683f916ab854be82a151..a35b3db32c7559475db68e8875f22a86bd8a80f3 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)
@@ -231,8 +231,6 @@ (defzone distorted.org.uk
            (upn :addr national.upn))
   (mdwdev (upn :addr mdwdev.upn))
 
-  ;; Media server (on loan to Good Technology HSTG).
-
   ;; Nicko's servers.
   (richmond (jump :svc richmond.jump))
   (marshall (jump :svc marshall.jump))
@@ -300,8 +298,10 @@ (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 (unsafe :addr groove.unsafe :sshfp "groove"))
+  (groove :abbrev gr
+         (unsafe :abbrev gru) (vpn :abbrev grv))
+  (groove (unsafe :addr groove.unsafe :sshfp "groove")
+         (vpn :addr groove.vpn :sshfp "groove"))
 
   ;; DHCP hosts.
   (gibson :cname gibson.dhcp :abbrev g)