mirrors
/
Monitorix
mirror of https://github.com/mikaku/Monitorix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed some bugs when collecting data in BIND version 9.9+

This commit is contained in:
Jordi Sanfeliu 2013-09-26 09:03:21 +02:00
parent a2edbef5f6
commit fb77bba5ea
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/bind.pm
View File

@ -259,9 +259,9 @@ sub bind_update {
my $data = XMLin($response->content);
my $value;
# BIND v9.9+ has different statistics layout than BIND v9.5+
# attempt first to get stats from a BIND v9.9+
if(!($value = $data->{statistics}->{version})) {
# BIND v9.9+ has different statistics layout than BIND v9.5+,
# so attempt first to get stats from a BIND v9.9+
if(!($value = $data->{version})) {
# otherwise attempt it on a BIND v9.5+
$value = $data->{bind}->{statistics}->{version};
}
@ -302,7 +302,7 @@ sub bind_update {
$value = $data->{server}->{counters}->[1]->{counter} ;
foreach(keys %{$value}) {
$str = $n . "inq_$_";
$inq{$str} = $value->{$_}->{counter} - ($config->{bind_hist}->{$str} || 0);
$inq{$str} = $value->{$_}->{content} - ($config->{bind_hist}->{$str} || 0);
$inq{$str} = 0 unless $inq{$str} != $value->{$_}->{content};
$inq{$str} /= 60;
$config->{bind_hist}->{$str} = $value->{$_}->{content};
@ -327,7 +327,7 @@ sub bind_update {
$value = $views_default->[0]->{counter};
foreach(keys %{$value}) {
$str = $n . "ouq_$_";
$ouq{$str} = $value->{$_}->{counter} - ($config->{bind_hist}->{$str} || 0);
$ouq{$str} = $value->{$_}->{content} - ($config->{bind_hist}->{$str} || 0);
$ouq{$str} = 0 unless $ouq{$str} != $value->{$_}->{content};
$ouq{$str} /= 60;
$config->{bind_hist}->{$str} = $value->{$_}->{content};
@ -349,7 +349,7 @@ sub bind_update {
$value = $data->{server}->{counters}->[2]->{counter};
foreach(keys %{$value}) {
$str = $n . "ss_$_";
$ss{$str} = $value->{$_}->{counter} - ($config->{bind_hist}->{$str} || 0);
$ss{$str} = $value->{$_}->{content} - ($config->{bind_hist}->{$str} || 0);
$ss{$str} = 0 unless $ss{$str} != $value->{$_}->{content};
$ss{$str} /= 60;
$config->{bind_hist}->{$str} = $value->{$_}->{content};
@ -371,7 +371,7 @@ sub bind_update {
$value = $views_default->[1]->{counter};
foreach(keys %{$value}) {
$str = $n . "rs_$_";
$rs{$str} = $value->{$_}->{counter} - ($config->{bind_hist}->{$str} || 0);
$rs{$str} = $value->{$_}->{content} - ($config->{bind_hist}->{$str} || 0);
$rs{$str} = 0 unless $rs{$str} != $value->{$_}->{content};
$rs{$str} /= 60;
$config->{bind_hist}->{$str} = $value->{$_}->{content};