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 SRV records

Browse Source 
Closes #1
This commit is contained in:
Matthew Slowe 2021-06-12 17:15:14 +01:00
parent dc1a90014a
commit 401db7bda8
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
manage-dns.pl
View File

@ -120,6 +120,13 @@ sub format_record($$$$) {
my ($pri, $data) = split(/\s+/, $value); my ($pri, $data) = split(/\s+/, $value);
$record->{mx_priority} = $pri; $record->{mx_priority} = $pri;
$record->{data} = $data; $record->{data} = $data;
} elsif ($type eq 'SRV') {
# pri weight port data
my ($pri, $weight, $port, $data) = split(/\s+/, $value);
$record->{srv_priority} = $pri;
$record->{srv_weight} = $weight;
$record->{srv_port} = $port;
$record->{data} = $data;
} }
return $record; return $record;
@ -129,6 +136,13 @@ sub reformat_data($$) {
my ($type, $data) = @_; my ($type, $data) = @_;
if($type eq 'MX') { if($type eq 'MX') {
return sprintf('%d %s', $data->{mx_priority}, $data->{data}); return sprintf('%d %s', $data->{mx_priority}, $data->{data});
} elsif($type eq 'SRV') {
return sprintf('%d %d %d %s',
$data->{srv_priority},
$data->{srv_weight},
$data->{srv_port},
$data->{data}
);
} }
return $data->{data}; return $data->{data};