Changeset 355

Timestamp:

06/29/12 14:50:17 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint filling in tiny-import.pl stubs; NS records complete

File:

• trunk/tiny-import.pl (modified) (1 diff)

trunk/tiny-import.pl

@@ -179 +179 @@
       $cnt{NS}++;
 
+      my ($zone,$ip,$ns,$ttl,$stamp,$loc) = split /:/, $rec, 6;
+      $zone =~ s/^\&//;
+      $zone =~ s/\.$//;
+      $ttl = 0 if !$ttl;
+      $stamp = '' if !$stamp;
+      $loc = '' if !$loc;
+      $loc = '' if $loc =~ /^:+$/;
+      if ($zone =~ /\.arpa$/) {
+        ($code,$msg) = DNSDB::_zone2cidr($zone);
+        print "revzone $msg from $zone\n";
+        my ($rparent) = $dbh->selectrow_array("SELECT rdns_id FROM revzones WHERE revnet >>= ?", undef, ("$msg"));
+##fixme, in concert with the CNAME check for same;  automagically
+# create "delegate" record instead for subzone NSes:  convert above to use = instead of >>=
+#  ($rparent) = $dbh->selectrow_array("SELECT rdns_id FROM revzones WHERE revnet >> ?", undef, ("$msg"))
+#       if !$rparent;
+        if ($rparent) {
+          $recsth->execute(0, $rparent, $ns, 2, $msg, 0, 0, 0, $ttl);
+        } else {
+          push @deferred, $rec unless $nodefer;
+        }
+      } else {
+        my $fparent = DNSDB::_hostparent($dbh, $zone);
+        if ($fparent) {
+          $recsth->execute($fparent, 0, $zone, 2, $ns, 0, 0, 0, $ttl);
+        } else {
+          push @deferred, $rec unless $nodefer;
+        }
+      }
+
     } elsif ($rec =~ /^\^/) {
       $cnt{PTR}++;