#!@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);
	}