projects
/
mirror
/
dsa-nagios.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sibelius cleanup: upgrade, drop varnish
[mirror/dsa-nagios.git]
/
dsa-nagios-checks
/
checks
/
dsa-check-zone-rrsig-expiration
diff --git
a/dsa-nagios-checks/checks/dsa-check-zone-rrsig-expiration
b/dsa-nagios-checks/checks/dsa-check-zone-rrsig-expiration
index
3d5d584
..
1b54970
100755
(executable)
--- a/
dsa-nagios-checks/checks/dsa-check-zone-rrsig-expiration
+++ b/
dsa-nagios-checks/checks/dsa-check-zone-rrsig-expiration
@@
-279,7
+279,7
@@
sub output {
}
sub usage {
}
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;
}
exit 3;
}
@@
-309,7
+309,7
@@
sub get_nslist {
my @nslist;
foreach my $rr ($pkt->authority, $pkt->answer) {
next unless ($rr->type eq 'NS');
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;
push(@nslist, lc($rr->nsdname));
}
return @nslist;