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.

diff --git a/distorted.lisp b/distorted.lisp
index 51bfe02..985cfff 100644 (file)
--- 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 (file)
--- 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))