fix multiple masters
This commit is contained in:
14
DDNS.pm
14
DDNS.pm
@ -107,16 +107,20 @@ sub _gethosts {
|
|||||||
while (<$fh>) {
|
while (<$fh>) {
|
||||||
if ($type) {
|
if ($type) {
|
||||||
if (/^(\S+)\.$type\.private\.invalid\.\s+\d+\s+IN\s+TXT\s+\"(.+)\"$/) {
|
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,
|
type => $type,
|
||||||
master => $2 });
|
master => $m });
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
# Querying everything
|
# Querying everything
|
||||||
if (/^(\S+)\.(\S+)\.private\.invalid\.\s+\d+\s+IN\s+TXT\s+\"(.+)\"$/) {
|
if (/^(\S+)\.(\S+)\.private\.invalid\.\s+\d+\s+IN\s+TXT\s+\"(.+)\"$/) {
|
||||||
push (@vh, { zone => $1,
|
my ($z, $t, $m) = ($1, $2, $3);
|
||||||
type => $2,
|
$m =~ s/\"//g;
|
||||||
master => $3 });
|
push (@vh, { zone => $z,
|
||||||
|
type => $t,
|
||||||
|
master => $m });
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user