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

diff --git a/distorted.lisp b/distorted.lisp
index 71a4b91869379dec68b8eaec265df03e8dde1222..a35b3db32c7559475db68e8875f22a86bd8a80f3 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -299,8 +299,9 @@ (defzone distorted.org.uk
          (dmz :addr artist.dmz :sshfp "artist")
          (untrusted :addr artist.untrusted :sshfp "artist"))
   (groove :abbrev gr
-         (unsafe :abbrev gru))
-  (groove (unsafe :addr groove.unsafe :sshfp "groove"))
+         (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)

diff --git a/hosts.lisp b/hosts.lisp
index 8e308b1e4d5966a864f61d9cb13d16298330f1f3..67318131a45ca6ca2dae904ddf66bde0b6505384 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -133,6 +133,7 @@ (defhost precision.vpn ((:ipv4 vpn 6) (:ipv6 vpn "::6:1")))
 (defhost jazz.vpn ((:ipv4 vpn 7) (:ipv6 vpn "::7:1")))
 (defhost vampire.vpn ((:ipv4 vpn 8) (:ipv6 vpn "::8:1")))
 (defhost spirit.vpn ((:ipv4 vpn 9) (:ipv6 vpn "::9:1")))
+(defhost groove.vpn ((:ipv4 vpn 10) (:ipv6 vpn "::10:1")))
 
 ;; Untrusted private network.
 (defhost national.upn ((:ipv4 upn 1) (:ipv6 upn "::1:1")))