}
sub usage {
- print STDERR "usage: $0 [-d] [-w=<warn>] [-c=<crit>] [-t=<timeout>] <zone>\n";
+ print STDERR "usage: $0 [-d] [-w=<warn>] [-c=<crit>] [-t=<timeout>] [-r=<initialns1>[,<initialns2>[,..]]] [-s=<packet-size>] <zone>\n";
exit 3;
}
my @nslist;
foreach my $rr ($pkt->authority, $pkt->answer) {
next unless ($rr->type eq 'NS');
- next unless ($rr->name eq $zone);
+ next unless lc($rr->name) eq lc($zone);
push(@nslist, lc($rr->nsdname));
}
return @nslist;