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

Sanity check the types being handled

Browse Source
This commit is contained in:
Matthew Slowe 2021-06-12 16:54:31 +01:00
parent 3bbcf795d9
commit 9351ba62c1
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
manage-dns.pl
View File

@ -23,6 +23,27 @@ sub _info {
print STDERR "\n";
}
my %supported_types = (
A => "yes",
AAAA => "yes",
CAA => "not yet implemented",
CNAME => "yes",
DNAME => "not yet implemented",
MX => "yes",
NS => "yes",
PTR => "not yet implemented",
SSHFP => "not yet implemented",
SRV => "yes",
TLSA => "not yet implemented",
TXT => "yes",
);
sub is_unsupported($) {
my $type = shift;
return "Unknown type" unless defined $supported_types{$type};
return undef if $supported_types{$type} eq 'yes';
return $supported_types{$type};
}
if($ENV{DEBUG} or $in->[0]->{debug}) {
use LWP::Debug qw(+);
$ua->add_handler(
@ -108,6 +129,11 @@ sub reformat_data($$) {
sub check_and_update_record($$$$$) {
my ($zone, $data, $type, $host, $value) = @_;
if(my $err = is_unsupported($type)) {
die ("Unable to process $host $type: $err");
}
# _info("Considering %s %s %s", $host, $type, $value);
my $record = find_record($data, $type, $host, $value);
my $url = $in->[0]->{defaults}->{api} . "/$zone/records/$host/$type";