File check_snmp_cisco_memutil of Package nagios-plugins-snmp

#!/usr/bin/perl
# CVS: @(#): $Id: check_snmp_cisco_memutil,v 1.1 2005/11/07 16:23:16 jamespeel Exp $
#
# AUTHORS:
#	Copyright (C) 2004, 2005 Altinity Limited
#
#    This file is part of Opsview
#
#    Opsview 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; either version 2 of the License, or
#    (at your option) any later version.
#
#    Opsview 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 Opsview; if not, write to the Free Software
#    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
#

use lib qw ( /usr/local/nagios/lib );
use Net::SNMP;
use Getopt::Std;

$script    = "check_snmp_cisco_memutil";
$script_version = "2.1.0";

$metric = 1;
$oid_sysDescr = ".1.3.6.1.2.1.1.1.0";
$oid_mem5minUsed = "1.3.6.1.4.1.9.9.48.1.1.1.5.1";
$oid_mem5minFree = "1.3.6.1.4.1.9.9.48.1.1.1.6.1";

$ipaddress = "192.168.10.30";
$version = "1";
$community = "public";
$timeout = 2;
$warning = 90;
$critical = 95;
$status = 0;
$returnstring = "";

$configfilepath = "/etc/nagios";

# Do we have enough information?
if (@ARGV < 1) {
     print "Too few arguments\n";
     usage();
}

getopts("h:H:C:w:c:");
if ($opt_h){
    usage();
    exit(0);
}
if ($opt_H){
    $hostname = $opt_H;
    # print "Hostname $opt_H\n";
}
else {
    print "No hostname specified\n";
    usage();
}
if ($opt_C){
    $community = $opt_C;
    # print "Using community $opt_C\n";
}
else {
    # print "Using community $community\n";
}
if ($opt_w){
    $warning = $opt_w;
    # print "Warning threshold: $opt_w%\n";
}
if ($opt_c){
    $critical = $opt_c;
    # print "Critical threshold: $opt_c%\n";
}

# Create the SNMP session
my ($s, $e) = Net::SNMP->session(
     -community  =>  $community,
     -hostname   =>  $hostname,
     -version    =>  $version,
     -timeout    =>  $timeout,
);

main();

# Close the session
$s->close();

if ($returnstring eq ""){
    $status = 3;
}

if ($status == 0){
    print "Status is OK - $returnstring\n";
    # print "$returnstring\n";
}
elsif ($status == 1){
    print "Status is a WARNING level - $returnstring\n";
}
elsif ($status == 2){
    print "Status is CRITICAL - $returnstring\n";
}
else{
    print "Status is UNKNOWN\n";
}
 
exit $status;

####################################################################
# This is where we gather data via SNMP and return results         #
####################################################################

sub main {

if (!defined($s->get_request($oid_mem5minUsed))) {
        if (!defined($s->get_request($oid_sysDescr))) {
            $returnstring = "SNMP agent not responding";
            $status = 1;
            return 1;
        }
        else {
            $returnstring = "SNMP OID does not exist";
            $status = 1;
            return 1;
        }
    }
     foreach ($s->var_bind_names()) {
         $mem5minused = $s->var_bind_list()->{$_};
    }

if (!defined($s->get_request($oid_mem5minFree))) {
        if (!defined($s->get_request($oid_sysDescr))) {
            $returnstring = "SNMP agent not responding";
            $status = 1;
            return 1;
        }
        else {
            $returnstring = "SNMP OID does not exist";
            $status = 1;
            return 1;
        }
    }
     foreach ($s->var_bind_names()) {
         $mem5minfree = $s->var_bind_list()->{$_};
    }
    
    $memtotal = $mem5minused + $mem5minfree;
    $mempcused = ((100 / $memtotal) * $mem5minused);
    
    $temp = sprintf "MEMORY: total: %.2f MB, used: %.2f MB (%.0f%%), free: %.2f MB", ($memtotal / 1000000), ($mem5minused / 1000000), $mempcused, ($mem5minfree / 1000000);
    
    
    append($temp);

if ($mempcused >= $warning){
        $status = 1;
    }
    if ($mempcused >= $critical){
        $status = 2;
    }
}

####################################################################
# help and usage information                                       #
####################################################################

sub usage {
    print << "USAGE";
--------------------------------------------------------------------	 
$script v$script_version

Memory utilisation on Cisco devices

Usage: $script -H <hostname> -c <community> [...]
Options: -H 		Hostname or IP address
                 -C 		Community (default is public)
                 -w 		Warning threshold (as %)
                 -c 		Critical threshold (as %)

--------------------------------------------------------------------	 
Copyright 2004 Altinity Limited	 
	 
This program is free software; you can redistribute it or modify
it under the terms of the GNU General Public License
--------------------------------------------------------------------

USAGE
     exit 1;
}

####################################################################
# Appends string to existing $returnstring                         #
####################################################################

sub append {
    my $appendstring =    @_[0];    
    $returnstring = "$returnstring$appendstring";
}