diff options
Diffstat (limited to 'contrib/check_sockets.pl')
| -rw-r--r-- | contrib/check_sockets.pl | 145 |
1 files changed, 145 insertions, 0 deletions
diff --git a/contrib/check_sockets.pl b/contrib/check_sockets.pl new file mode 100644 index 00000000..b8ae24a2 --- /dev/null +++ b/contrib/check_sockets.pl @@ -0,0 +1,145 @@ +#! /usr/bin/perl +# ------------------------------------------------------------------------------ +# File Name: check_sockets.pl +# Author: Richard Mayhew - South Africa +# Date: 2000/07/11 +# Version: 1.0 +# Description: This script will check to see how may open sockets +# a server has and waron respectivly +# Email: netsaint@splash.co.za +# ------------------------------------------------------------------------------ +# Copyright 1999 (c) Richard Mayhew +# Credits go to Ethan Galstad for coding Nagios +# If any changes are made to this script, please mail me a copy of the +# changes :) +# Some code taken from Charlie Cook (check_disk.pl) +# License GPL +# +# ------------------------------------------------------------------------------ +# Date Author Reason +# ---- ------ ------ +# 1999/09/20 RM Creation +# 1999/09/20 TP Changed script to use strict, more secure by +# specifying $ENV variables. The bind command is +# still insecure through. Did most of my work +# with perl -wT and 'use strict' +# +# ------------------------------------------------------------------------------ + +# -----------------------------------------------------------------[ Require ]-- +require 5.004; +# --------------------------------------------------------------------[ Uses ]-- +use Socket; +use strict; +# --------------------------------------------------------------[ Enviroment ]-- +$ENV{'PATH'}='/bin:/sbin:/usr/bin:/usr/sbin'; +$ENV{BASH_ENV} = ""; +# ------------------------------------------------------------------[ Global ]-- +my $TIMEOUT = 20; +my %ERRORS = ( + 'UNKNOWN', '-1', + 'OK', '0', + 'WARNING', '1', + 'CRITICAL', '2'); +# --------------------------------------------------------------[ connection ]-- +sub connection +{ + my ($in_total,$in_warn,$in_crit,$in_high) = @_; + my $state; + my $answer; + + $in_total =~ s/\ //g; + if ($in_total >= 0) { + + if ($in_total > $in_crit) { + $state = "CRITICAL"; + $answer = "Critical Number Of Sockets Connected : $in_total (Limit = $in_crit)\n"; + + } elsif ($in_total > $in_warn) { + $state = "WARNING"; + $answer = "Warning Number Of Sockets Connected : $in_total (Limit = $in_warn)\n"; + + } else { + if ($in_high ne "") { + $answer = "Sockets OK - Current Sockets: $in_total : $in_high\n"; + } + if ($in_high eq "") { + $answer = "Sockets OK - Current Sockets: $in_total\n"; + } + $state = "OK"; + } + + } else { + $state = "UNKNOWN"; + $answer = "Something is Really WRONG! Sockets Is A Negative Figure!\n"; + } + + print $answer; + exit $ERRORS{$state}; +} + +# -------------------------------------------------------------------[ usage ]-- +sub usage +{ + print "Minimum arguments not supplied!\n"; + print "\n"; + print "Perl Check Sockets plugin for Nagios\n"; + print "Copyright (c) 2000 Richard Mayhew\n"; + print "\n"; + print "Usage: check_sockets.pl <type> <warn> <crit>\n"; + print "\n"; + print "<type> = TOTAL, TCP, UDP, RAW.\n"; + print "<warn> = Number of sockets connected at which a warning message will be generated.[Default = 256]\n"; + print "<crit> = Number of sockets connected at which a critical message will be generated.[Default = 512]\n"; + exit $ERRORS{"UNKNOWN"}; + +} + +# ====================================================================[ MAIN ]== +MAIN: +{ + my $type = shift || &usage; + my $warn = shift || 256; + my $crit = shift || 512; + my $data; + my @data; + my $line; + my $data1; + my $data2; + my $data3; + my $junk; + my $total1; + my $total2; + $type = uc $type; + if ($type eq "TOTAL") { + $type = "sockets"; + } + + # Just in case of problems, let's not hang Nagios + $SIG{'ALRM'} = sub { + print "Somthing is Taking a Long Time, Increase Your TIMEOUT (Currently Set At $TIMEOUT Seconds)\n"; + exit $ERRORS{"UNKNOWN"}; + }; + + $data = `/bin/cat /proc/net/sockstat`; + @data = split("\n",$data); + alarm($TIMEOUT); + my $output = ""; + my $high; + + + foreach $line (@data) { + if ($line =~ /$type/) { + ($data1,$data2,$data3) = split(" ",$line,3); + + if ($data3 =~ /highest/){ + ($total1,$junk,$total2) = split(" ",$data3,3); + $output = $total1; + $high = $total2; + } + else {$output = $data3;} + alarm(0); + connection($output,$warn,$crit,$high); + } + } +} |