#!/usr/bin/perl -w

## Var.
$totMem_deneb = 0;
$totCpu_deneb = 0;
$totMem_matrix = 0;
$totCpu_matrix = 0;
$totMem_struts = 0;
$totCpu_struts = 0;
$totMem_redes = 0;
$totCpu_redes = 0;
$totMem_svntel = 0;
$totCpu_svntel = 0;
$totMem_proteus = 0;
$totCpu_proteus = 0;

@_jpsMem_deneb = `sudo jps deneb -auxw | perl -lane 'print \$F[3]' | grep -v MEM`;
@_jpsCpu_deneb = `sudo jps deneb -auxw | perl -lane 'print \$F[2]' | grep -v CPU`;

@_jpsMem_matrix = `sudo jps matrix -auxw | perl -lane 'print \$F[3]' | grep -v MEM`;
@_jpsCpu_matrix = `sudo jps matrix -auxw | perl -lane 'print \$F[2]' | grep -v CPU`;

@_jpsMem_struts = `sudo jps struts -auxw | perl -lane 'print \$F[3]' | grep -v MEM`;
@_jpsCpu_struts = `sudo jps struts -auxw | perl -lane 'print \$F[2]' | grep -v CPU`;

@_jpsMem_redes = `sudo jps redes -auxw | perl -lane 'print \$F[3]' | grep -v MEM`;
@_jpsCpu_redes = `sudo jps redes -auxw | perl -lane 'print \$F[2]' | grep -v CPU`;

@_jpsMem_svntel = `sudo jps svntel -auxw | perl -lane 'print \$F[3]' | grep -v MEM`;
@_jpsCpu_svntel = `sudo jps svntel -auxw | perl -lane 'print \$F[2]' | grep -v CPU`;

@_jpsMem_proteus = `sudo jps proteus -auxw | perl -lane 'print \$F[3]' | grep -v MEM`;
@_jpsCpu_proteus = `sudo jps proteus -auxw | perl -lane 'print \$F[2]' | grep -v CPU`;

($totMem_deneb+=$_) for @_jpsMem_deneb;
($totMem_deneb+=$_) for @_jpsCpu_deneb;
$largo_deneb = $#_jpsMem_deneb;

($totMem_matrix+=$_) for @_jpsMem_matrix; 
($totCpu_matrix+=$_) for @_jpsCpu_matrix;
$largo_matrix = $#_jpsMem_matrix;

($totMem_struts+=$_) for @_jpsMem_struts;
($totCpu_struts+=$_) for @_jpsCpu_struts;
$largo_struts = $#_jpsMem_struts;

($totMem_redes+=$_) for @_jpsMem_redes;
($totCpu_redes+=$_) for @_jpsCpu_redes;
$largo_redes = $#_jpsMem_redes;

($totMem_svntel+=$_) for @_jpsMem_svntel;
($totCpu_svntel+=$_) for @_jpsCpu_svntel;
$largo_svntel = $#_jpsMem_svntel;

($totMem_proteus+=$_) for @_jpsMem_proteus;
($totCpu_proteus+=$_) for @_jpsCpu_proteus;
$largo_proteus = $#_jpsMem_proteus;
print "$totMem_deneb:$totCpu_deneb:$totMem_matrix:$totCpu_matrix:$totMem_struts:$totCpu_struts:$totMem_redes:$totCpu_redes:$totMem_svntel:$totCpu_svntel:$totMem_proteus:$totCpu_proteus\n";
##$j_mem %mem in use
##$j_cpu %cpu in use
##update
`/usr/local/bin/rrdtool update /home/mjail/WWW/data_base/j_Use.rrd N:$totMem_deneb:$totCpu_deneb:$totMem_matrix:$totCpu_matrix:$totMem_struts:$totCpu_struts:$totMem_redes:$totCpu_redes:$totMem_svntel:$totCpu_svntel:$totMem_proteus:$totCpu_proteus`