projects
/
mirror
/
dsa-nagios.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Stop sending me mail
[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
06c4ecc
..
a624426
100755
(executable)
--- a/
dsa-nagios-checks/checks/dsa-check-zone-rrsig-expiration
+++ b/
dsa-nagios-checks/checks/dsa-check-zone-rrsig-expiration
@@
-41,6
+41,10
@@
# Copyright (c) 2010 Peter Palfrader <peter@palfrader.org>
# - various fixes and cleanups
# - do more than one zone
# Copyright (c) 2010 Peter Palfrader <peter@palfrader.org>
# - various fixes and cleanups
# - do more than one zone
+# Copyright (c) 2012 Peter Palfrader <peter@palfrader.org>
+# - add -s option to configure udp packet size. default changed from 4k to 1k
+# Copyright (c) 2013 Peter Palfrader <peter@palfrader.org>
+# - add -r option to override initial refs.
# usage
# usage
@@
-89,8
+93,8
@@
sub convert_time {
return $ticks;
}
return $ticks;
}
-my %opts = (t=>30);
-getopts('hdt:c:w:', \%opts);
+my %opts = (t=>30
, s=>1024
);
+getopts('hdt:c:w:
s:r:
', \%opts);
usage() unless scalar @ARGV == 1;
usage() if $opts{h};
my $zone = $ARGV[0];
usage() unless scalar @ARGV == 1;
usage() if $opts{h};
my $zone = $ARGV[0];
@@
-119,6
+123,7
@@
k.root-servers.net
l.root-servers.net
m.root-servers.net
);
l.root-servers.net
m.root-servers.net
);
+@refs = split(/\s*,\s*/, $opts{r}) if (defined $opts{r});
$start = [gettimeofday()];
do_recursion();
$start = [gettimeofday()];
do_recursion();
@@
-136,7
+141,7
@@
sub do_recursion {
print STDERR "sending query for $zone RRSIG to $ns\n" if $opts{d};
$res->nameserver($ns);
$res->udp_timeout($opts{t});
print STDERR "sending query for $zone RRSIG to $ns\n" if $opts{d};
$res->nameserver($ns);
$res->udp_timeout($opts{t});
- $res->udppacketsize(
4096
);
+ $res->udppacketsize(
$opts{s}
);
$pkt = $res->send($zone, 'RRSIG');
last if $pkt;
}
$pkt = $res->send($zone, 'RRSIG');
last if $pkt;
}
@@
-281,7
+286,7
@@
sub send_query {
$res->nameserver($server) if $server;
$res->udp_timeout($opts{t});
$res->retry(2);
$res->nameserver($server) if $server;
$res->udp_timeout($opts{t});
$res->retry(2);
- $res->udppacketsize(
4096
);
+ $res->udppacketsize(
$opts{s}
);
my $pkt = $res->send($qname, $qtype);
unless ($pkt) {
$res->usevc(1);
my $pkt = $res->send($qname, $qtype);
unless ($pkt) {
$res->usevc(1);