- Timestamp:
- 07/11/12 16:38:56 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/DNSDB.pm
r352 r364 4568 4568 } 4569 4569 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 4570 4584 } else { 4571 4585 # 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.