File check_source-service.pl of Package monitoring-plugins-source-service

Overview Repositories Revisions Requests Users Attributes Meta

File check_source-service.pl of Package monitoring-plugins-source-service

#!/usr/bin/perl -w
# nagios: -epn
#
# check_source-service - nagios plugin
#
# Copyright (C) 2010, Novell, Inc.
# Author: Lars Vogdt
#
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
# * Redistributions of source code must retain the above copyright notice, this
#   list of conditions and the following disclaimer.
#
# * Redistributions in binary form must reproduce the above copyright notice,
#   this list of conditions and the following disclaimer in the documentation
#   and/or other materials provided with the distribution.
#
# * Neither the name of the Novell nor the names of its contributors may be
#   used to endorse or promote products derived from this software without
#   specific prior written permission.
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
# $Id: check_source-service.pl,v 1.2 2010/10/25 21:49:30 lrupp Exp lrupp $
#
##
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use Time::HiRes qw( clock );
use WWW::Curl::Simple;
use XML::Simple;

# cleanup the environment
$ENV{'PATH'}     = '/bin:/usr/bin:/sbin:/usr/sbin:';

$ENV{'BASH_ENV'} = '';
$ENV{'ENV'}      = '';

our $conf = {
			'VERSION'	=> '0.1',
			'PROGNAME'	=> 'check_source-service',
			'timeout'	=> '60',
			'critical'	=> '2',
			'warning'	=> '1',
			'debug'		=> 0,
			'curl'		=> '/usr/bin/curl',
			'protocol'	=> 'http',
			'hostname' 	=> 'build.opensuse.org',
			'port'		=> '5352',
			'service'	=> 'service',
};

our $print_version = 0;
our $print_help    = 0;
our $exitcode      = 0;

our %ERRORS        = (
    'OK'        => 0,
    'WARNING'   => 1,
    'CRITICAL'  => 2,
    'UNKNOWN'   => 3,
    'DEPENDENT' => 4
);

#######################################################################
# Functions
#######################################################################

sub DEBUG($) {
    my ($output) = @_;
    print "DEBUG:  $output\n" if ( $conf->{'debug'} );
}

sub print_myrevision ($$) {
    my ($commandName,$pluginRevision) = @_;
    print "$commandName v$pluginRevision\n";
}

#######################################################################
# Main
#######################################################################

Getopt::Long::Configure('bundling');
GetOptions(
    "H=s"           => \$conf->{'hostname'},
    "hostname=s"    => \$conf->{'hostname'},
    "v"             => \$print_version,
    "version"       => \$print_version,
    "h"             => \$print_help,
    "help"          => \$print_help,
    "d"             => \$conf->{'debug'},
    "debug"         => \$conf->{'debug'},
    "w=f"           => \$conf->{'warning'},
    "warning=f"     => \$conf->{'warning'},
    "c=f"           => \$conf->{'critical'},
    "critical=f"    => \$conf->{'critical'},
	"p=i"			=> \$conf->{'port'},
	"port=i"		=> \$conf->{'port'},
	"protocoli=s"	=> \$conf->{'protocol'},
	"s=s"			=> \$conf->{'service'},
	"service=s"		=> \$conf->{'service'},
    "t=i"           => \$conf->{'timeout'},
    "timeout=i"     => \$conf->{'timeout'},
) or pod2usage(2);

pod2usage(
    -exitstatus => 0,
    -verbose    => 2,    # 2 to print full pod
) if $print_help;

# Just in case of problems, let's not hang Nagios
$SIG{'ALRM'} = sub {
    print "UNKNOWN - Plugin timed out\n";
    exit $ERRORS{'UNKNOWN'};
};
alarm( $conf->{'timeout'} );

if ($print_version) {
    print_myrevision( $conf->{'PROGNAME'}, $conf->{'VERSION'} );
	exit $ERRORS{'OK'};
}

# check the options...
if ( $conf->{'warning'} >= $conf->{'critical'} ) {
    print "CONFIG ERROR - critical value ("
        . $conf->{'critical'}
        . ") must be higher than warning value ("
        . $conf->{'warning'} . ")\n";
    pod2usage(2);
    alarm(0);
    exit $ERRORS{'UNKNOWN'};
}

