| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127 |
- #!/usr/bin/perl
- # check_inodes.pl for FreeBSD
- # Designed on FreeBSD 4.6 (although this should not matter)
- # parses df output, splits, and then takes variables
- # df.pl -f mountpoint -w warningnumber -c critical number
- # USE NUMBERS AND NOT PERCENTS FOR wanring and critical values
- # -h is help
- # -v is version
- # Mountpoints:
- # like / or /usr or /var (whatever you mount drives NOT the device names)
- # Andrew Ryder - 20020804 - atr@mrcoffee.org
- use strict;
- use Getopt::Long;
- use vars qw($opt_V $opt_h $opt_w $opt_c $opt_f $verbose $PROGNAME);
- use lib "/usr/local/libexec/nagios" ;
- use utils qw($TIMEOUT %ERRORS &print_revision &support);
- my $df = "/bin/df";
- my $grep = "/usr/bin/grep";
- $PROGNAME="df.pl";
- sub print_help ();
- sub print_usage ();
- $ENV{'PATH'}='';
- $ENV{'BASH_ENV'}='';
- $ENV{'ENV'}='';
- Getopt::Long::Configure('bundling');
- GetOptions
- ("V" => \$opt_V, "version" => \$opt_V,
- "h" => \$opt_h, "help" => \$opt_h,
- "w=s" => \$opt_w, "warning=s" => \$opt_w,
- "c=s" => \$opt_c, "critical=s" => \$opt_c,
- "f=s" => \$opt_f, "filesystem=s" => \$opt_f);
-
- if ($opt_V) {
- print_revision($PROGNAME,'$Revision$ ');
- exit $ERRORS{'OK'};
- }
- if ($opt_h) {
- print_help();
- exit $ERRORS{'OK'};
- }
- ($opt_w) || ($opt_w = shift) || ($opt_w = 50);
- my $warning = $1 if ($opt_w =~ /([0-9]+)/);
- ($opt_c) || ($opt_c = shift) || ($opt_c = 75);
- my $critical = $1 if ($opt_c =~ /([0-9]+)/);
- if ($opt_c < $opt_w) {
- print "Critical offset should be larger than warning offset\n";
- print_usage();
- exit $ERRORS{"UNKNOWN"};
- }
- ($opt_f) || ($opt_f = "/");
- unless (-e $df) {
- print "UNKNOWN: $df is not where df is\n";
- exit $ERRORS{'UNKNOWN'};
- }
- unless (-e $grep) {
- print "UNKNOWN: $grep is not where grep is\n";
- exit $ERRORS{'UNKNOWN'};
- }
- unless (-d $opt_f) {
- print "UNKNOWN: $opt_f is not a mount point\n";
- exit $ERRORS{'UNKNOWN'};
- }
- my $state = $ERRORS{'UNKNOWN'};
- my $answer;
- open(DF, "$df -i $opt_f| $grep -v Filesystem |");
- while (<DF>) {
-
- my ($fs,$onek,$used,$avail,$capacity,$iused,$ifree,$ipercent,$mounted) = split;
- $ipercent =~ s/%//s;
- if ($ipercent > $opt_w) {
- $state = $ERRORS{'WARNING'};
- $answer = "WARNING: $ipercent percent inodes free on $opt_f\n";
- } elsif ($ipercent > $opt_w) {
- $state = $ERRORS{'CRITCAL'};
- $answer = "CRITICAL: $ipercent percent inodes free on $opt_f\n";
- } elsif ($ipercent < $opt_w) {
- $state = $ERRORS{'OK'};
- $answer = "OK: $ipercent percent inodes free on $opt_f\n";
- }
- }
- close(DF);
- print "$answer";
- exit $state;
- sub print_usage () {
- print "Usage: $PROGNAME <filesystem> [-w <warn>] [-c <crit>]\n";
- print "Example: $PROGNAME /dev/ad0s1a -w 50 -c 75\n";
- }
-
- sub print_help () {
- print_revision($PROGNAME,'$Revision$');
- print "Copyright (c) 2002 Andrew Ryder\n";
- print "\n";
- print_usage();
- print "\n";
- print "<warn> = Inode Percent at which a warning message is returned. Defaults to 50.\n";
- print "<crit> = Inode Percent at which a critical message is returned..\n Defaults to 75.\n\n";
- support();
- }
-
|