Changeset 363

Timestamp:

07/11/12 13:35:31 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint tiny-import.pl

• Fill in stub for SSHFP record

File:

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

trunk/tiny-import.pl

@@ -143 +143 @@
   }
 
+  sub _rdata2hex {
+    my $rdata = shift;
+    my $tmpout = '';
+    while ($rdata) {
+      my $byte = '';
+      if ($rdata =~ /^\\/) {
+        ($byte) = ($rdata =~ /^(\\\d{3})/);
+        $byte =~ s/\\/0/;
+        $tmpout .= sprintf("%0.2x", oct($byte));
+        $rdata =~ s/^\\\d{3}//;
+      } else {
+        ($byte) = ($rdata =~ /^(.)/);
+        $tmpout .= sprintf("%0.2x", ord($byte));
+        $rdata =~ s/^.//;
+      }
+    }
+    return $tmpout;
+  }
+
 
   sub recslurp {
@@ -523 +542 @@
       } elsif ($type == 44) {
         # SSHFP
+        my $sshfp = _byteparse(\$rdata, 1);
+        $sshfp .= " "._byteparse(\$rdata, 1);
+        $sshfp .= " "._rdata2hex($rdata);
+
+        # these do not make sense in a reverse zone, since they're logically attached to an A record
+        my $domid = DNSDB::_hostparent($dbh, $fqdn);
+        if ($domid) {
+          $recsth->execute($domid, 0, $fqdn, 44, $sshfp, 0, 0, 0, $ttl);
+        } else {
+          push @deferred, $rec unless $nodefer;
+        }
 
       } else {