} else {
my $id = `id -u $hog`;
chomp($id);
- my $top = `chcontext --ctx $id top -b -n 1`;
+ my $top = `/usr/sbin/chcontext --ctx $id /usr/bin/top -b -n 1`;
syslog ("warning", "pl_mom: Resetting slice $hog");
if (! $debug) {
slice_reset($hog);
sub get_slice_info {
if (! $debug) {
- #$content = get "http://127.0.0.1:3100/slicestat";
$content = `curl -s http://127.0.0.1:3100/slicestat`;
} else {
- $content = `cat ../pl_mom-deploy/slicestat`
+ #$content = `cat ../pl_mom-deploy/slicestat`
+ $content = `curl -s http://127.0.0.1:3100/slicestat`;
}
my @lines = split(/\n/, $content);
%Slice = ();