From b29264c578d1d5baba52a1a47365f588dbbce20f Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 26 Apr 2014 00:16:50 +0100
Subject: [PATCH] distorted.lisp: Emit reverse zones for optimistic RFC2317
 delegations.

---
 Makefile       |  3 +++
 distorted.lisp | 32 ++++++++++++++++++++++++++++++--
 2 files changed, 33 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index 9128104..fc2c0cb 100644
--- a/Makefile
+++ b/Makefile
@@ -67,6 +67,9 @@ distorted_inside_NETS	 = any unsafe colo vpn
 
 distorted_all_ZONES	+= distorted.org.uk
 
+distorted_all_ZONES	+= 144-159.204.49.62.in-addr.arpa
+distorted_all_ZONES	+= 64-79.198.13.212.in-addr.arpa
+
 distorted_all_ZONES	+= 199.29.172.in-addr.arpa
 
 distorted_all_ZONES	+= 8.9.b.1.9.0.f.1.0.7.4.0.1.0.0.2.ip6.arpa
diff --git a/distorted.lisp b/distorted.lisp
index a9aa9ab..80c9a34 100644
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -274,20 +274,48 @@
 	     vampire.distorted.org.uk.))
   :multi (((dhcp safe) :family :ipv4 :suffix "199.29.172.dhcp") :cname *))
 
-(defrevzone dmz
+(defrevzone (dmz :family :ipv6)
   :ns (radius.distorted.org.uk.
        precision.distorted.org.uk.
        telecaster.distorted.org.uk.
        vampire.distorted.org.uk.)
   :reverse dmz)
 
-(defrevzone jump
+(defrevzone (dmz :family :ipv4)
+  (144-159 :ns (radius.distorted.org.uk.
+		precision.distorted.org.uk.
+		telecaster.distorted.org.uk.
+		vampire.distorted.org.uk.))
+  :multi ((dmz :suffix "144-159") :cname *))
+
+(defzone 144-159.204.49.62.in-addr.arpa
+  :ns (radius.distorted.org.uk.
+       precision.distorted.org.uk.
+       telecaster.distorted.org.uk.
+       vampire.distorted.org.uk.)
+  :reverse ((((:ipv4 dmz)))))
+
+(defrevzone (jump :family :ipv6)
   :ns (radius.distorted.org.uk.
        precision.distorted.org.uk.
        telecaster.distorted.org.uk.
        vampire.distorted.org.uk.)
   :reverse jump)
 
+(defrevzone (jump :family :ipv4)
+  (64-79 :ns (radius.distorted.org.uk.
+	      precision.distorted.org.uk.
+	      telecaster.distorted.org.uk.
+	      vampire.distorted.org.uk.))
+  :multi ((jump :suffix "64-79") :cname *))
+
+(defzone 64-79.198.13.212.in-addr.arpa
+  :ns (radius.distorted.org.uk.
+       precision.distorted.org.uk.
+       telecaster.distorted.org.uk.
+       vampire.distorted.org.uk.)
+  :reverse ((((:ipv4 jump)))))
+
 (defrevzone distorted.org.uk-he
   :ns (radius.distorted.org.uk.
        precision.distorted.org.uk.
-- 
2.11.0