From c1f47051f1cb6a87b67ad33d86059d85574f17fc Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 21 Apr 2014 16:27:23 +0100
Subject: [PATCH] hosts.lisp, distorted.lisp: Fix records for `richmond'.

Add the IPv6 address, because it seems to respond just fine to IPv6;
and arrange to put the correct name in the reverse zone.
---
 distorted.lisp | 5 ++++-
 hosts.lisp     | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/distorted.lisp b/distorted.lisp
index c62ee34..967401d 100644
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -184,7 +184,7 @@
   (jaguar (jump :addr jaguar.jump))
 
   ;; Nicko's server.
-  (richmond (jump :addr richmond.jump))
+  (richmond (jump :svc richmond.jump))
 
   ;; Wired ethernet.
   (unsafe :net unsafe)
@@ -254,6 +254,9 @@
   (invader :addr invader.safe)
   (marauder :addr marauder.safe))
 
+(defzone nicko.org
+  (richmond :addr richmond.jump))
+
 (defrevzone trusted
   :ns (radius.distorted.org.uk.
        precision.distorted.org.uk.
diff --git a/hosts.lisp b/hosts.lisp
index 28dd2bf..fe62bfe 100644
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -74,7 +74,7 @@
 (defhost stratocaster.jump (jump 8))
 (defhost jazz.jump (jump 9))
 (defhost jaguar.jump ((:ipv4 jump 11)))
-(defhost richmond.jump ((:ipv4 jump 12)))
+(defhost richmond.jump ((:ipv4 jump 12) (:ipv6 jump "::1:1")))
 (defhost anon.jump (jump 13))
 (defhost blackhole.jump ((:ipv4 jump 14) (:ipv6 jump "::ffff")))
 
-- 
2.11.0