tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

enh(bind9/web): add counters, and some rewrites (#2788)

This commit is contained in:
Benoit Poulet 2021-05-17 08:59:03 +02:00 committed by GitHub
parent 250e391136
commit c1e15de68b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 193 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
apps/bind9/web/custom/api.pm
View File

@ -38,7 +38,7 @@ sub new {
$options{output}->add_option_msg(short_msg => "Class Custom: Need to specify 'options' argument.");
$options{output}->option_exit();
}
if (!defined($options{noptions})) {
$options{options}->add_options(arguments => {
'hostname:s' => { name => 'hostname' },
@ -79,7 +79,7 @@ sub check_options {
$self->{unknown_status} = (defined($self->{option_results}->{unknown_status})) ? $self->{option_results}->{unknown_status} : undef;
$self->{warning_status} = (defined($self->{option_results}->{warning_status})) ? $self->{option_results}->{warning_status} : undef;
$self->{critical_status} = (defined($self->{option_results}->{critical_status})) ? $self->{option_results}->{critical_status} : undef;
if (!defined($self->{hostname})) {
$self->{output}->add_option_msg(short_msg => "Need to specify hostname option.");
$self->{output}->option_exit();
@ -116,7 +116,7 @@ sub settings {
sub load_response {
my ($self, %options) = @_;
if ($self->{response_type} eq 'xml') {
centreon::plugins::misc::mymodule_load(
output => $self->{output}, module => 'XML::XPath',
@ -137,7 +137,7 @@ sub request {
$self->settings();
my $response = $self->{http}->request();
my ($content_type) = $self->{http}->get_header(name => 'Content-Type');
if (!defined($content_type) || $content_type !~ /(xml|json)/i) {
$self->{output}->add_option_msg(short_msg => "content-type not set");
@ -149,7 +149,7 @@ sub request {
$self->{output}->add_option_msg(short_msg => "json format unsupported");
$self->{output}->option_exit();
}
$self->load_response(response => $response);
my $method = $self->can("get_api_version_$self->{response_type}");
if (!defined($method)) {
@ -161,13 +161,13 @@ sub request {
$self->{output}->add_option_msg(short_msg => "cannot get api version");
$self->{output}->option_exit();
}
$self->{api_version} = $1;
}
sub get_api_version_xml {
my ($self, %options) = @_;
eval {
my $nodesets = $self->{xpath_response}->find('//statistics/@version');
my $node = $nodesets->get_node(1);
@ -176,14 +176,14 @@ sub get_api_version_xml {
if ($@) {
$self->{output}->add_option_msg(short_msg => "Cannot lookup: $@");
$self->{output}->option_exit();
}
}
}
sub load_memory_xml_v3 {
my ($self, %options) = @_;
my $memory = {};
my $nodesets = $self->{xpath_response}->find('//memory/summary');
my $node_memory = $nodesets->get_node(1);
foreach my $node ($node_memory->getChildNodes()) {
@ -196,13 +196,13 @@ sub load_memory_xml_v3 {
$memory->{in_use} = $node->string_value;
}
}
return $memory;
}
sub load_memory_xml_v2 {
my ($self, %options) = @_;
return $self->load_memory_xml_v3();
}
@ -224,13 +224,13 @@ sub load_zones_xml_v3 {
}
}
}
return $zones;
}
sub load_zones_xml_v2 {
my ($self, %options) = @_;
my $zones = {};
my $nodesets = $self->{xpath_response}->find('//views//zones/zone');
foreach my $node ($nodesets->get_nodelist()) {
@ -248,7 +248,7 @@ sub load_zones_xml_v2 {
}
}
}
if (defined($name)) {
$zones->{$name}->{counters}->{rcode} = $counters;
}
@ -259,7 +259,7 @@ sub load_zones_xml_v2 {
sub load_server_xml_v3 {
my ($self, %options) = @_;
my $server = { counters => { } };
my $nodesets = $self->{xpath_response}->find('//server//counters');
foreach my $node ($nodesets->get_nodelist()) {
@ -272,63 +272,63 @@ sub load_server_xml_v3 {
$server->{counters}->{$type}->{$counter_name} = $counter_node->string_value;
}
}
return $server;
}
sub load_server_xml_v2 {
my ($self, %options) = @_;
my $server = { counters => { opcode => {}, nsstat => {}, qtype => {} } };
my $nodesets = $self->{xpath_response}->find('//server//opcode');
foreach my $node ($nodesets->get_nodelist()) {
my ($name, $value);
foreach my $counter_node ($node->getChildNodes()) {
my $tag_name = $counter_node->getLocalName();
next if (!defined($tag_name));
$name = $counter_node->string_value if ($tag_name eq 'name');
$value = $counter_node->string_value if ($tag_name eq 'counter');
}
if (defined($name) && defined($value)) {
$server->{counters}->{opcode}->{$name} = $value;
}
}
$nodesets = $self->{xpath_response}->find('//server//rdtype');
foreach my $node ($nodesets->get_nodelist()) {
my ($name, $value);
foreach my $counter_node ($node->getChildNodes()) {
my $tag_name = $counter_node->getLocalName();
next if (!defined($tag_name));
$name = $counter_node->string_value if ($tag_name eq 'name');
$value = $counter_node->string_value if ($tag_name eq 'counter');
}
if (defined($name) && defined($value)) {
$server->{counters}->{qtype}->{$name} = $value;
}
}
$nodesets = $self->{xpath_response}->find('//server//nsstat');
foreach my $node ($nodesets->get_nodelist()) {
my ($name, $value);
foreach my $counter_node ($node->getChildNodes()) {
my $tag_name = $counter_node->getLocalName();
next if (!defined($tag_name));
$name = $counter_node->string_value if ($tag_name eq 'name');
$value = $counter_node->string_value if ($tag_name eq 'counter');
}
if (defined($name) && defined($value)) {
$server->{counters}->{nsstat}->{$name} = $value;
}
}
return $server;
}
@ -341,7 +341,7 @@ sub get_memory {
$self->{output}->add_option_msg(short_msg => "method 'load_memory_$self->{response_type}_v$self->{api_version}' unsupported");
$self->{output}->option_exit();
}
my $memory = $self->$method();
if (!defined($memory->{in_use})) {
$self->{output}->add_option_msg(short_msg => "cannot find memory information");
@ -360,7 +360,7 @@ sub get_zones {
$self->{output}->add_option_msg(short_msg => "method 'load_zones_$self->{response_type}_v$self->{api_version}' unsupported");
$self->{output}->option_exit();
}
my $zones = $self->$method();
if (scalar(keys %{$zones}) == 0) {
$self->{output}->add_option_msg(short_msg => "cannot find zones information");
@ -379,7 +379,7 @@ sub get_server {
$self->{output}->add_option_msg(short_msg => "method 'load_server_$self->{response_type}_v$self->{api_version}' unsupported");
$self->{output}->option_exit();
}
my $server = $self->$method();
if (scalar(keys %{$server->{counters}}) == 0) {
$self->{output}->add_option_msg(short_msg => "cannot find server information");

209
apps/bind9/web/mode/serverusage.pm
View File

@ -26,76 +26,189 @@ use strict;
use warnings;
use Digest::MD5 qw(md5_hex);
my $default_filter_counters = "opcode-query|opcode-iquery|opcode-status|opcode-notify|opcode-update";
$default_filter_counters .= "|qtype-a|qtype-aaaa|qtype-cname|qtype-mx|qtype-txt|qtype-soa|qtype-ptr";
$default_filter_counters .= "|nsstat-requestv4|nsstat-requestv6";
# From Bind 9.11.5 counter list
# opcode = completed
# rcode = not started
# qtype = completed
# nsstat = completed
# zonestat = completed
# resstat = not started
# Counter name, message, nlabel
my @map = (
['opcode-query', 'opcode query : %s', 'opcode.query.count'],
['opcode-iquery', 'opcode iquery : %s', 'opcode.iquery.count'],
['opcode-status', 'opcode status : %s', 'opcode.status.count'],
['opcode-notify', 'opcode notify : %s', 'opcode.notify.count'],
['opcode-update', 'opcode update : %s', 'opcode.update.count'],
['qtype-a', 'qtype A : %s', 'qtype.a.count'],
['qtype-ns', 'qtype NS : %s', 'qtype.ns.count'],
['qtype-cname', 'qtype CNAME : %s', 'qtype.cname.count'],
['qtype-soa', 'qtype SOA : %s', 'qtype.soa.count'],
['qtype-null', 'qtype NULL : %s', 'qtype.null.count'],
['qtype-wks', 'qtype WKS : %s', 'qtype.wks.count'],
['qtype-ptr', 'qtype PTR : %s', 'qtype.ptr.count'],
['qtype-hinfo', 'qtype HINFO : %s', 'qtype.hinfo.count'],
['qtype-mx', 'qtype MX : %s', 'qtype.mx.count'],
['qtype-txt', 'qtype TXT : %s', 'qtype.txt.count'],
['qtype-aaaa', 'qtype AAAA : %s', 'qtype.aaaa.count'],
['qtype-srv', 'qtype SRV : %s', 'qtype.srv.count'],
['qtype-naptr', 'qtype NAPTR : %s', 'qtype.naptr.count'],
['qtype-a6', 'qtype A6 : %s', 'qtype.a6.count'],
['qtype-ds', 'qtype DS : %s', 'qtype.ds.count'],
['qtype-rrsig', 'qtype RRSIG : %s', 'qtype.rrsig.count'],
['qtype-nsec', 'qtype NSEC : %s', 'qtype.nsec.count'],
['qtype-dnskey', 'qtype DNSKEY : %s', 'qtype.dnskey.count'],
['qtype-tlsa', 'qtype TLSA : %s', 'qtype.tlsa.count'],
['qtype-cds', 'qtype CDS : %s', 'qtype.cds.count'],
['qtype-type65', 'qtype TYPE65 : %s', 'qtype.type65.count'],
['qtype-spf', 'qtype SPF : %s', 'qtype.spf.count'],
['qtype-axfr', 'qtype AXFR : %s', 'qtype.axfr.count'],
['qtype-any', 'qtype ANY : %s', 'qtype.any.count'],
['qtype-others', 'qtype Others : %s', 'qtype.others.count'],
['nsstat-requestv4', 'nsstat Request v4 : %s', 'nsstat.requestv4.count'],
['nsstat-requestv6', 'nsstat Request v6 : %s', 'nsstat.requestv6.count'],
['nsstat-reqedns0', 'nsstat ReqEdns0 : %s', 'nsstat.reqedns0.count'],
['nsstat-reqbadednsver', 'nsstat ReqBadEDNSVer : %s', 'nsstat.reqbadednsver.count'],
['nsstat-reqtsig', 'nsstat ReqTSIG : %s', 'nsstat.reqtsig.count'],
['nsstat-reqsig0', 'nsstat ReqSIG0 : %s', 'nsstat.reqsig0.count'],
['nsstat-reqbadsig', 'nsstat ReqBadSIG : %s', 'nsstat.reqbadsig.count'],
['nsstat-reqtcp', 'nsstat ReqTCP : %s', 'nsstat.reqtcp.count'],
['nsstat-authqryrej', 'nsstat AuthQryRej : %s', 'nsstat.authqryrej.count'],
['nsstat-recqryrej', 'nsstat RecQryRej : %s', 'nsstat.recqryrej.count'],
['nsstat-xfrrej', 'nsstat XfrRej : %s', 'nsstat.xfrrej.count'],
['nsstat-updaterej', 'nsstat UpdateRej : %s', 'nsstat.updaterej.count'],
['nsstat-response', 'nsstat Response : %s', 'nsstat.response.count'],
['nsstat-truncatedresp', 'nsstat TruncatedResp : %s', 'nsstat.truncatedresp.count'],
['nsstat-respedns0', 'nsstat RespEDNS0 : %s', 'nsstat.respedns0.count'],
['nsstat-resptsig', 'nsstat RespTSIG : %s', 'nsstat.resptsig.count'],
['nsstat-respsig0', 'nsstat RespSIG0 : %s', 'nsstat.respsig0.count'],
['nsstat-qrysuccess', 'nsstat QrySuccess : %s', 'nsstat.qrysuccess.count'],
['nsstat-qryauthans', 'nsstat QryAuthAns : %s', 'nsstat.qryauthans.count'],
['nsstat-qrynoauthans', 'nsstat QryNoauthAns : %s', 'nsstat.qrynoauthans.count'],
['nsstat-qryreferral', 'nsstat QryReferral : %s', 'nsstat.qryreferral.count'],
['nsstat-qrynxrrset', 'nsstat QryNxrrset : %s', 'nsstat.qrynxrrset.count'],
['nsstat-qryservfail', 'nsstat QrySERVFAIL : %s', 'nsstat.qryservfail.count'],
['nsstat-qryformerr', 'nsstat QryFORMERR : %s', 'nsstat.qryformerr.count'],
['nsstat-qrynxdomain', 'nsstat QryNXDOMAIN : %s', 'nsstat.qrynxdomain.count'],
['nsstat-qryrecursion', 'nsstat QryRecursion : %s', 'nsstat.qryrecursion.count'],
['nsstat-qryduplicate', 'nsstat QryDuplicate : %s', 'nsstat.qryduplicate.count'],
['nsstat-qrydropped', 'nsstat QryDropped : %s', 'nsstat.qrydropped.count'],
['nsstat-qryfailure', 'nsstat QryFailure : %s', 'nsstat.qryfailure.count'],
['nsstat-xfrreqdone', 'nsstat XfrReqDone : %s', 'nsstat.xfrreqdone.count'],
['nsstat-updatereqfwd', 'nsstat UpdateReqFwd : %s', 'nsstat.updatereqfwd.count'],
['nsstat-updaterespfwd', 'nsstat UpdateRespFwd : %s', 'nsstat.updaterespfwd.count'],
['nsstat-updatefwdfail', 'nsstat UpdateFwdFail : %s', 'nsstat.updatefwdfail.count'],
['nsstat-updatedone', 'nsstat UpdateDone : %s', 'nsstat.updatedone.count'],
['nsstat-updatefail', 'nsstat UpdateFail : %s', 'nsstat.updatefail.count'],
['nsstat-updatebadprereq', 'nsstat UpdateBadPrereq : %s', 'nsstat.updatebadprereq.count'],
['nsstat-recursclients', 'nsstat RecursClients : %s', 'nsstat.recursclients.count'],
['nsstat-dns64', 'nsstat RateDropped : %s', 'nsstat.ratedropped.count'],
['nsstat-ratedropped', 'nsstat RateDropped : %s', 'nsstat.ratedropped.count'],
['nsstat-rateslipped', 'nsstat RateSlipped : %s', 'nsstat.rateslipped.count'],
['nsstat-rpzrewrites', 'nsstat RPZRewrites : %s', 'nsstat.rpzrewrites.count'],
['nsstat-qryudp', 'nsstat QryUDP : %s', 'nsstat.qryudp.count'],
['nsstat-qrytcp', 'nsstat QryTCP : %s', 'nsstat.qrytcp.count'],
['nsstat-nsidopt', 'nsstat NSIDOpt : %s', 'nsstat.nsidopt.count'],
['nsstat-expireopt', 'nsstat ExpireOpt : %s', 'nsstat.expireopt.count'],
['nsstat-otheropt', 'nsstat OtherOpt : %s', 'nsstat.otheropt.count'],
['nsstat-cookiein', 'nsstat CookieIn : %s', 'nsstat.cookiein.count'],
['nsstat-cookienew ', 'nsstat CookieNew : %s', 'nsstat.cookienew .count'],
['nsstat-cookiebadsize', 'nsstat CookieBadSize : %s', 'nsstat.cookiebadsize.count'],
['nsstat-cookiebadtime', 'nsstat CookieBadTime : %s', 'nsstat.cookiebadtime.count'],
['nsstat-cookienomatch', 'nsstat CookieNoMatch : %s', 'nsstat.cookienomatch.count'],
['nsstat-cookiematch', 'nsstat CookieMatch : %s', 'nsstat.cookiematch.count'],
['nsstat-ecsopt', 'nsstat ECSOpt : %s', 'nsstat.ecsopt.count'],
['nsstat-qrynxredir', 'nsstat QryNXRedir : %s', 'nsstat.qrynxredir.count'],
['nsstat-qrynxredirrlookup', 'nsstat QryNXRedirRLookup : %s', 'nsstat.qrynxredirrlookup.count'],
['nsstat-qrybadcookie', 'nsstat QryBADCOOKIE : %s', 'nsstat.qrybadcookie.count'],
['nsstat-keytagopt', 'nsstat KeyTagOpt : %s', 'nsstat.keytagopt.count'],
['zonestat-keytagopt', 'zonestat NotifyOutv4 : %s', 'zonestat.notifyoutv4.count'],
['zonestat-notifyoutv6', 'zonestat NotifyOutv6 : %s', 'zonestat.notifyoutv6.count'],
['zonestat-notifyinv4', 'zonestat NotifyInv4 : %s', 'zonestat.notifyinv4.count'],
['zonestat-notifyinv6', 'zonestat NotifyInv6 : %s', 'zonestat.notifyinv6.count'],
['zonestat-notifyrej', 'zonestat NotifyRej : %s', 'zonestat.notifyrej.count'],
['zonestat-soaoutv4', 'zonestat SOAOutv4 : %s', 'zonestat.soaoutv4.count'],
['zonestat-soaoutv6', 'zonestat SOAOutv6 : %s', 'zonestat.soaoutv6.count'],
['zonestat-axfrreqv4', 'zonestat AXFRReqv4 : %s', 'zonestat.axfrreqv4.count'],
['zonestat-axfrreqv6', 'zonestat AXFRReqv6 : %s', 'zonestat.axfrreqv6.count'],
['zonestat-ixfrreqv4', 'zonestat IXFRReqv4 : %s', 'zonestat.ixfrreqv4.count'],
['zonestat-ixfrreqv6', 'zonestat IXFRReqv6 : %s', 'zonestat.ixfrreqv6.count'],
['zonestat-xfrsuccess', 'zonestat XfrSuccess : %s', 'zonestat.xfrsuccess.count'],
['zonestat-xfrfail', 'zonestat XfrFail : %s', 'zonestat.xfrfail.count'],
);
sub set_counters {
my ($self, %options) = @_;
my ($self, %options) = @_;
$self->{maps_counters_type} = [
{ name => 'server', type => 0, skipped_code => { -1 => 1, -10 => 1, 11 => -1 } }
];
$self->{maps_counters}->{server} = [];
$self->{maps_counters_type} = [
{ name => 'server', type => 0, skipped_code => { -1 => 1, -10 => 1, 11 => -1 } }
];
my @map = (
['opcode_query', 'opcode query : %s', 'opcode-query'],
['opcode_iquery', 'opcode iquery : %s', 'opcode-iquery'],
['opcode_status', 'opcode status : %s', 'opcode-status'],
['opcode_notify', 'opcode notify : %s', 'opcode-notify'],
['opcode_update', 'opcode update : %s', 'opcode-update'],
['qtype_a', 'qtype A : %s', 'qtype-a'],
['qtype_cname', 'qtype CNAME : %s', 'qtype-cname'],
['qtype_mx', 'qtype MX : %s', 'qtype-mx'],
['qtype_txt', 'qtype TXT : %s', 'qtype-txt'],
['qtype_soa', 'qtype SOA : %s', 'qtype-soa'],
['qtype_ptr', 'qtype PTR : %s', 'qtype-ptr'],
['qtype_ns', 'qtype NS : %s', 'qtype-ns'],
['nsstat_requestv4', 'nsstat request v4 : %s', 'nsstat-requestv4'],
['nsstat_requestv6', 'nsstat request v6 : %s', 'nsstat-requestv6'],
);
$self->{maps_counters}->{server} = [];
for (my $i = 0; $i < scalar(@map); $i++) {
my $perf_label = $map[$i]->[2];
$perf_label =~ s/-/_/g;
push @{$self->{maps_counters}->{server}}, { label => $map[$i]->[2], display_ok => 0, set => {
key_values => [ { name => $map[$i]->[0], diff => 1 } ],
output_template => $map[$i]->[1],
perfdatas => [
{ label => $perf_label, value => $map[$i]->[0] , template => '%s', min => 0 },
],
}
};
}
for (my $i = 0; $i < scalar(@map); $i++) {
my $perf_label = $map[$i]->[0];
$perf_label =~ s/-/_/g;
push @{$self->{maps_counters}->{server}}, {
label => $map[$i]->[0], nlabel => => $map[$i]->[2], display_ok => 0,
set => {
key_values => [ { name => $perf_label, diff => 1 } ],
output_template => $map[$i]->[1],
perfdatas => [
{ label => $perf_label, value => $perf_label , template => '%s', min => 0 },
],
}
};
}
}
sub new {
my ($class, %options) = @_;
my $self = $class->SUPER::new(package => __PACKAGE__, %options, statefile => 1);
bless $self, $class;
$options{options}->add_options(arguments => {
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::check_options(%options);
if ( ! defined($self->{option_results}->{filter_counters}) ) {
$self->{option_results}->{filter_counters} = $default_filter_counters;
}
}
sub manage_selection {
my ($self, %options) = @_;
my $result = $options{custom}->get_server();
$self->{server} = { };
# Not present in response if no request on the server
foreach ('a', 'cname', 'mx', 'txt', 'soa', 'ptr', 'ns', 'any') {
$self->{server}->{'qtype_' . $_} = 0;
# Init for all vars, some are not present in response if no request on the server
for (my $i = 0; $i < scalar(@map); $i++) {
my $perf_label = $map[$i]->[0];
$perf_label =~ s/-/_/g;
$self->{server}->{$perf_label} = 0;
}
$self->{output}->output_add(severity => 'OK',
short_msg => 'All bind9 counters are ok');
short_msg => 'All Bind 9 counters are ok');
foreach my $type (keys %{$result->{counters}}) {
foreach my $counter (keys %{$result->{counters}->{$type}}) {
$self->{server}->{lc($type) . '_' . lc($counter)} = $result->{counters}->{$type}->{$counter};
}
}
$self->{cache_name} = "bind9_" . $self->{mode} . '_' . $options{custom}->get_uniq_id() . '_' .
(defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all'));
}
@ -106,21 +219,21 @@ __END__
=head1 MODE
Check bind global server usage.
Check Bind global server usage.
=over 8
=item B<--filter-counters>
Only display some counters (regexp can be used).
Example: --filter-counters='request'
Example: --filter-counters='nsstat-requestv6'
Show the full list with --list-counters.
=item B<--warning-*> B<--critical-*>
Thresholds.
Can be: 'opcode-query', 'opcode-iquery', 'opcode-status', 'opcode-notify', 'opcode-update',
'qtype-a', 'qtype-cname', 'qtype-mx', 'qtype-txt', 'qtype-soa', 'qtype-ptr', 'qtype-ns', 'qtype-any',
'nsstat-requestv4', 'nsstat-requestv6'.
Can be any of the selected counters.
=back

2
apps/bind9/web/plugin.pm
View File

@ -29,7 +29,7 @@ sub new {
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
bless $self, $class;
$self->{version} = '1.0';
$self->{version} = '1.1';
%{$self->{modes}} = (
'memory-usage' => 'apps::bind9::web::mode::memoryusage',
'server-usage' => 'apps::bind9::web::mode::serverusage',