hosts.lisp, distorted.lisp: Allocate an IPv6 range for DHCP.

The magic 32-bit hex string spells out `dhcp' in ASCII.

diff --git a/distorted.lisp b/distorted.lisp
index 6150d58..d71124a 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -445,8 +445,20 @@
        telecaster.distorted.org.uk.
        national.distorted.org.uk.
        secondary-dns.co.uk.)
        telecaster.distorted.org.uk.
        national.distorted.org.uk.
        secondary-dns.co.uk.)

+  (0.7.3.6.8.6.4.6.1.0.0.0 :ns (radius.distorted.org.uk.
+                               vampire.distorted.org.uk.
+                               precision.distorted.org.uk.
+                               telecaster.distorted.org.uk.
+                               national.distorted.org.uk.))

   :reverse ((((:ipv6 distorted.org.uk-aaisp)))))
 
   :reverse ((((:ipv6 distorted.org.uk-aaisp)))))
 

+(defrevzone (dhcp :family :ipv6)
+  :ns (radius.distorted.org.uk.
+       vampire.distorted.org.uk.
+       precision.distorted.org.uk.
+       telecaster.distorted.org.uk.
+       national.distorted.org.uk.))
+

 (defrevzone distorted.org.uk-jump
   :ns (radius.distorted.org.uk.
        vampire.distorted.org.uk.
 (defrevzone distorted.org.uk-jump
   :ns (radius.distorted.org.uk.
        vampire.distorted.org.uk.

diff --git a/hosts.lisp b/hosts.lisp
index 9cd6a73..25e151e 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -40,7 +40,8 @@
 (defnet gw "81.2.113.195")
 (defnet dmz "81.187.238.128/28")
 (defnet distorted.org.uk-aaisp "2001:8b0:c92/48"
 (defnet gw "81.2.113.195")
 (defnet dmz "81.187.238.128/28")
 (defnet distorted.org.uk-aaisp "2001:8b0:c92/48"

-  (unsafe "1/64")
+  (unsafe "1/64"
+    (dhcp "6468:6370/96"))

   (dmz "fff/64")
   (safe "4001/64")
   (untrusted "8001/64"))
   (dmz "fff/64")
   (safe "4001/64")
   (untrusted "8001/64"))