From e8ba93bcdab7b7f195bf41e35be29c444af94136 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 9 May 2022 10:23:23 +0100
Subject: [PATCH] distorted.lisp, hosts.lisp: Add Nicko's new VM `marshall'.

---
 distorted.lisp | 3 ++-
 hosts.lisp     | 2 ++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/distorted.lisp b/distorted.lisp
index 2f25348..690c8dc 100644
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -232,8 +232,9 @@
 
   ;; Media server (on loan to Good Technology HSTG).
 
-  ;; 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)
diff --git a/hosts.lisp b/hosts.lisp
index d3f3e02..2c1719e 100644
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -78,6 +78,7 @@
 (defhost telecaster.jump (jump 7))
 (defhost stratocaster.jump (jump 8))
 (defhost jazz.jump (jump 9))
+(defhost marshall.jump ((:ipv4 jump 11) (:ipv6 jump "::2:1")))
 (defhost richmond.jump ((:ipv4 jump 12) (:ipv6 jump "::1:1")))
 (defhost anon.jump (jump 13))
 (defhost blackhole.jump ((:ipv4 jump 14) (:ipv6 jump "::ffff")))
@@ -184,5 +185,6 @@
    (defhost stratocaster stratocaster.jump)
    (defhost national national.linode)))
 
+(defhost marshall marshall.jump)
 
 ;;;----- That's all, folks --------------------------------------------------
-- 
2.11.0