e-smith-dnscache/sme7/e-smith-dnscache-1.0.0-reverse_delegation.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-dnscache-1.0.0/root/var/service/dnscache/run mezzanine_patched_e-smith-dnscache-1.0.0/root/var/service/dnscache/run
--- e-smith-dnscache-1.0.0/root/var/service/dnscache/run        2008-06-18 14:53:01.000000000 -0400
+++ mezzanine_patched_e-smith-dnscache-1.0.0/root/var/service/dnscache/run      2008-06-18 14:48:50.000000000 -0400
@@ -92,13 +92,18 @@
        $nameserver = undef;
     }
     $nameserver ||= ($systemlocalnetwork eq 'yes') ? $tinydns_ip : 'none';
-    push @localnetworks,
-        esmith::util::computeAllLocalNetworkPrefixes ($key, $mask);
+    my @all_network_prefixes = esmith::util::computeAllLocalNetworkPrefixes ($key, $mask);
+    push @localnetworks, @all_network_prefixes;
 
-    my $reverse = esmith::util::computeLocalNetworkReversed ($key, $mask);
-    # Remove the trailing period provided by computeLocalNetworkReversed
-    $reverse =~ s/\.$//;
-    $reversenets{$reverse} = $nameserver unless ($nameserver eq 'none');
+    unless ($nameserver eq 'none')
+    {
+       foreach (@all_network_prefixes)
+       {
+           my @quads = split(/\./, $_);
+           my $reverse_zone = join('.', reverse @quads) . ".in-addr.arpa";
+           $reversenets{$reverse_zone} = $nameserver;
+       }
+    }
 }
 
 allow_networks_2access_cache(@localnetworks);
1	diff -Nur -x '.orig' -x '.rej' e-smith-dnscache-1.0.0/root/var/service/dnscache/run mezzanine_patched_e-smith-dnscache-1.0.0/root/var/service/dnscache/run
2	--- e-smith-dnscache-1.0.0/root/var/service/dnscache/run 2008-06-18 14:53:01.000000000 -0400
3	+++ mezzanine_patched_e-smith-dnscache-1.0.0/root/var/service/dnscache/run 2008-06-18 14:48:50.000000000 -0400
4	@@ -92,13 +92,18 @@
5	$nameserver = undef;
6	}
7	$nameserver \|\|= ($systemlocalnetwork eq 'yes') ? $tinydns_ip : 'none';
8	- push @localnetworks,
9	- esmith::util::computeAllLocalNetworkPrefixes ($key, $mask);
10	+ my @all_network_prefixes = esmith::util::computeAllLocalNetworkPrefixes ($key, $mask);
11	+ push @localnetworks, @all_network_prefixes;
12
13	- my $reverse = esmith::util::computeLocalNetworkReversed ($key, $mask);
14	- # Remove the trailing period provided by computeLocalNetworkReversed
15	- $reverse =~ s/\.$//;
16	- $reversenets{$reverse} = $nameserver unless ($nameserver eq 'none');
17	+ unless ($nameserver eq 'none')
18	+ {
19	+ foreach (@all_network_prefixes)
20	+ {
21	+ my @quads = split(/\./, $_);
22	+ my $reverse_zone = join('.', reverse @quads) . ".in-addr.arpa";
23	+ $reversenets{$reverse_zone} = $nameserver;
24	+ }
25	+ }
26	}
27
28	allow_networks_2access_cache(@localnetworks);