ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

[master] another check5011 bugfix

Browse Source
This commit is contained in:
Evan Hunt
2013-04-16 14:05:25 -07:00
parent 2b5ae1b2a3
commit 09637af24a
1 changed files with 6 additions and 0 deletions
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;
}