e-smith-dnscache/sme8/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	bytegw	1.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);