#!/usr/bin/perl

#($warning, $critical) = @ARGV;
$VERSION="1.0";

$STATUS_FILE="/usr/local/nagios/var/status.dat";

if (not(-e "$STATUS_FILE")) {
   print "CRITICO - $STATUS_FILE nao existe.\n";
   exit(2);
}

$nagios_pid=`cat $STATUS_FILE | grep nagios_pid | cut -d"=" -f2 | tr -d "\n\r"`;
$mem_usage_pid=` ps -e -o rss,size,vsize,pid | grep $nagios_pid | tr -d "\n\r"`;

#print "$nagios_pid\n $mem_usage_pid\n";
$mem_usage_pid =~ s/^\s*//g;
$mem_usage_pid =~ s/\s*$//g;
($rss, $size, $vsize, $pid)=split(/[\t ]+/, $mem_usage_pid);

#print "($rss, $size, $vsize)\n";

print "OK - rss $rss / size $size / vsize $vsize | rss=$rss"."kb".";;;; size=$size"."kb".";;;; vsize=$vsize"."kb".";;;;\n";
exit(0);