#!/usr/bin/perl -w
##################################################################
# CHECK_JABBER.PL
#
# Jabber Plugin for Nagios
# License: GPL
# C.Doblado (cdoblado@pulsartec.com)
# check_jabber.pl, v1.0 2005/04/27
#
#################################################################

use strict;
use Getopt::Std;
use Net::Jabber qw(Client);

use lib "/usr/lib/nagios/plugins/";
use utils qw($TIMEOUT %ERRORS &print_revision);

sub CheckJabber;
sub Help;

my $PROGNAME = "check_jabber";


sub CheckJabber
{
 my $host=shift;
 my $port=shift;
 my $result;
 my $con= new Net::Jabber::Client();
 $con->Connect(hostname=>$host,port=>$port);
 if ($con->Connected()){
 	$result->{NUM}=1;
	$result->{MSG}="Jabber server OK at port $port \n";
 	$con->Disconnect();
 }
 else {
  $result->{NUM}=0;
  $result->{MSG}="Jabber server Error at port $port \n";
 }
 return $result;
}


sub Help
{
  print_revision($PROGNAME, '$Revision: 1.0 $');
  print "\nCheckjabber checks the Jabber server status\n";
  print "Usage:  checkjabber.pl -s server [-p port -v version -h help] \n";
  print "        (default port is 5222) \n\n";
}


##### Main #####

# TIMEOUT alarm
$SIG{'ALRM'} = sub {
		print ("ERROR: No response from server (alarm timeout)\n");
		exit $ERRORS{"UNKNOWN"};
};
alarm($TIMEOUT);


# Arguments
my %options=();
getopts("s:p:h:v",\%options);


# Options
if (defined $options{s}){
	if (not defined $options{p}){
		$options{p}='5222'; # default Jabber port
	}
	my $status=CheckJabber($options{s},$options{p});
	print "$status->{MSG}\n";	
	if ($status->{NUM}==1) {
		 exit $ERRORS{"OK"};
	}
	elsif ($status->{NUM}==0) {
		exit $ERRORS{"CRITICAL"};
	}
	else {
		exit $ERRORS{"UNKNOWN"};
	}
}
elsif ($options{v}) {
  print_revision($PROGNAME, '$Revision: 1.0 $');	
  exit $ERRORS{"UNKNOWN"};
}
else {
    Help;
    exit $ERRORS{"UNKNOWN"};
}