Nagios Support Forum

Code: Select all

#! /usr/bin/perl -w

use strict;
use Getopt::Long;
use vars qw($opt_V $opt_h $opt_H $opt_p $procs $check $PROGNAME);
use lib "/usr/lib/nagios/plugins/"  ;
use utils qw(%ERRORS &print_revision &support &usage);

$PROGNAME = "check_proc-status";

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,
         "H=s" => \$opt_H, "hostname=s" => \$opt_H,
         "p=s" => \$opt_p, "process=s" => \$opt_p);

if ($opt_V) {
        print_revision($PROGNAME,'$Revision: 0.1 $');
        exit $ERRORS{'OK'};
}


if ($opt_h) {print_help(); exit $ERRORS{'OK'};}

($opt_H) || usage("Host name/address not specified\n");
my $host = $1 if ($opt_H =~ /([-.A-Za-z0-9]+)/);
($host) || usage("Invalid host: $opt_H\n");

($opt_p) || usage("Process name not specified\n");
my $proc = $1 if ($opt_p =~ /([-.A-Za-z0-9_]+)/);
($proc) || usage("Invalid process: $opt_p\n");

$check=`/sbin/service $proc status`;

#print $check;
#print $?;

if ($? == 0){
	print "OK - $proc"; exit $ERRORS{'OK'}};

print "CRITICAL"; exit $ERRORS{'CRITICAL'} ;



sub print_usage () {
        print "Usage: $PROGNAME -H <host> [-C community] -w <warn> -c <crit>\n";
}

sub print_help () {
        print_revision($PROGNAME,'$Revision: 0.1 $');
        print "Copyright (c) 2015 Rob Hassing

This plugin reports the usage of a Netapp Storage volume

";
        print_usage();
        print "
-H, --hostname=HOST
   Name or IP address of host to check
-p, --proc=Process
   Name of the process to check

";
#       support();
}