Mirrors/Munin-Contrib
1
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2025-07-22 02:51:03 +00:00
Code Issues Releases Wiki Activity

Order zfs_space from most used to least used

Browse source
This commit is contained in:
Kienan Stewart 2018-09-21 17:17:37 -04:00
parent 2494fea7eb
commit 5a1250b096
No known key found for this signature in database
GPG key ID: 075A846E78FE47EA
1 changed files with 21 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

26
plugins/zfs/zfs_space_
View file

@ -50,15 +50,16 @@ my $zpool;
my $zspace; my $zspace;
my $zpoolexec = (defined($ENV{'zpoolexec'}) ? $ENV{'zpoolexec'} : '/sbin/zpool'); my $zpoolexec = (defined($ENV{'zpoolexec'}) ? $ENV{'zpoolexec'} : '/sbin/zpool');
my $zfsexec = (defined($ENV{'zfsexec'}) ? $ENV{'zfsexec'} : '/sbin/zfs'); my $zfsexec = (defined($ENV{'zfsexec'}) ? $ENV{'zfsexec'} : '/sbin/zfs');
my $space; my @space = ();
sub do_collect { sub do_collect {
my $sget="$zfsexec $zspace -H -p -s used $zpool"; my $sget="$zfsexec $zspace -H -p -S used $zpool";
foreach my $line (split(/\n/, `$sget` )) { foreach my $line (split(/\n/, `$sget` )) {
my ($entity_type, $entity_name, $used, $quota) = (split(/\t/,$line)); my ($entity_type, $entity_name, $used, $quota) = (split(/\t/,$line));
$space->{$entity_name} = $used; my %entry = ( name => $entity_name, used => $used);
push @space, \%entry
} }
} }
@ -67,13 +68,22 @@ sub do_config {
print "graph_title ZFS $zspace usage for zpool $zpool\n"; print "graph_title ZFS $zspace usage for zpool $zpool\n";
print "graph_info This graph shows used bytes by $zspace of zpool $zpool\n"; print "graph_info This graph shows used bytes by $zspace of zpool $zpool\n";
print "graph_args --base 1024 --lower-limit 0 --rigid\n"; print "graph_args --base 1024 --lower-limit 0 --rigid\n";
my @order;
for my $i ( 0 .. $#space ) {
my $user = '';
$user = $space[$i]->{name};
push @order, "${user}_space";
}
printf "graph_order @order\n";
print "graph_vlabel bytes \n"; print "graph_vlabel bytes \n";
print "graph_category fs\n"; print "graph_category fs\n";
my $zspace_description = 'user'; my $zspace_description = 'user';
if ( $space eq 'groupspace' ) { if ( $zspace eq 'groupspace' ) {
$zspace_description = 'group' $zspace_description = 'group'
} }
foreach my $user ( keys %{$space}) { for my $x ( 0 .. $#space ) {
my $user = '';
$user = $space[$x]->{name};
print "${user}_space.label $user\n"; print "${user}_space.label $user\n";
print "${user}_space.type GAUGE\n"; print "${user}_space.type GAUGE\n";
print "${user}_space.min 0\n"; print "${user}_space.min 0\n";
@ -83,8 +93,10 @@ sub do_config {
} }
sub do_fetch { sub do_fetch {
foreach my $user ( keys %{$space}) { for my $i ( 0 .. $#space ) {
print "${user}_space.value $space->{$user}\n" my $user = $space[$i]->{name};
my $used = $space[$i]->{used};
print "${user}_space.value ${used}\n";
} }
} }