Changeset 330 for trunk

Timestamp:

05/09/12 17:18:23 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint, updating export for reverse zones. See #26.

• Update SOA and NS record export handling to deal correctly with reverse zones

File:

• trunk/DNSDB.pm (modified) (2 diffs)

trunk/DNSDB.pm

@@ -4042 +4042 @@
         my ($email, $primary) = (split /:/, $host)[0,1];
         my ($refresh, $retry, $expire, $min_ttl) = (split /:/, $val)[0,1,2,3];
+        if ($revrec eq 'y') {
+          $zone = NetAddr::IP->new($zone);
+          $zone = _ZONE($zone, 'ZONE', 'r', '.').($zone->{isv6} ? '.ip6.arpa' : '.in-addr.arpa');
+        }
         print $datafile "Z$zone:$primary:$email"."::$refresh:$retry:$expire:$min_ttl:$ttl:$stamp:$loc\n";
 
@@ -4050 +4054 @@
       } elsif ($typemap{$type} eq 'NS') {
 
-        print $datafile "\&$host"."::$val:$ttl:$stamp:$loc\n";
+        if ($revrec eq 'y') {
+          $val = NetAddr::IP->new($val);
+          print $datafile '&'._ZONE($val, 'ZONE', 'r', '.').($val->{isv6} ? '.ip6.arpa' : '.in-addr.arpa').
+                "::$host:$ttl:$stamp:$loc\n";
+        } else {
+          print $datafile "\&$host"."::$val:$ttl:$stamp:$loc\n";
+        }
 
       } elsif ($typemap{$type} eq 'AAAA') {