Changeset 361

Timestamp:

07/09/12 18:04:25 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint tiny-import.pl

• Factor out rdata to general string conversion for generic types that actually put strings on the wire (TXT, RP, SPF for sure)
• Add TXT support in generic records
• Add stubs for RP and SSHFP records (observed in live data)

File:

• trunk/tiny-import.pl (modified) (2 diffs)

trunk/tiny-import.pl

@@ -121 +121 @@
   }
 
+  sub _rdata2string {
+    my $rdata = shift;
+    my $tmpout = '';
+    while ($rdata) {
+      my $bytecount = 0;
+      if ($rdata =~ /^\\/) {
+        ($bytecount) = ($rdata =~ /^(\\\d{3})/);
+        $bytecount =~ s/\\/0/;
+        $bytecount = oct($bytecount);
+        $rdata =~ s/^\\\d{3}//;
+      } else {
+        ($bytecount) = ($rdata =~ /^(.)/);
+        $bytecount = ord($bytecount);
+        $rdata =~ s/^.//;
+      }
+      my @tmp = _byteparse(\$rdata, $bytecount);
+      foreach (@tmp) { $tmpout .= chr($_); }
+##fixme:  warn or fail on long (>256?  >512?  >321?) strings
+    }
+    return $tmpout;
+  }
+
+
   sub recslurp {
     my $rec = shift;
@@ -451 +474 @@
         }
 
+      } elsif ($type == 16) {
+        # TXT
+        my $txtstring = _rdata2string($rdata);
+
+        if ($fqdn =~ /\.arpa$/) {
+          ($code,$msg) = DNSDB::_zone2cidr($fqdn);
+          my ($rparent) = $dbh->selectrow_array("SELECT rdns_id FROM revzones WHERE revnet >> ?", undef, ($msg));
+          if ($rparent) {
+            $recsth->execute(0, $rparent, $txtstring, 16, "$msg", 0, 0, 0, $ttl);
+          } else {
+            push @deferred, $rec unless $nodefer;
+          }
+        } else {
+          my $domid = DNSDB::_hostparent($dbh, $fqdn);
+          if ($domid) {
+            $recsth->execute($domid, 0, $fqdn, 16, $txtstring, 0, 0, 0, $ttl);
+          } else {
+            push @deferred, $rec unless $nodefer;
+          }
+        }
+
+      } elsif ($type == 17) {
+        # RP
+
+      } elsif ($type == 44) {
+        # SSHFP
+
       } else {
         # ... uhhh, dunno