fix multiple masters
This commit is contained in:
14
DDNS.pm
14
DDNS.pm
@ -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 });
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user