Changeset 336 for trunk

Timestamp:

05/24/12 17:28:33 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint updating export for reverse DNS. See #26.

• Flesh out substitutions and supported patterns for v4 templates

File:

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

trunk/DNSDB.pm

@@ -4185 +4185 @@
         # only useful for v4 with standard DNS software, since this expands all
         # IPs in $zone (or possibly $val?) with autogenerated records
+
+##work
 use Data::Dumper;
 $zone = NetAddr::IP->new($zone);
@@ -4192 +4194 @@
     my $iplist = $zone->hostenumref;
     foreach (@$iplist) {
+      my $rec = $host;
+      _template4_expand(\$rec, $_->addr);
+      print "$_ ptr $rec\n";
     }
   } else {
   }
 }
+
+sub _template4_expand {
+  my $tmpl = shift;
+  my $ip = shift;
+
+  my @ipparts = split /\./, $ip;
+  my @iphex;
+  my @ippad;
+  for (@ipparts) {
+    push @iphex, sprintf("%x", $_);
+    push @ippad, sprintf("%u.3", $_);
+  }
 
 # IP substitutions in template records:
 #major patterns:
 #dashed IP, forward and reverse
-#dotted reversed IP (forward is... dumb)
+#dotted IP, forward and reverse (even if forward is... dumb)
+# -> %r for reverse, %i for forward, leading - or . to indicate separator, defaults to -
+# %r or %-r     => %4d-%3d-%2d-%1d
+# %.r           => %4d.%3d.%2d.%1d
+# %i or %-i     => %1d-%2d-%3d-%4d
+# %.i           => %1d.%2d.%3d.%4d
+
+  $$tmpl =~ s/\%r/\%4d-\%3d-\%2d-\%1d/g;
+  $$tmpl =~ s/\%([-.])r/\%4d$1\%3d$1\%2d$1\%1d/g;
+  $$tmpl =~ s/\%i/\%1d-\%2d-\%3d-\%4d/g;
+  $$tmpl =~ s/\%([-.])i/\%1d$1\%2d$1\%3d$1\%4d/g;
+
 #hex-coded IP
+# %h
+  $$tmpl =~ s/\%h/$iphex[0]$iphex[1]$iphex[2]$iphex[3]/g;
+
 #IP as decimal-coded 32-bit value
-#
+# %d
+  my $iptmp = $ipparts[0]*256*256*256 + $ipparts[1]*256*256 + $ipparts[2]*256 + $ipparts[3];
+  $$tmpl =~ s/\%d/$iptmp/g;
+
 #minor patterns (per-octet)
+# %[1234][dh0]
 #octet
 #hex-coded octet
 #0-padded octet
-
+  $$tmpl =~ s/\%([1234])d/$ipparts[$1-1]/g;
+  $$tmpl =~ s/\%([1234])h/$iphex[$1-1]/g;
+  $$tmpl =~ s/\%([1234])h/$ippad[$1-1]/g;
+
+} # _template4_expand()
 
       } elsif ($type == 65283) { # A+PTR template