}
if (!$main::is_win && ($want{proc} || $want{all})) {
+ $ENV{COLUMNS} = 250;
my $secs;
my $f = new IO::File "ps aux |";
# dbg("$f");
chomp;
my $l = $_;
# dbg($l);
- next unless $l =~ /cluster\.p/;
+ next unless $l =~ m{cluster\.pl$};
+ next if $l =~ m{bash\s+\-c};
my @f = split /\s+/, $l;
# dbg("$f[9]");
my ($m, $s) = split /:/, $f[9];
$f->close;
}
if ($secs) {
- $mc->cfgprint('proc', [qw(noi)], 64000,
+ $mc->cfgprint('proc', [qw(noo perminute)], 5*60,
"Processor Usage",
- 'Secs', 'Secs', 'Secs') unless $want{dataonly};
+ 'Proc Secs / min', 'Proc Secs', 'Proc Secs') unless $want{dataonly};
$mc->data('proc', $secs, $secs, "Processor Usage") unless $want{cfgonly};
}
}