Changeset 810 for trunk

Timestamp:

11/24/20 17:14:09 (4 years ago)

Author:

Kris Deugau

Message:

/trunk

Third sampled iteration of bind-import

File:

• trunk/bind-import (modified) (5 diffs)

trunk/bind-import

@@ -26 +26 @@
 
 my $dnsdb = new DNSDB;
+my $doimport = 0;
 
 #print Dumper(\%reverse_typemap);
@@ -32 +33 @@
 my $rev = 'n';
 my $zid;
+
+my %amap;
+my %namemap;
 
 if ($zname =~ /\.arpa\.?$/ || $zname =~ m,^[\d./]+$,) {
@@ -47 +51 @@
 die "zone $zname not on file\n" if !$zid;
 
+# still no sane way to expose a human-friendly view tag on the command line.
+my $view = shift @ARGV;
+$view = '' if !$view;
+
 ##fixme:  retrieve defttl from SOA record
 my $zonettl = 900;
+my $defttl = $zonettl;
+my $recbase = $zname;   # to append to unqualified names
 
+# need to spin up a full state machine-ish thing, because BIND zone files are all about context
 while (<>) {
+  chomp;
   next if /^\s*$/;
   next if /^\s*;/;
+  if (my ($macro,$mdetail) = (/^\s*\$(TTL|ORIGIN|INCLUDE)\s+(.+)/) ) {
+    # macro sort of thing;  $TTL and $ORIGIN most common.  $INCLUDE is a thing, expect it to be rare in live use tho
+    if ($macro eq 'TTL') {
+      if ($mdetail =~ /^\d+$/) {
+        $defttl = $mdetail;
+      } else {
+        warn "invalid \$TTL: $_\n";
+      }
+    } elsif ($macro eq 'ORIGIN') {
+##fixme:  going to skip the stupid case of "$ORIGIN com." and the like that lie
+# between . and the root domain we were told we're importing;  anyone using such
+# a mess outside the root servers is clearly insane
+# handled cases:
+#   $ORIGIN .
+#   $ORIGIN [zonedomain].
+#   $ORIGIN [subdomain.zonedomain].
+      if ($mdetail eq '.' || $mdetail =~ /$zname\.$/ || $zname =~ /$mdetail\.$/) {
+        $recbase = $mdetail;
+      } else {
+        # if we continue, we either use an $ORIGIN that's out of zone, or ignore it and potentially publish incorrect records.
+        die "bad \$ORIGIN: $_\n";
+      }
+    }
+    next;
+  }
+  # skip stale records that have no value
+  next if /^ip-192-168-1(12|20)-\d+/;
+  next if /ip.add.re.\d+\s*$/;
   my ($name) = /([\w_.-]+)\s/;
   # append zone name to record name if missing AND not dot-terminated;
@@ -59 +99 @@
   # impossible with valid BIND zone file but...
   $name .= ".$zname" if $name !~ /$zname$/ && $zname !~ /\.$/;
+$name = $zname if /^\s*IN/;
   s/([\w_.-]+)\s+//;
   my ($class) = /(IN|CS|CH|HS)\s/;
@@ -94 +135 @@
   }
 
+if ($type eq 'A') {
+#  if ($amap{$name}) {
+#    print "urp:  dupe name $name $rdata\n";
+#  } else {
+    push @{$amap{$name}}, $rdata;
+#  }
+  push @{$namemap{$rdata}}, $name;
+}
+
 no warnings qw(uninitialized);
-print "parsed: '$name' '$class' '$ttl' '$type'->'$itype' '$rdata'\t";
+#print "parsed: '$name' '$class' '$ttl' '$type'->'$itype' '$rdata'\n";
 #print;
 #;imap   IN      900     CNAME   deepnet.cx.
 ##fixme:  not sure how to handle the case where someone leaves off the class.
-  my ($code, $msg);
-  if ($rev eq 'n') {
-    ($code,$msg) = $dnsdb->addRec('n', $rev, $zid, \$name, \$itype, \$rdata, $ttl);
-  } else {
-    ($code,$msg) = $dnsdb->addRec('n', $rev, $zid, \$rdata, \$itype, \$name, $ttl);
+  if ($doimport) {
+    my ($code, $msg);
+    if ($rev eq 'n') {
+      ($code,$msg) = $dnsdb->addRec('n', $rev, $zid, \$name, \$itype, \$rdata, $ttl);
+    } else {
+      ($code,$msg) = $dnsdb->addRec('n', $rev, $zid, \$rdata, \$itype, \$name, $ttl);
+    }
+    print "$code: $msg\n";
   }
-  print "$code: $msg\n";
 }
+
+
+#print Dumper \%amap;
+foreach my $n (keys %amap) {
+  foreach my $ip (@{$amap{$n}}) {
+#print "$ip     $n\n";
+    push @{$namemap{$ip}}, $n unless grep $n, @{$namemap{$ip}};
+  }
+}
+
+#print Dumper \%namemap;
+foreach my $ip (sort keys %namemap) {
+  print "$ip    ".join(' ', @{$namemap{$ip}})."\n";
+}