if ( !defined($conf->{'hostname'}) ) {
    print "ERROR - no hostname given\n";
    pod2usage(2);
    alarm(0);
    exit $ERRORS{'UNKNOWN'};
}

my $ret_str='UNKNOWN';
my $error='UNKNOWN';
my $url=$conf->{'protocol'}."://".$conf->{'hostname'}.":".$conf->{'port'}."/".$conf->{'service'};
if ($conf->{'debug'}){
	use Data::Dumper;
	print STDERR Data::Dumper->Dump([$conf]);
	DEBUG("URL: $url");	
}
# do not confuse the enduser with warnings from WWW::Curl::Simple if the host is not reachable
# do a simple check via curl before (yes, not nice but it's late here...)
my $check=`$conf->{'curl'} $url 2>/dev/null || echo -n 1`;
if ($check eq '1'){
	print "UNKNOWN: Could not connect to $url\n";
	alarm(0);
	exit $ERRORS{'UNKNOWN'}; 
}
# Start the actual request
my $curl = WWW::Curl::Simple->new(fatal=>1);
my $clock0 = clock();
my $retcode = $curl->get($url);
my $clock1 = clock();
my $clockd = $clock1 - $clock0;
DEBUG("retcode:\n".Data::Dumper->Dump([$retcode])."\n");

# Looking at the results...
if ($retcode->{'_rc'} != '200') {
	$ret_str = "CRITICAL: Got response code ".$retcode->{'_rc'};
	$error   = 'CRITICAL';
} else {
    my $xml = XMLin("$retcode->{'_content'}",  	ForceArray => 1,
                                				ForceContent => 1,
                                				KeyAttr => 'body',
                                				KeepRoot => 0,);
    DEBUG("content:\n".Data::Dumper->Dump([$xml])."\n");
	my $i=-1;
	foreach my $section (@{$xml->{'service'}}){
		$i++;
		next if ($xml->{'service'}[$i]->{'name'} !~ /download_url/);
		if ($clockd >= $conf->{'critical'}){
			$ret_str = "CRITICAL : Source Service needs $clockd seconds";
			$error   = 'CRITICAL';
		}
		elsif ($clockd >= $conf->{'warning'}){
			$ret_str = "WARNING : Source Service needs $clockd seconds";
			$error   = 'CRITICAL';
		}
		else {
			$ret_str = "OK : Source Service returns in $clockd seconds";
			$error   = 'OK';
		}
	}
}

print "$ret_str | time=".$clockd."s;$conf->{'warning'};$conf->{'critical'};0.0\n";
$exitcode=$ERRORS{$error};
alarm(0);
exit $exitcode;

__END__

=head1 check_source-service

check_source-service is a Nagios Plugin, checking the availability of a source-service.

=head1 SYNOPSIS

./check_source-service -H $HOSTNAME$ -w1 -c2 -p5352

Options:

-H <HOSTNAME>   | --hostname <HOSTNAME>

-w <float>      | --warning <float>

-c <float>      | --critical <float>

-p <int>        | --port <int>

| --protocol <string>

-s <string>     | --service <string>

-t <int>        | --timeout <int>

-h              | --help

-d              | --debug

=head1 OPTIONS

=over 8

=item B<--hostname> F<hostname>

The name of the host.

=item B<--critical> F<float>

(Mili)Seconds befor the check should return critical.

=item B<--warning> F<float>

(Mili)Seconds befor the check should return warning.

=item B<--port> F<int>

Port number (default: 5352)

=item B<--protocol> F<string>

Use the given protocol instead of http

=item B<--service> -F<string>

Use this service (URL) instead of the default name service

=item B<--timeout> F<int>

General timeout for the script.

=item B<--help>

Produces this output.

=item B<--debug>

Print debug output on console.

=back

=head1 DESCRIPTION

B<check_source-service> allows you to check the availability of a Source Service.

=head1 AUTHORS

Written by Lars Vogdt <Lars.Vogdt@novell.com>

=head1 SUPPORT

Please use https://bugzilla.novell.com to submit patches or suggest improvements.

Include version information with all correspondence (when possible use output from 
the --version option of the plugin itself).

=cut

Places

File check_source-service.pl of Package monitoring-plugins-source-service

Places