Changeset 364 for trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/DNSDB.pm

    r352 r364  
    45684568        }
    45694569
     4570##
     4571## Uncommon types.  These will need better UI support Any Day Sometime Maybe(TM).
     4572##
     4573
     4574      } elsif ($type == 44) { # SSHFP
     4575        my ($algo,$fpt,$fp) = split /\s+/, $val;
     4576
     4577        my $rec = sprintf ":$host:44:\\%0.3o\\%0.3o", $algo, $fpt;
     4578        while (my ($byte) = ($fp =~ /^(..)/) ) {
     4579          $rec .= sprintf "\\%0.3o", hex($byte);
     4580          $fp =~ s/^..//;
     4581        }
     4582        print $datafile "$rec:$ttl:$stamp:$loc\n";
     4583
    45704584      } else {
    45714585        # raw record.  we don't know what's in here, so we ASS-U-ME the user has
Note: See TracChangeset for help on using the changeset viewer.