Changeset 362 for trunk

Timestamp:

07/10/12 17:55:24 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint tiny-import.pl

• Fill in stub for semiobscure RP records (found in test data)

File:

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

trunk/tiny-import.pl

@@ -497 +497 @@
       } elsif ($type == 17) {
         # RP
+        my ($email, $txtrec) = split /\\000/, $rdata;
+        $email =~ s/\\\d{3}/./g;
+        $email =~ s/^\.//;
+        $txtrec =~ s/\\\d{3}/./g;
+        $txtrec =~ s/^\.//;
+
+        # these might actually make sense in a reverse zone...  sort of.
+        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, "$email $txtrec", 17, "$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, 17, "$email $txtrec", 0, 0, 0, $ttl);
+          } else {
+            push @deferred, $rec unless $nodefer;
+          }
+        }
 
       } elsif ($type == 44) {