upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-06-11 07:19:59 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

[v9_9] another check5011 bugfix

Browse source
This commit is contained in:
Evan Hunt 2013-04-16 14:05:41 -07:00
parent 39210f43d3
commit 36701555d9
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
contrib/check5011.pl
View file

@ -63,6 +63,7 @@ sub digkeys ($) {
}
my $anchor;
my $owner = ".";
while (<>) {
next unless m{^([a-z0-9.-]*)\s+KEYDATA\s+(\d+)\s+(\d+)\s+(\d+)\s+};
my $k = getkey *ARGV, {
@ -71,6 +72,11 @@ while (<>) {
addhd => $3,
removehd => $4,
};
if ($k->{name} eq "") {
$k->{name} = $owner;
} else {
$owner = $k->{name};
}
$k->{name} =~ s{[.]*$}{.};
push @{$anchor->{$k->{name}}}, $k;
}