From 55f161b6b9673e11222e07757de537cff5a0d04a Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 16 Apr 2014 15:57:30 +0100
Subject: [PATCH] Include IPv6 addresses for dynamic hosts.

It's easiest to stuff these in a dummy zone and get the magic
machinery to make the reverse records.
---
 distorted.lisp | 6 ++++++
 hosts.lisp     | 6 ++++++
 2 files changed, 12 insertions(+)

diff --git a/distorted.lisp b/distorted.lisp
index 51bfe02..985cfff 100644
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -243,6 +243,12 @@
 ;;;--------------------------------------------------------------------------
 ;;; Other subsidiary zones.
 
+(defzone dhcp.distorted.org.uk
+  (gibson :addr gibson.unsafe)
+  (lespaul :addr lespaul.safe)
+  (invader :addr invader.safe)
+  (marauder :addr marauder.safe))
+
 (defrevzone trusted
   :ns (radius.distorted.org.uk.
        precision.distorted.org.uk.
diff --git a/hosts.lisp b/hosts.lisp
index 1054032..881ad01 100644
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -86,6 +86,12 @@
 (defhost vampire.unsafe (unsafe 5))
 (defhost ibanez.unsafe (unsafe 14))
 
+;; Client hosts, with IPv6 addresses.
+(defhost gibson.unsafe ((:ipv6 "2001:470:9740:1:e269:95ff:fe63:bb4")))
+(defhost lespaul.safe ((:ipv6 "2001:470:9740:4001:a00:27ff:fef5:aaef")))
+(defhost invader.safe ((:ipv6 "2001:470:9740:4001:a00:27ff:fe94:a5d7")))
+(defhost marauder.safe ((:ipv6 "2001:470:9740:4001:a00:27ff:fe6a:7846")))
+
 ;; Safe network.
 (defhost radius.safe (safe 1))
 (defhost vampire.safe (safe 2))
-- 
2.11.0