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

Support TLSA records

Browse Source 
Closes: #4
This commit is contained in:
Matthew Slowe 2021-06-19 15:49:54 +01:00
parent 17ff01d066
commit fc2031eb7c
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
manage-dns.pl
View File

@ -42,7 +42,7 @@ my %supported_types = (
PTR => "yes",
SSHFP => "yes",
SRV => "yes",
TLSA => "not yet implemented",
TLSA => "yes",
TXT => "yes",
);
sub is_unsupported($) {
@ -141,6 +141,12 @@ sub format_record($$$$) {
$record->{sshfp_type} = $keytype;
$record->{sshfp_algorithm} = $algo;
$record->{data} = $data;
} elsif ($type eq 'TLSA') {
my ($usage, $selector, $matching, $data) = split(/\s+/, $value);
$record->{tlsa_usage} = $usage;
$record->{tlsa_selector} = $selector;
$record->{tlsa_matching} = $matching;
$record->{data} = $data;
}
return $record;
@ -169,6 +175,13 @@ sub reformat_data($$) {
$data->{sshfp_type},
$data->{data},
);
} elsif($type eq 'TLSA') {
return sprintf('%d %d %d %s',
$data->{tlsa_usage},
$data->{tlsa_selector},
$data->{tlsa_matching},
$data->{data},
);
}
return $data->{data};