Initial git import
commit
927fa6f817
@ -0,0 +1,178 @@
|
|||||||
|
#!/usr/bin/perl -w
|
||||||
|
# ---
|
||||||
|
|
||||||
|
=head1 NAME
|
||||||
|
|
||||||
|
check_du.pl - Nagios plugin for checking size of directories and files
|
||||||
|
|
||||||
|
=head1 SYNOPSIS
|
||||||
|
|
||||||
|
check_du.pl -P path/pattern [-v] \
|
||||||
|
[-w warning_threshold] [-c critical_threshold]
|
||||||
|
check_du.pl [-h|-V]
|
||||||
|
|
||||||
|
=head1 OPTIONS
|
||||||
|
|
||||||
|
=over 4
|
||||||
|
|
||||||
|
=item -P|--path=expression
|
||||||
|
|
||||||
|
Path expression for calculating size. May be a shell expression like
|
||||||
|
/var/log/*.log
|
||||||
|
|
||||||
|
=item -w|--warning=threshold
|
||||||
|
|
||||||
|
threshold can be max (warn if < 0 or > max), min:max (warn if < min or >
|
||||||
|
max), min: (warn if < min), or @min:max (warn if >= min and <= max). All
|
||||||
|
values must be integer.
|
||||||
|
|
||||||
|
=item -c|--critical=threshold
|
||||||
|
|
||||||
|
see --warning for explanation of threshold format
|
||||||
|
|
||||||
|
=item -t|--timeout=seconds
|
||||||
|
|
||||||
|
timeout after check_du.pl exits.
|
||||||
|
|
||||||
|
=item -v|--verbose
|
||||||
|
|
||||||
|
increases verbosity, specify twice to see the original output from sapinfo.
|
||||||
|
|
||||||
|
=item -V|--version
|
||||||
|
|
||||||
|
print version an exit
|
||||||
|
|
||||||
|
=item -h|--help
|
||||||
|
|
||||||
|
print help message and exit
|
||||||
|
|
||||||
|
=back
|
||||||
|
|
||||||
|
=cut
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
use Nagios::Plugin 0.15;
|
||||||
|
use Getopt::Long qw(:config no_ignore_case bundling);
|
||||||
|
use Pod::Usage;
|
||||||
|
|
||||||
|
my $np = Nagios::Plugin->new( shortname => "CHECK_DU" );
|
||||||
|
my $warn_threshold = '0:';
|
||||||
|
my $crit_threshold = '0:';
|
||||||
|
my $what = '';
|
||||||
|
my $denied = 0;
|
||||||
|
my $size = 0;
|
||||||
|
my $result = UNKNOWN;
|
||||||
|
my $version = 'V1.2/2007-10-21/wob';
|
||||||
|
my $printversion = 0;
|
||||||
|
my $verbose = 0;
|
||||||
|
my $help = 0;
|
||||||
|
my $timeout = 10;
|
||||||
|
my $debug = 0;
|
||||||
|
|
||||||
|
# -- GetOpt
|
||||||
|
GetOptions(
|
||||||
|
"P|path=s" => \$what,
|
||||||
|
"w|warning=s" => \$warn_threshold,
|
||||||
|
"c|critical=s" => \$crit_threshold,
|
||||||
|
"t|timeout=s" => \$timeout,
|
||||||
|
"h|help" => \$help,
|
||||||
|
"V|version" => \$printversion,
|
||||||
|
"v|verbose+" => \$verbose,
|
||||||
|
"d|debug:+" => \$debug,
|
||||||
|
) or pod2usage({ -exitval => UNKNOWN,
|
||||||
|
-verbose => 0,
|
||||||
|
-msg => "*** unknown argument found ***" });
|
||||||
|
|
||||||
|
pod2usage(-verbose => 2,
|
||||||
|
-exitval => UNKNOWN,
|
||||||
|
-output => \*STDOUT,
|
||||||
|
) if ( $help );
|
||||||
|
|
||||||
|
pod2usage(-msg => "\n$0 -- version: $version\n",
|
||||||
|
-verbose => 0,
|
||||||
|
-exitval => UNKNOWN,
|
||||||
|
) if ( $printversion );
|
||||||
|
|
||||||
|
pod2usage(-msg => "*** no path/pattern specified ***",
|
||||||
|
-verbose => 0,
|
||||||
|
-exitval => UNKNOWN,
|
||||||
|
) unless $what;
|
||||||
|
|
||||||
|
# -- Alarm
|
||||||
|
|
||||||
|
$SIG{ALRM} = sub { $np->nagios_die("Timeout reached"); };
|
||||||
|
alarm($timeout);
|
||||||
|
|
||||||
|
# -- thresholds
|
||||||
|
$np->set_thresholds(
|
||||||
|
warning => $warn_threshold,
|
||||||
|
critical => $crit_threshold);
|
||||||
|
|
||||||
|
print "DEBUG: warn= $warn_threshold, crit= $crit_threshold\n" if ($debug);
|
||||||
|
|
||||||
|
# -- main
|
||||||
|
open ( OUT, "LANG=C /usr/bin/du -cs $what 2>&1 |" )
|
||||||
|
or $np->nagios_die( "can't start /usr/bin/du" );
|
||||||
|
|
||||||
|
while (<OUT>) {
|
||||||
|
print "$_" if ($verbose);
|
||||||
|
chomp $_;
|
||||||
|
$denied++ if ( /Permission denied/i );
|
||||||
|
|
||||||
|
if ( /^(\d+)\s+total$/i ) { # last line
|
||||||
|
$size = $1;
|
||||||
|
last;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
close (OUT);
|
||||||
|
|
||||||
|
$np->add_perfdata( label => "size", value => $size,
|
||||||
|
uom => "kB", threshold => $np->threshold() );
|
||||||
|
|
||||||
|
if ( $denied ) {
|
||||||
|
$np->nagios_exit( CRITICAL, "unreadable directories or files");
|
||||||
|
}
|
||||||
|
|
||||||
|
$result = $np->check_threshold( $size );
|
||||||
|
|
||||||
|
alarm(0);
|
||||||
|
$np->nagios_exit( $result, "check size: $size kByte");
|
||||||
|
|
||||||
|
=head1 AUTHOR
|
||||||
|
|
||||||
|
wob (at) swobspace (dot) net
|
||||||
|
|
||||||
|
=head1 KNOWN ISSUES
|
||||||
|
|
||||||
|
may be
|
||||||
|
|
||||||
|
=head1 BUGS
|
||||||
|
|
||||||
|
may be
|
||||||
|
|
||||||
|
=head1 LICENSE
|
||||||
|
|
||||||
|
This program is free software; you can redistribute it and/or modify
|
||||||
|
it under the terms of the GNU General Public License as published by
|
||||||
|
the Free Software Foundation; version 2 of the License (and no
|
||||||
|
later version).
|
||||||
|
|
||||||
|
This program is distributed in the hope that it will be useful,
|
||||||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
GNU General Public License for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the GNU General Public License
|
||||||
|
along with this program; if not, write to the Free Software
|
||||||
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
|
|
||||||
|
=head1 HISTORY
|
||||||
|
|
||||||
|
V1.2/2007-10-21 minor bugfixes (thanks to Ralph Grothe)
|
||||||
|
|
||||||
|
V1.1/2007-10-07 timeout added
|
||||||
|
|
||||||
|
V1.0/2007-01-29 inital version for linux-magazin.de
|
||||||
|
|
||||||
|
=cut
|
||||||
Loading…
Reference in New Issue