#!/usr/bin/perl

$pid = `cat /usr/local/opmon/var/opmon.lock`;
chomp($pid);
@ret = `ps -o rss,size,vsize -p $pid`;

@values = split(/[\t ]+/,$ret[1]);
chomp(@values);

$rss = $values[1];
$size = $values[2];
$vsize = $values[3];

print "OK - Tamanho processo opmon rss=$rss size=$size vsize=$vsize|rss=$rss;;;; size=$size;;;; vsize=$vsize;;;;\n";
exit 0;