mafoo.org.uk/mythic-beasts-dns-sync
mafoo.org.uk/mythic-beasts-dns-sync
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Handle SSHFP records

Browse Source 
Closes #2
This commit is contained in:
Matthew Slowe 2021-06-19 15:42:11 +01:00
parent 7a3e5e472a
commit 17ff01d066
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
manage-dns.pl
View File

@ -40,7 +40,7 @@ my %supported_types = (
MX => "yes", MX => "yes",
NS => "yes", NS => "yes",
PTR => "yes", PTR => "yes",
SSHFP => "not yet implemented", SSHFP => "yes",
SRV => "yes", SRV => "yes",
TLSA => "not yet implemented", TLSA => "not yet implemented",
TXT => "yes", TXT => "yes",
@ -136,6 +136,11 @@ sub format_record($$$$) {
$record->{caa_property} = $property; $record->{caa_property} = $property;
$record->{caa_tag} = $property; $record->{caa_tag} = $property;
$record->{data} = $data; $record->{data} = $data;
} elsif ($type eq 'SSHFP') {
my ($algo, $keytype, $data) = split(/\s+/, $value);
$record->{sshfp_type} = $keytype;
$record->{sshfp_algorithm} = $algo;
$record->{data} = $data;
} }
return $record; return $record;
@ -158,6 +163,12 @@ sub reformat_data($$) {
$data->{caa_property} || $data->{caa_tag}, $data->{caa_property} || $data->{caa_tag},
$data->{data} $data->{data}
); );
} elsif($type eq 'SSHFP') {
return sprintf('%d %d %s',
$data->{sshfp_algorithm},
$data->{sshfp_type},
$data->{data},
);
} }
return $data->{data}; return $data->{data};