Imported Upstream version 0.9.6
This commit is contained in:
Mario Fetka
28
libexec/Makefile.in
Normal file
28
libexec/Makefile.in
Normal file
@@ -0,0 +1,28 @@
|
||||
prefix=@prefix@
|
||||
exec_prefix=@exec_prefix@
|
||||
LOGDIR=@localstatedir@
|
||||
CFGDIR=@sysconfdir@
|
||||
BINDIR=@bindir@
|
||||
CGIDIR=@sbindir@
|
||||
DATAROOTDIR=@datarootdir@
|
||||
LIBEXECDIR=@libexecdir@
|
||||
|
||||
INSTALL=@INSTALL@
|
||||
INSTALL_OPTS=@INSTALL_OPTS@
|
||||
|
||||
CP=@CP@
|
||||
|
||||
all html:
|
||||
|
||||
clean:
|
||||
-rm check_bp_status.pl
|
||||
|
||||
distclean: clean
|
||||
-rm Makefile
|
||||
|
||||
devclean: distclean
|
||||
|
||||
install:
|
||||
$(INSTALL) -m 775 $(INSTALL_OPTS) -d $(LIBEXECDIR)
|
||||
$(INSTALL) -m 755 $(INSTALL_OPTS) check_bp_status.pl $(LIBEXECDIR)
|
||||
|
||||
150
libexec/check_bp_status.pl.in
Normal file
150
libexec/check_bp_status.pl.in
Normal file
@@ -0,0 +1,150 @@
|
||||
#!@PERL@
|
||||
|
||||
# Nagios Business Process View and Nagios Business Process Analysis
|
||||
# Copyright (C) 2003-2010 Sparda-Datenverarbeitung eG, Nuernberg, Germany
|
||||
# Bernd Stroessreuther <berny1@users.sourceforge.net>
|
||||
#
|
||||
# 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.
|
||||
#
|
||||
# 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
|
||||
|
||||
|
||||
#Load modules
|
||||
use lib ('@libdir@');
|
||||
#require a good programming
|
||||
use strict;
|
||||
#db connection module
|
||||
use DBI;
|
||||
#functions for getting states from the ndo database
|
||||
use ndodb;
|
||||
#functions for parsing nagios_bp_config file
|
||||
use nagiosBp;
|
||||
#get installation specific parameters: path variables and so on
|
||||
use settings;
|
||||
|
||||
|
||||
#some Variables
|
||||
my $settings = getSettings();
|
||||
my %state_to_rc = ( "OK" => 0, "WARNING" => 1, "CRITICAL" => 2, "UNKNOWN" => 3);
|
||||
my $timeout = 10;
|
||||
|
||||
my ($nagios_bp_conf, $bp, $hardstates, $statusinfos, $display, $display_status, $script_out, $info_url, $components, $key, $i);
|
||||
|
||||
|
||||
#get command line parameters
|
||||
if (@ARGV == 1 && $ARGV[0] !~ m/^-/)
|
||||
{
|
||||
# old style of calling this plugin
|
||||
# $0 <BusinessProcess>
|
||||
$bp = $ARGV[0];
|
||||
}
|
||||
else
|
||||
{
|
||||
for ($i=0; $i<@ARGV; $i++)
|
||||
{
|
||||
if ($ARGV[$i] eq "-b") { $bp = $ARGV[++$i] }
|
||||
if ($ARGV[$i] eq "-f") { $nagios_bp_conf = $ARGV[++$i] }
|
||||
if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "--help") { help() }
|
||||
if ($ARGV[$i] eq "-V" || $ARGV[$i] eq "--version") { version() }
|
||||
if ($ARGV[$i] eq "-t" || $ARGV[$i] eq "--timeout") { $timeout = $ARGV[++$i] }
|
||||
}
|
||||
}
|
||||
|
||||
# missing parameters
|
||||
help("You did not give any parameters!\n") if ($bp eq "");
|
||||
|
||||
# timeout
|
||||
$SIG{ALRM} = sub
|
||||
{
|
||||
print "The plugin execution timed out\n";
|
||||
exit(3);
|
||||
};
|
||||
alarm($timeout);
|
||||
|
||||
# defaults
|
||||
if ($nagios_bp_conf eq "")
|
||||
{
|
||||
$nagios_bp_conf = "$settings->{'NAGIOSBP_ETC'}/nagios-bp.conf";
|
||||
}
|
||||
elsif ($nagios_bp_conf !~ m#^/#)
|
||||
{
|
||||
$nagios_bp_conf = "$settings->{'NAGIOSBP_ETC'}/$nagios_bp_conf";
|
||||
}
|
||||
|
||||
#read the status data from the db
|
||||
($hardstates, $statusinfos) = &getStates();
|
||||
#foreach $key (keys %$hardstates)
|
||||
#{
|
||||
# print "$key $hardstates->{$key}\n";
|
||||
#}
|
||||
|
||||
#parse nagios-bp.conf (our own config file)
|
||||
($display, $display_status, $script_out, $info_url, $components) = &getBPs($nagios_bp_conf, $hardstates, "false");
|
||||
|
||||
# timeout test
|
||||
#for ($i=0; $i<500; $i++)
|
||||
#{
|
||||
# system("cat /var/log/messages >/dev/null");
|
||||
# print "$i ";
|
||||
#}
|
||||
|
||||
# reset timeout
|
||||
alarm(0);
|
||||
|
||||
# evaluating business process
|
||||
if ($hardstates->{$bp} eq "" || $display->{$bp} eq "")
|
||||
{
|
||||
print "Business Process UNKNOWN: Business Process $bp is not defined\n";
|
||||
exit(3);
|
||||
}
|
||||
else
|
||||
{
|
||||
print "Business Process $hardstates->{$bp}: $display->{$bp}\n";
|
||||
exit($state_to_rc{$hardstates->{$bp}});
|
||||
}
|
||||
|
||||
# online help
|
||||
sub help
|
||||
{
|
||||
# 1 2 3 4 5 6 7 8
|
||||
# 12345678901234567890123456789012345678901234567890123456789012345678901234567890
|
||||
print $_[0];
|
||||
print "\nuse as follows:\n";
|
||||
print "$0 -b <BusinessProcess> [-f <config_file>] [-t <timeout>]\n";
|
||||
print "or\n";
|
||||
print "$0 -h|--help\n\n";
|
||||
print "or\n";
|
||||
print "$0 -v|--version\n\n";
|
||||
print "where\n\n";
|
||||
print "<BusinessProcess> is the short name of the business process\n";
|
||||
print " you want to check (see Your business process config file to\n";
|
||||
print " find the name)\n";
|
||||
print "<config_file> is the name of the file where the <BusinessProcess> is\n";
|
||||
print " defined\n";
|
||||
print " if it starts with a / it is considered to be a absolut path\n";
|
||||
print " otherwise it is looked for in $settings->{'NAGIOSBP_ETC'}\n";
|
||||
print " default is $settings->{'NAGIOSBP_ETC'}/nagios-bp.conf\n";
|
||||
print "<timeout> the plugin execution times out after this number of seconds\n";
|
||||
print " defaults to 10 seconds\n";
|
||||
print "-h or --help to display this help message\n\n";
|
||||
print "-V or --version to display version information\n\n";
|
||||
exit(3);
|
||||
}
|
||||
|
||||
# online help
|
||||
sub version
|
||||
{
|
||||
print "Version " . getVersion() . "\n";
|
||||
print "This program is free software licensed under the terms of the GNU General Public\n";
|
||||
print "License version 2.\n";
|
||||
exit(3);
|
||||
}
|
||||
Reference in New Issue
Block a user