#!/usr/bin/perl -w

## Var.

##Open 'w' file.
$file = 'dataTest';
$totMem = 0;
$totCpu = 0;

unless (open(FILE,">$file")){
        print STDERR "[SERVER ERROR] No se puedo abrir archivo";
        exit;
}
@_jpsMem = `sudo jps @ARGV[0] -auxw | perl -lane 'print \$F[3]' | grep -v MEM`;
@_jpsCpu = `sudo jps @ARGV[0] -auxw | perl -lane 'print \$F[2]' | grep -v CPU`;

($totMem+=$_) for @_jpsMem;
($totCpu+=$_) for @_jpsCpu;
$largo = $#_jpsMem;

##Bash print
print"[MONITOR FREEBSD][INFO] \n";
print "[Proccess number using resourses $largo\n";
print "[%MEM]	[%CPU]\n";
for($i=0; $i < $largo; $i++ ) { print "$_jpsMem[$i]	$_jpsCpu[$i]"; }
print"[MONITOR FREEBSD][TOTAL] \n";
print "$totMem		$totCpu\n";

##File print
print FILE "$totMem		$totCpu\n";
close(FILE);

##$j_mem %mem in use
##$j_cpu %cpu in use
##update
/usr/bin/rrdtool update /home/mjail/WWW/data_base/j_Use.rrd N:$totMem:$totCpu