Imported Upstream version 0.9.6
This commit is contained in:
Mario Fetka
30
bin/Makefile.in
Normal file
30
bin/Makefile.in
Normal file
@@ -0,0 +1,30 @@
|
||||
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 bp_cfg2service_cfg.pl
|
||||
-rm nagios-bp-consistency-check.pl
|
||||
|
||||
distclean: clean
|
||||
-rm Makefile
|
||||
|
||||
devclean: distclean
|
||||
|
||||
install:
|
||||
$(INSTALL) -m 775 $(INSTALL_OPTS) -d $(BINDIR)
|
||||
$(INSTALL) -m 755 $(INSTALL_OPTS) *.pl $(BINDIR)
|
||||
$(INSTALL) -m 755 $(INSTALL_OPTS) nagios_bp_session_timeout $(BINDIR)
|
||||
|
||||
212
bin/bp_cfg2service_cfg.pl.in
Normal file
212
bin/bp_cfg2service_cfg.pl.in
Normal file
@@ -0,0 +1,212 @@
|
||||
#!@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 strict;
|
||||
use lib ('@libdir@');
|
||||
use settings;
|
||||
|
||||
#Configuration
|
||||
#default template which should be used for top level business processes
|
||||
#it has to be defined somewhere in nagios, e. g. services.cfg
|
||||
my $template_toplevel = "generic-bp-service";
|
||||
|
||||
#default template which should be used for minor business processes
|
||||
#it has to be defined somewhere in nagios, e. g. services.cfg
|
||||
#may be the same als template_toplevel, if you do not want to have different
|
||||
#parameters for them
|
||||
my $template_minor = "generic-bp-detail-service";
|
||||
|
||||
#Parameters
|
||||
my ($in, $name, $description, $status, $nagios_bp_conf, $service_cfg, $help, $i, %individual_templates, $create_sub_bp, $output_file, $generate_notes);
|
||||
my $settings = getSettings();
|
||||
|
||||
for ($i=0; $i<@ARGV; $i++)
|
||||
{
|
||||
if ($ARGV[$i] eq "-f") { $nagios_bp_conf = $ARGV[++$i] }
|
||||
if ($ARGV[$i] eq "-tt") { $template_toplevel = $ARGV[++$i] }
|
||||
if ($ARGV[$i] eq "-tm") { $template_minor = $ARGV[++$i] }
|
||||
if ($ARGV[$i] eq "-s") { $create_sub_bp = $ARGV[++$i] }
|
||||
if ($ARGV[$i] eq "-o") { $output_file = $ARGV[++$i] }
|
||||
if ($ARGV[$i] eq "-n") { $generate_notes = $ARGV[++$i] }
|
||||
if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "--help") { $help = 1 }
|
||||
}
|
||||
|
||||
if ($create_sub_bp ne "0") { $create_sub_bp = 1 }
|
||||
if ($generate_notes ne "1") { $generate_notes = 0 }
|
||||
|
||||
#determin path/filename of resulting cfg file
|
||||
if ($output_file eq "")
|
||||
{
|
||||
if ($nagios_bp_conf eq "")
|
||||
{
|
||||
# Default values if no config file is given
|
||||
$nagios_bp_conf = "$settings->{'NAGIOSBP_ETC'}/nagios-bp.conf";
|
||||
$service_cfg = "$settings->{'NAGIOS_ETC'}/services-bp.cfg";
|
||||
}
|
||||
elsif ($nagios_bp_conf =~ m/.+\.conf$/)
|
||||
{
|
||||
#print "DEBUG: non standard config\n";
|
||||
$service_cfg = $nagios_bp_conf;
|
||||
$service_cfg =~ s#^.*/##;
|
||||
$service_cfg =~ s/\.conf$//;
|
||||
$service_cfg =~ s/^nagios-bp-?//;
|
||||
$service_cfg = "$settings->{'NAGIOS_ETC'}/services-bp-$service_cfg.cfg";
|
||||
#print "DEBUG: nagios_bp_conf $nagios_bp_conf\n";
|
||||
#print "DEBUG: service_cfg $service_cfg\n";
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
$service_cfg = $output_file;
|
||||
if ($nagios_bp_conf eq "")
|
||||
{
|
||||
# Default values if no config file is given
|
||||
$nagios_bp_conf = "$settings->{'NAGIOSBP_ETC'}/nagios-bp.conf";
|
||||
}
|
||||
}
|
||||
|
||||
#help
|
||||
if ($service_cfg eq "" || $help == 1)
|
||||
{
|
||||
print "\ncall using:\n";
|
||||
print "$0\n";
|
||||
print "for use with default parameters\n";
|
||||
print "(generate $settings->{'NAGIOS_ETC'}/services-bp.cfg from $settings->{'NAGIOSBP_ETC'}/nagios-bp.conf\n";
|
||||
print "using default templates and default dummy hostnames)\n\n";
|
||||
print "or\n";
|
||||
print "$0 [-f \<config_file\>] [-tt \<template_toplevel\>] [-tm \<template_minor\>] [-o \<output_file\>] [-s 0|1] [-n 0|1]\n";
|
||||
print "where\n";
|
||||
print "\<config_file\> is the file where You defined Your business processes\n";
|
||||
print " it must be named *.conf\n";
|
||||
print "\<template_toplevel\> is the service template You want to use for all business processes\n";
|
||||
print " displayed in the toplevel view\n";
|
||||
print " default: generic-bp-service\n";
|
||||
print "\<template_minor\> is the service template You want to use for all other business processes\n";
|
||||
print " You may use the same value as for \<template_toplevel\>\n";
|
||||
print " default: generic-bp-detail-service\n";
|
||||
print "\<output_file\> tells under which path and filename the resulting cfg file should be\n";
|
||||
print " generated\n";
|
||||
print " defaults to $settings->{'NAGIOS_ETC'}/services-bp.cfg if You use the default\n";
|
||||
print " config file (that means if You did not give -f parameter)\n";
|
||||
print " or to $settings->{'NAGIOS_ETC'}/services-bp-\<name_of_config_file\>.cfg\n";
|
||||
print " otherwise\n";
|
||||
print "-s 0 means: create services only for business processes displayed in\n";
|
||||
print " the top level view\n";
|
||||
print "-s 1 means: create services also for business processes with display 0\n";
|
||||
print " default is 1\n";
|
||||
print "-n 1 means: for each service we generate, this script should add an additional notes\n";
|
||||
print " line containing the description You did define in nagios-bp.conf\n";
|
||||
print "-n 0 means: do not add a notes line, this is the default\n";
|
||||
print " (same behavior as in versions up to 0.9.5)\n";
|
||||
print "\nFor further information see README, section \"Business Process representation as Nagios services\"\n\n";
|
||||
exit(1);
|
||||
}
|
||||
|
||||
#some infos on stdout
|
||||
print "\ngenerating $service_cfg from $nagios_bp_conf\n";
|
||||
if ($create_sub_bp == 1)
|
||||
{
|
||||
print "using templates $template_toplevel / $template_minor\n";
|
||||
print "services for sub-level Business Processes are also created\n\n";
|
||||
}
|
||||
else
|
||||
{
|
||||
print "using template $template_toplevel\n";
|
||||
print "service only for Business Processes of top level view are created\n\n";
|
||||
}
|
||||
|
||||
|
||||
#parse nagios-bp.conf (our own config file)
|
||||
# look for bp's who have an own template defined
|
||||
open (IN, "<$nagios_bp_conf") or die "unable to read $nagios_bp_conf";
|
||||
while ($in = <IN>)
|
||||
{
|
||||
if ($in =~ m/^\s*template\s+/)
|
||||
{
|
||||
#print "DEBUG: $in";
|
||||
$in =~ s/^\s*template\s+//;
|
||||
($name, $description) = split(/;/, $in);
|
||||
chomp($description);
|
||||
#print "DEBUG name: $name desc:$description\n";
|
||||
$individual_templates{$name} = $description;
|
||||
}
|
||||
}
|
||||
close(IN);
|
||||
|
||||
# make services for every bp named in a display statement
|
||||
open (IN, "<$nagios_bp_conf") or die "unable to read $nagios_bp_conf";
|
||||
open (OUT, ">$service_cfg") or die "unable to write to $service_cfg";
|
||||
print OUT '##################################################################################' . "\n";
|
||||
print OUT '#' . "\n";
|
||||
print OUT '# !!! DO NOT MODIFY THIS FILE !!!' . "\n";
|
||||
print OUT '#' . "\n";
|
||||
print OUT '# It is script generated!' . "\n";
|
||||
print OUT '# Change the file ' . "$nagios_bp_conf\n";
|
||||
print OUT '# and run the command ' . "$0 afterwards\n";
|
||||
print OUT '#' . "\n";
|
||||
print OUT '# If not doing so, Your changes will be lost on the next update' . "\n";
|
||||
print OUT '#' . "\n";
|
||||
print OUT '##################################################################################' . "\n\n\n";
|
||||
|
||||
while ($in = <IN>)
|
||||
{
|
||||
# filter comments (starting with #) and blank lines
|
||||
if ($in !~ m/^#/ && $in !~ m/^ *$/)
|
||||
{
|
||||
#print "$in";
|
||||
|
||||
# for all display definitions (lines starting with "display")
|
||||
if ($in =~ m/^\s*display\s+/)
|
||||
{
|
||||
$in =~ s/^\s*display\s+//;
|
||||
($status, $name, $description) = split(/;/, $in);
|
||||
chomp($description);
|
||||
#do not display business processes with status 0 if configured so (see section configuration)
|
||||
if ($status > 0 || $create_sub_bp == 1)
|
||||
{
|
||||
#print "$status : $name : $description\n";
|
||||
print OUT "define service{\n";
|
||||
if (defined $individual_templates{$name})
|
||||
{
|
||||
print OUT " use $individual_templates{$name}\n";
|
||||
}
|
||||
elsif ($status > 0)
|
||||
{
|
||||
print OUT " use $template_toplevel\n";
|
||||
}
|
||||
else
|
||||
{
|
||||
print OUT " use $template_minor\n";
|
||||
}
|
||||
print OUT " service_description $name\n";
|
||||
if ($generate_notes == 1)
|
||||
{
|
||||
print OUT " notes $description\n";
|
||||
}
|
||||
print OUT " check_command check_bp_status!$name!$nagios_bp_conf\n";
|
||||
print OUT " }\n\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
close(OUT);
|
||||
close(IN);
|
||||
|
||||
64
bin/nagios-bp-check-ndo-connection.pl.in
Normal file
64
bin/nagios-bp-check-ndo-connection.pl.in
Normal file
@@ -0,0 +1,64 @@
|
||||
#!@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
|
||||
|
||||
use lib ('@libdir@');
|
||||
use strict;
|
||||
use bsutils;
|
||||
use ndodb;
|
||||
use settings;
|
||||
|
||||
#my $settings = getSettings();
|
||||
#my $nagiosbpcfg="$settings->{'NAGIOSBP_ETC'}/nagios-bp.conf";
|
||||
|
||||
my ($hardstates, $statusinfos, $key, $maxlen, %dbparam);
|
||||
my %backend_description = (
|
||||
"db" => "NDO Database",
|
||||
"merlin" => "Merlin Database",
|
||||
"fs" => "NDO2FS Filesystem",
|
||||
"mk_livestatus" => "mk_livestatus",
|
||||
"icinga-web" => "Icinga-Web API HTTP/JSON"
|
||||
);
|
||||
|
||||
($hardstates, $statusinfos) = &getStates();
|
||||
%dbparam = &getDbParam();
|
||||
|
||||
#printHash($hardstates);
|
||||
#printHash($statusinfos);
|
||||
|
||||
print "\nReport of actual status information in NDO\n";
|
||||
print "------------------------------------------\n\n";
|
||||
print "Backend is $dbparam{'ndo'} ($backend_description{$dbparam{'ndo'}})\n";
|
||||
print "which got it's last update at " . &getLastUpdateServiceStatus() . "\n\n";
|
||||
|
||||
foreach $key (keys %$statusinfos)
|
||||
{
|
||||
if (length($key) > $maxlen)
|
||||
{
|
||||
$maxlen = length($key);
|
||||
}
|
||||
}
|
||||
#print "max: $maxlen\n";
|
||||
|
||||
foreach $key (sort keys %$statusinfos)
|
||||
{
|
||||
#if ($key !~ m/business_process/)
|
||||
#{
|
||||
print fixedLen("[$key]", $maxlen+2, "left") . " [" . fixedLen($hardstates->{$key}, 8, "right") . "] $statusinfos->{$key}\n";
|
||||
#}
|
||||
}
|
||||
166
bin/nagios-bp-consistency-check.pl.in
Normal file
166
bin/nagios-bp-consistency-check.pl.in
Normal file
@@ -0,0 +1,166 @@
|
||||
#!@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
|
||||
|
||||
use lib ('@libdir@');
|
||||
use strict;
|
||||
use bsutils;
|
||||
use ndodb;
|
||||
use settings;
|
||||
|
||||
my $settings = getSettings();
|
||||
my $nagiosbpcfg="$settings->{'NAGIOSBP_ETC'}/nagios-bp.conf";
|
||||
|
||||
if ( $ARGV[0] ne "" )
|
||||
{
|
||||
$nagiosbpcfg=$ARGV[0];
|
||||
}
|
||||
|
||||
my ($hardstates, $statusinfos, $tmp1, $tmp2, $in, @used_services, $i, $num_of_operators);
|
||||
my $linenum=0;
|
||||
my $rc=0;
|
||||
my $undef_count=0;
|
||||
|
||||
($hardstates, $statusinfos) = &getStates();
|
||||
#printHash($hardstates);
|
||||
|
||||
print "Checking consistency of $nagiosbpcfg\n";
|
||||
open(IN, "<$nagiosbpcfg") or die "unable to read file $nagiosbpcfg\n";
|
||||
while($in = <IN>)
|
||||
{
|
||||
$linenum++;
|
||||
# exclude comments and empty lines
|
||||
if ($in !~ m/(^\s*#)|(^\s*$)/)
|
||||
{
|
||||
if ($in =~ m/^\s*display \d+;([A-Za-z0-9_-]+);/)
|
||||
{
|
||||
if (&checkForValidService($1) != 1)
|
||||
{
|
||||
print " the display line on line $linenum uses a non existing business process: $1\n";
|
||||
$rc=1;
|
||||
}
|
||||
}
|
||||
elsif ($in =~ m/^\s*external_info ([A-Za-z0-9_-]+);/)
|
||||
{
|
||||
if (&checkForValidService($1) != 1)
|
||||
{
|
||||
print " the external_info line on line $linenum uses a non existing business process: $1\n";
|
||||
$rc=1;
|
||||
}
|
||||
}
|
||||
elsif ($in =~ m/^\s*info_url ([A-Za-z0-9_-]+);/)
|
||||
{
|
||||
if (&checkForValidService($1) != 1)
|
||||
{
|
||||
print " the info_url line on line $linenum uses a non existing business process: $1\n";
|
||||
$rc=1;
|
||||
}
|
||||
}
|
||||
elsif ($in =~ m/^\s*template ([A-Za-z0-9_-]+);/)
|
||||
{
|
||||
if (&checkForValidService($1) != 1)
|
||||
{
|
||||
print " the template line on line $linenum uses a non existing business process: $1\n";
|
||||
$rc=1;
|
||||
}
|
||||
}
|
||||
elsif ($in =~ m/=/)
|
||||
{
|
||||
($tmp1, $tmp2) = split(/ *= */, $in);
|
||||
chomp($tmp2);
|
||||
$tmp2 =~ s/^ *\d+ *of: *//;
|
||||
|
||||
# look if all used services are defined in Nagios
|
||||
@used_services = split(/ *&|\||\+ */, $tmp2);
|
||||
#print "$linenum: " . join(/ /, @used_services) . "\n";
|
||||
for ($i=0; $i<@used_services; $i++)
|
||||
{
|
||||
#if ($used_services[$i] !~ m/;/) { next; };
|
||||
$used_services[$i] =~ s/^ *//;
|
||||
$used_services[$i] =~ s/ *$//;
|
||||
if (&checkForValidService($used_services[$i]) == 0)
|
||||
{
|
||||
print " Service \"$used_services[$i]\" used on line $linenum is not a defined anywhere\n";
|
||||
$undef_count++;
|
||||
$rc = 1;
|
||||
}
|
||||
}
|
||||
$tmp1 =~ s/^ *//;
|
||||
$tmp1 =~ s/ *$//;
|
||||
$hardstates->{$tmp1} = "DEFINED";
|
||||
#print "DEBUG: pushing $tmp1\n";
|
||||
|
||||
# find formula with different operators
|
||||
$num_of_operators=0;
|
||||
if ($tmp2 =~ m/\|/) { $num_of_operators++ };
|
||||
if ($tmp2 =~ m/\+/) { $num_of_operators++ };
|
||||
if ($tmp2 =~ m/&/) { $num_of_operators++ };
|
||||
if ($num_of_operators > 1)
|
||||
{
|
||||
print " Line $linenum: Formula is mixing up different operators. This is not defined.\n";
|
||||
print " " . $in;
|
||||
$rc = 1;
|
||||
}
|
||||
|
||||
# find formula with "of:" and wrong operator
|
||||
if ($in =~ m/= *\d+ *of: */ && $in =~ m/&|\|/)
|
||||
{
|
||||
print " Line $linenum: In a formula using the keyword \"of:\" the only allowed operator is +\n";
|
||||
print " " . $in;
|
||||
$rc = 1;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
print " Syntax Error on line $linenum:\n";
|
||||
print " " . $in;
|
||||
$rc=1;
|
||||
}
|
||||
}
|
||||
}
|
||||
close(IN);
|
||||
|
||||
if ($rc == 0)
|
||||
{
|
||||
print " OK\n";
|
||||
}
|
||||
elsif ($undef_count > 0)
|
||||
{
|
||||
print "\n Please note: You must define a host or service in nagios first of all,\n";
|
||||
print " than You have to reload nagios, wait a minute and after this, You can use it\n";
|
||||
print " in a Business Process.\n";
|
||||
print " (The Nagios reload makes sure new defined services and hosts are known in\n";
|
||||
print " NDO from where they are used by Business Processes.)\n\n";
|
||||
}
|
||||
|
||||
#printHash($hardstates);
|
||||
exit($rc);
|
||||
|
||||
sub checkForValidService()
|
||||
{
|
||||
my $service = shift;
|
||||
|
||||
if (defined $hardstates->{$service})
|
||||
{
|
||||
return(1);
|
||||
}
|
||||
else
|
||||
{
|
||||
return(0);
|
||||
}
|
||||
}
|
||||
29
bin/nagios_bp_session_timeout.in
Normal file
29
bin/nagios_bp_session_timeout.in
Normal file
@@ -0,0 +1,29 @@
|
||||
#!/bin/bash
|
||||
|
||||
# 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
|
||||
|
||||
|
||||
# 2006-04-01 Bernd Stroessenreuther
|
||||
# script is regularly executed by cron under the same user as apache
|
||||
# and cleans old sessions from Nagios Business Impact Analysis
|
||||
|
||||
for file in `find @localstatedir@/nagios_bp.sessions -amin +30 -type f`
|
||||
do
|
||||
rm -f $file
|
||||
done
|
||||
|
||||
Reference in New Issue
Block a user