Changeset 364

Timestamp:

07/11/12 16:38:56 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Fill in export of SSHFP records since they're imported via both
tiny-import.pl and AXFR. Note AXFR leaves some garbage in the stored
record, but it exports cleanly.

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -4568 +4568 @@
         }
 
+##
+## Uncommon types.  These will need better UI support Any Day Sometime Maybe(TM).
+##
+
+      } elsif ($type == 44) { # SSHFP
+        my ($algo,$fpt,$fp) = split /\s+/, $val;
+
+        my $rec = sprintf ":$host:44:\\%0.3o\\%0.3o", $algo, $fpt;
+        while (my ($byte) = ($fp =~ /^(..)/) ) {
+          $rec .= sprintf "\\%0.3o", hex($byte);
+          $fp =~ s/^..//;
+        }
+        print $datafile "$rec:$ttl:$stamp:$loc\n";
+
       } else {
         # raw record.  we don't know what's in here, so we ASS-U-ME the user has