fix multiple masters

This commit is contained in:
2022-11-01 08:37:32 -04:00
parent 9d58404b7d
commit 1c0ae8137f

14
DDNS.pm
View File

@ -107,16 +107,20 @@ sub _gethosts {
while (<$fh>) {
if ($type) {
if (/^(\S+)\.$type\.private\.invalid\.\s+\d+\s+IN\s+TXT\s+\"(.+)\"$/) {
push (@vh, { zone => $1,
my ($z, $m) = ($1, $2);
$m =~ s/\"//g;
push (@vh, { zone => $z,
type => $type,
master => $2 });
master => $m });
}
} else {
# Querying everything
if (/^(\S+)\.(\S+)\.private\.invalid\.\s+\d+\s+IN\s+TXT\s+\"(.+)\"$/) {
push (@vh, { zone => $1,
type => $2,
master => $3 });
my ($z, $t, $m) = ($1, $2, $3);
$m =~ s/\"//g;
push (@vh, { zone => $z,
type => $t,
master => $m });
}
}
}