mirror/librenms-librenms-agent
1
0
Fork 0
mirror of https://github.com/librenms/librenms-agent.git synced 2024-05-09 09:54:52 +00:00
Code Releases Activity

freshly initilized ZFS pulls that are not in use don't have a $data_demand_total

Browse Source
This commit is contained in:
Zane C. Bowers-Hadley
2019-03-17 05:55:33 -05:00
parent 3ddb1d6be6
commit 3ce06d6def
1 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
snmp/zfs-freebsd
View File

@ -51,7 +51,7 @@ use Getopt::Std;
$Getopt::Std::STANDARD_HELP_VERSION = 1;
sub main::VERSION_MESSAGE {
print "FreeBSD ZFS stats extend 0.0.0\n";
print "FreeBSD ZFS stats extend 0.2.0\n";
}
sub main::HELP_MESSAGE {
@ -157,7 +157,10 @@ my $real_hits = $mfu_hits + $mru_hits;
my $cache_hit_percent = $arc_hits / $arc_accesses_total * 100;
my $cache_miss_percent = $arc_misses / $arc_accesses_total * 100;
my $actual_hit_percent = $real_hits / $arc_accesses_total * 100;
my $data_demand_percent = $demand_data_hits / $demand_data_total * 100;
my $data_demand_percent = 'U';
if ( $demand_data_total != 0 ){
$data_demand_percent = $demand_data_hits / $demand_data_total * 100;
}
my $data_prefetch_percent;
if ( $prefetch_data_total != 0 ) {
@ -239,11 +242,11 @@ while ( defined( $pools[$pools_int] ) ) {
my $pool=$pools[$pools_int];
$pool =~ s/\t/,/g;
$pool =~ s/\,\-\,/\,0\,/g;
$pool =~ s/\,\-\,\-\,/\,0\,0\,/g;
$pool =~ s/\%//g;
$pool =~ s/\,([0-1\.]*)x\,/,$1,/;
( $newPool{name}, $newPool{size}, $newPool{alloc}, $newPool{free}, $newPool{expandsz}, $newPool{frag}, $newPool{cap}, $newPool{dedup} )=split(/\,/, $pool);
( $newPool{name}, $newPool{size}, $newPool{alloc}, $newPool{free}, $newPool{ckpoint}, $newPool{expandsz}, $newPool{frag}, $newPool{cap}, $newPool{dedup} )=split(/\,/, $pool);
push(@toShoveIntoJSON, \%newPool);
@ -251,13 +254,19 @@ while ( defined( $pools[$pools_int] ) ) {
}
$tojson{pools}=\@toShoveIntoJSON;
my %head_hash;
$head_hash{'data'}=\%tojson;
$head_hash{'version'}=2;
$head_hash{'error'}=0;
$head_hash{'errorString'}='';
my $j=JSON->new;
if ( $opts{p} ){
$j->pretty(1);
}
print $j->encode( \%tojson );
print $j->encode( \%head_hash );
if (! $opts{p} ){
print "\n";