mirror of
https://github.com/munin-monitoring/contrib.git
synced 2018-11-08 00:59:34 +01:00
b3ac512550
- in one case there was a typo in the filename (inDodes instead of inodes) - in the other two cases, make the naming consistent.
92 lines
1.8 KiB
Perl
Executable File
92 lines
1.8 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# -*- perl -*-
|
|
|
|
=head1 NAME
|
|
|
|
lustre_df_abs - Plugin to monitor Lustre 1.8.x (cluster FS) storage objects MDT,OST's
|
|
usage in TB and/or G
|
|
|
|
=head1 CONFIGURATION
|
|
Path to lfs binary. Configuration is done through $lfs_bin variable, for example
|
|
by default $lfs_bin = "/usr/bin/lfs", see below.
|
|
|
|
=head1 NOTES
|
|
|
|
Monitoring node - lustre client with mounted lustre
|
|
|
|
=head1 VERSION
|
|
|
|
$Id: lustre_df_abs,v 1.3 2011/03/01 10:39:58 fenix Exp $
|
|
|
|
=head1 AUTHOR
|
|
|
|
Ropchan Sergey <fenix.serega@gmail.com>
|
|
|
|
=head1 LICENSE
|
|
|
|
GPLv2
|
|
|
|
=cut
|
|
|
|
|
|
use Munin::Plugin;
|
|
|
|
my $lfs_bin = "/usr/bin/lfs";
|
|
|
|
if ($ARGV[0] and $ARGV[0] eq "autoconf") {
|
|
if (-r $lfs_bin) {
|
|
print "yes\n";
|
|
exit 0;
|
|
} else {
|
|
print "no ($lfs_bin found)\n";
|
|
exit 0;
|
|
}
|
|
}
|
|
|
|
my @output = `$lfs_bin df`;
|
|
|
|
if ($ARGV[0] and $ARGV[0] eq "config") {
|
|
print "graph_title Lustre cluster storage objects usage in TB\n";
|
|
print "graph_args --base 1024 --lower-limit 0\n";
|
|
print "graph_vlabel TB\n";
|
|
print "graph_category lustre\n";
|
|
|
|
&print_labels;
|
|
|
|
exit 0;
|
|
}
|
|
|
|
&print_values;
|
|
|
|
sub print_labels {
|
|
for $_ (@output) {
|
|
#storage objects
|
|
if (/^\S+\s+\d+\s+(\d+)\s+\d+\s+\d+\%\s+\S+\[(.*)\:(\d+)\]/i) {
|
|
my $name = $2.$3;
|
|
print $name.".label ", $name, "\n";
|
|
print $name.".min 0\n";
|
|
print $name.".cdef ", $name,",1024,*\n";
|
|
}
|
|
|
|
}
|
|
print "summary.label summary", "\n";
|
|
print "summary.min 0\n";
|
|
print "summary.cdef summary,1024,*\n";
|
|
}
|
|
|
|
sub print_values {
|
|
for $_ (@output) {
|
|
#storage objects
|
|
if (/^\S+\s+\d+\s+(\d+)\s+\d+\s+\d+\%\s+\S+\[(.*)\:(\d+)\]/i) {
|
|
my $name = $2.$3;
|
|
print $name.".value ", $1, "\n";
|
|
}
|
|
|
|
#summanary info
|
|
if (/^filesystem summary\:\s+\d+\s+(\d+)\s+\d+\s+\d+\%\s+\S+\s/i) {
|
|
print "summary.value ", $1, "\n";
|
|
}
|
|
}
|
|
}
|
|
|