From e799d3f2549e808a6a96dc41a6dac783aef648c2 Mon Sep 17 00:00:00 2001 From: Subhendu Ghosh Date: Mon, 18 Nov 2002 21:58:58 +0000 Subject: javaproc, sendim git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@211 f882894a-f735-0410-b71e-b25c423dba1c diff --git a/contrib/check_javaproc.pl b/contrib/check_javaproc.pl new file mode 100644 index 0000000..a9b52bc --- /dev/null +++ b/contrib/check_javaproc.pl @@ -0,0 +1,278 @@ +#!/usr/bin/perl -w + +# +# Author: Wim Rijnders, 17-10-2002 +# +# Description: +# ----------- +# +# Nagios host script to check if any specified java processes are running. +# +# Implementation Notes: +# --------------------- +# +# check_disk_smb was used as a starting point, since it was written in perl. +# +# This script has been created and tested on Linux RH 7.1. +# +# I tried OS-X Darwin (BSD), but the ps command works differently. +# Notably, you can't get a combined list of child processes. The best approach +# appears to be to use 'ps -wwaxo command' combined with 'ps -M' (or suchlike) +# +######################################################################## +#### + +require 5.004; +use POSIX; +use strict; +use Getopt::Long; +use vars qw($opt_w $opt_c $verbose $classname); +use vars qw($PROGNAME); +use lib "utils.pm" ; +use utils qw($TIMEOUT %ERRORS &print_revision &support &usage); + +$PROGNAME="check_javaprocs"; +sub getJavaList (); +sub check_ranges ($ $ $ $); + +Getopt::Long::Configure('bundling', 'no_ignore_case'); +GetOptions + ("V|version" => \&version, + "h|help" => \&help, + "v|verbose" => \$verbose, + "w|warning=s" => \$opt_w, + "c|critical=s" => \$opt_c, + "n|name=s" => \$classname + ); + + +my $state = 'OK'; +my $min_warn = undef +my $max_warn = undef; +my $min_crit = undef; +my $max_crit = undef; + + +($opt_w) || ($opt_w = shift); +check_ranges($opt_w,\$min_warn, \$max_warn, "warning"); +($opt_c) || ($opt_c = shift); +check_ranges($opt_c,\$min_crit, \$max_crit, "critical"); + + +# +# Determine # of running processes for the java programs that interest us. +# +my @javalist = getJavaList(); + +my $total = 0; +my $msgout = ""; +my @fields; + +if ( defined $classname ) { + + #filter out a single java process based on class name + foreach (@javalist) { + @fields = split(/\s+/, $_); + $total = $fields[-1] and last if $classname eq $fields[0]; + } + $msgout .= "$total processes for $classname\n"; +} else { + #Handle all java processes + $msgout .= "\n"; + foreach (@javalist) { + @fields = split(/\s+/, $_); + + $total += $fields[-1]; + $msgout .= " $fields[-1] processes for "; + $msgout .= (scalar @fields > 1)? $fields[0] : "unknown" ; + $msgout .= "\n"; + } + my $msgtotal = "$total java processes for ". scalar @javalist . " applications"; + + if ( defined $verbose ) { + $msgout = $msgtotal . $msgout; + } else { + $msgout = $msgtotal; + } + +} + +# +# Set the state with the data we now have accumulated +# Note that due to the order of testing, warnings have precedence over +# criticals. This is logical, since you should be able to create a criticals +# range which encompasses a warning range. eg. following should be possible: +# +# check_javaproc -w 5:10 -c 3:12 +# proper specification of the ranges is the responsibility of the script user. +# +$state = 'CRITICAL' if (defined $min_crit && $total < $min_crit); +$state = 'CRITICAL' if (defined $max_crit && $total > $max_crit); +$state = 'CRITICAL' if (!defined $min_crit && !defined $max_crit && $total==0 ); +$state = 'WARNING' if (defined $min_warn && $total < $min_warn); +$state = 'WARNING' if (defined $max_warn && $total > $max_warn); + +print $msgout; +print "$state\n" if ($verbose); +exit $ERRORS{$state}; + +################################### +# Support routines for Nagios +################################### +sub check_ranges($$$$) { + my ($opt, $min, $max, $rangename) = @_; + + if ( defined $opt ) { + if ( $opt =~ /^([0-9]*)\:([0-9]*)$/) { + $$min = $1 if $1 > 0; + $$max= $2 if $2 > 0; + } else { + usage("Invalid $rangename range: $opt\n"); + } + } + + if ( defined $$min && defined $$max ) { + usage("Min value of $rangename range larger than max value: $opt\n") if ( $$min > $$max); + } +} + +sub print_usage () { + print "Usage: $PROGNAME [-v] [-w ] [-c ] [ -n ]\n"; +} + +sub print_help () { + revision(); + print "Copyright (c) 2002 by Wim Rijnders + +Perl Check java processes plugin for Nagios + +"; + print_usage(); + print " +-v, --verbose + Return additional information. + Intended as a command-line aid, not recommended for Nagios script usage. + +-w, --warning=INTEGER:INTEGER + Minimum and maximum number of processes outside of which a warning will be + generated. If omitted, no warning is generated. + +-c, --critical=INTEGER:INTEGER + Minimum and maximum number of processes outside of which a critical will be + generated. If omitted, a critical is generated if no processes are running. + +-n, --name=STRING + Name of class specified on the java command line (from which main() is run). + If omitted, all java processes are taken into account. + +"; + support(); +} + +sub revision() { + print_revision($PROGNAME,'$Revision$ '); +} + +sub version () { + revision(); + exit $ERRORS{'OK'}; +} + +sub help () { + print_help(); + exit $ERRORS{'OK'}; +} + +################################### +# Routines for delivering the data +################################### + +# +# Generate a formatted list of running java processes. +# +# Returns an array of strings having the following syntax: +# +# <#processes for this class> +# +sub getJavaList() { + + my @output; + + # Untaint + local $ENV{'PATH'} = '/bin:/usr/bin'; + local $ENV{'BASH_ENV'} = '~/.bashrc'; + + # We are only interested in the full command line + # The -H opstion is important for the order of the processes; + # this option ensures that all child processes are listed under + # their parents + @output=`ps -AHo \"\%a\" -ww`; + + #remove preceding whitespace and final EOL + foreach (@output) { + s/^\s*//; + chop; + } + + #Combine any consecutive processes with exactly the same command line + #into a single item + @output = checkSameLine(@output); + + #Filter out all java processes + my @javalist; + for (my $i = 0; $i < scalar @output; ++$i) { + push @javalist, $output[$i] if $output[$i] =~ /^\S*java/; + } + + foreach (@javalist) { + #The java statement at the beginning is redundant; remove it + s/^\S*java//; + + #remove all defines + s/\-D\S+//g; + + #remove classpath + s/\-(classpath|cp)\s+\S+//g; + + #remove any other parameters we don't want to see + s/\-server\s+//g; + s/\-X\S*\s+//g; + + #remove any redundant whitespaces at the beginning + s/^\s+//; + + } + + @javalist; +} + + +# +# Combine all consecutive lines with an identical command line +# to a signle line with a count at the end +# +sub checkSameLine { + my @input = @_; + my @output; + my $prevline= ""; + my $prevcount = 0; + + foreach my $a (@input) { + if ( $prevline eq $a) { + ++$prevcount; + } else { + push @output, $prevline . " " . ($prevcount + 1); + $prevcount = 0; + } + $prevline = $a; + } + + #don't forget the last item! + if ( $prevcount > 0 ) { + push @output, $prevline . " " . ($prevcount + 1); + } + + @output; +} + +#======= end check_javaproc ===== diff --git a/contrib/nagios_sendim.pl b/contrib/nagios_sendim.pl new file mode 100644 index 0000000..02870a6 --- /dev/null +++ b/contrib/nagios_sendim.pl @@ -0,0 +1,66 @@ +#!/usr/bin/perl -w +# +# SENDIM 1.0 by Sergio Freire (sergio-s-freire@ptinovacao.pt) +# Nagios plugin to send notifications using instant messages through a jabber server +# +# Note: a) you can send messages to several different IM systems like ICQ,AIM,MSN,etc... +# b) to test this plugin you can execute it with the arguments needed and write the message followed by a CTRL+D +# +# Please check http://www.jabber.org and http://www.jabberstudio.org for more information on Jabber Instant Messaging + + +use Net::Jabber qw(Client); +use Getopt::Std; + +my $tmp; +my $mensagem=""; +getopts("u:p:t:"); +if ( (!defined($opt_u)) || (!defined($opt_p)) || (!defined($opt_t))) + { + print "USE: sendim -u user_JID -p password -t destination_JID\n"; + print 'EXAMPLE: sendim -u nagios@jabber.org -p nagios -t bitcoder@nagios.org'."\n"; + print " (send an instant message as user nagios\@jabber.org to bitcoder\@jabber.org)\n"; + exit; + } + +my @buf=split('@',$opt_u); +my $login=$buf[0]; +@buf=split('/',$buf[1]); +my $server=$buf[0]; +my $resource=$buf[1] || "nagios"; +my $password=$opt_p; +my $jid_dest=$opt_t; +my $debug=0; # Set debug=1 to enable output of debug information + +while ($tmp=) +{ + $mensagem.=$tmp; +} + +print "LOGIN: $login\nSERVER: $server\nRESOURCE: $resource\n" if $debug; +print "TO: $jid_dest\n" if $debug; + +$Con1 = new Net::Jabber::Client(); +$Con1->Connect(hostname=>$server); + + if ($Con1->Connected()) { + print "CON1: We are connected to the server...\n" if $debug; + } + + @result1 = $Con1->AuthSend(username=>$login, + password=>$password, + resource=>$resource); + + +$Con1->PresenceSend(); +$Con1->Process(1); + +@result1=$Con1->MessageSend( to=>$jid_dest, + subject=>"nagios", + body=>$mensagem, + type=>"chat", + priority=>1); + +$Con1->Process(1); +$Con1->Disconnect(); +exit; -- cgit v0.10-9-g596f