#!/usr/bin/perl

###################
# check script to monitor memory usage on an EMC Isilon node.
#  
# The script is maintained at https://github.com/throwsb/nagios-checks/
#
# Licensed under GNU GPLv3 - see the LICENSE file in the git repository.
#
###################


use POSIX;
use Getopt::Std;
use Sys::Hostname;

$TRUE = 1;
$FALSE = 0;
$STATUS_OK=0;
$STATUS_WARN=1;
$STATUS_CRIT=2;
$STATUS_UNKNWN=3;
($MYNAME = $0) =~ s/.*\///;
($HOST) = split /\./, hostname();
$DEBUG=$FALSE;
$STATUS = "UNKNOWN";
$CRITICAL = 90;
$WARNING = 80;

$SWALK = "/usr/bin/snmpwalk -Oq -v2c";
$LINUXOIDMemTot = ".1.3.6.1.4.1.2021.4.5";
$LINUXOIDMemAvail = ".1.3.6.1.4.1.2021.4.6";
$LINUXOIDMemCache = ".1.3.6.1.4.1.2021.4.15";
$MemTot = "0";
$MemAvail = "0";
$MemCache = "0";
$MemFree = "0";
$MemUsed = "100"; ##Setting used to 100% for default value##
$SNMPCOM = "";
$HOST = "";
$tmp = "";

getopts('dc:w:C:h:') or Usage();
$DEBUG = $TRUE if ($opt_d);
$CRITICAL = $opt_c if ($opt_c);
$WARNING = $opt_w if ($opt_w);
$SNMPCOM = $opt_C if ($opt_C);
$HOST = $opt_h if ($opt_h);

if ($WARNING >= $CRITICAL) {
  print ("\n Warning is greater than or equal to Critical: W:$WARNING C:$CRITICAL\n");
  Usage();
}elsif ($SNMPCOM eq "") {
  print ("\nEnter the SNMP community name:\n");
  Usage();
}elsif ($HOST eq "" ) {
  print ("\nEnter the Host name:\n");
  Usage();
}

sub Usage {

  warn <<EOF;
  
  $MYNAME - Checks the memory usage on a EMC Isilon Node with a SNMP query.
  
  usage: $MYNAME -c <critical value> -w <warning value> -C <SNMP Community Name> -h <host>
	
	-c <interger>
		Exit with a critical status if greater than the percent of free memory.
	-w <interger>
		Exit with a warning status if greater than the percent of free memory.
	-C <SNMP Community name>
		The snmp comunity name used by the server.  e.g. public
	-h <hostname>
		The hostname of the server that is being queried.

EOF
  print ("UNKNOWN:AVAIL: $MemAvail, CACHE:$MemCache, TOT:$MemTot FREE:$MemFree USED:$MemUsed\%\n");
  exit($STATUS_UNKNWN);
}

GetSnmp ();
CalcMem ();
NagiosStatus ();

sub GetSnmp {
 Debug("$SWALK -c $SNMPCOM $HOST $LINUXOIDMemTot");
 ($tmp,$MemTot) = split(/ /,`$SWALK -c $SNMPCOM $HOST $LINUXOIDMemTot`);
 chomp($MemTot);
 Debug("$SWALK -c $SNMPCOM $HOST $LINUXOIDMemCache");
 ($tmp,$MemCache) = split(/ /,`$SWALK -c $SNMPCOM $HOST $LINUXOIDMemCache`);
 chomp($MemCache);
 Debug("$SWALK -c $SNMPCOM $HOST $LINUXOIDMemFree");
 ($tmp,$MemAvail) = split(/ /,`$SWALK -c $SNMPCOM $HOST $LINUXOIDMemAvail`);
 chomp($MemAvail);

 Debug("$HOST > AVAIL:$MemAvail, CACHE:$MemCache, TOT:$MemTot, FREE:$MemFree ");

}

sub CalcMem {
  
  ##$MemFree=$MemCache+$MemAvail;
  $MemFree=$MemAvail;
  Debug(" ceil> ((($MemTot minus $MemFree) times 100) div by MemTot)");
  $MemUsed = ceil((($MemTot - $MemFree)*100)/$MemTot);
  Debug("AVAIL:$MemAvail, CACHE:$MemCache, TOT:$MemTot FREE:$MemFree USED:$MemUsed\%");

}

sub NagiosStatus {
  if ($CRITICAL < $MemUsed) {
    print ("CRITICAL: TOT:$MemTot AVAIL:$MemAvail CACHE:$MemCache FREE:$MemFree USED:$MemUsed\%\n");
    exit($STATUS_CRIT);
  }elsif ($WARNING < $MemUsed) {
    print ("WARNING: TOT:$MemTot AVAIL:$MemAvail CACHE:$MemCache FREE:$MemFree USED:$MemUsed\%\n");
    exit($STATUS_WARN);
  }else {
    print ("OK: TOT:$MemTot AVAIL:$MemAvail CACHE:$MemCache FREE:$MemFree USED:$MemUsed\%\n");
    exit($STATUS_OK);
  }
}
 

sub Debug
{
  my ($msg) = @_;
  warn "$msg\n" if ($DEBUG);
}