projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added better anti spot-sucking
[spider.git]
/
cmd
/
mrtg.pl
diff --git
a/cmd/mrtg.pl
b/cmd/mrtg.pl
index 1cf1b6173e3d237c3751459025f5ba1f436579b1..2542edf5a3f0114c8977e09229222d97e4723416 100644
(file)
--- a/
cmd/mrtg.pl
+++ b/
cmd/mrtg.pl
@@
-61,6
+61,7
@@
if ($want{agw}) {
}
if (!$main::is_win && ($want{proc} || $want{all})) {
}
if (!$main::is_win && ($want{proc} || $want{all})) {
+ $ENV{COLUMNS} = 250;
my $secs;
my $f = new IO::File "ps aux |";
# dbg("$f");
my $secs;
my $f = new IO::File "ps aux |";
# dbg("$f");
@@
-69,7
+70,8
@@
if (!$main::is_win && ($want{proc} || $want{all})) {
chomp;
my $l = $_;
# dbg($l);
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];
my @f = split /\s+/, $l;
# dbg("$f[9]");
my ($m, $s) = split /:/, $f[9];
@@
-79,9
+81,9
@@
if (!$main::is_win && ($want{proc} || $want{all})) {
$f->close;
}
if ($secs) {
$f->close;
}
if ($secs) {
- $mc->cfgprint('proc', [qw(no
i)], 6400
0,
+ $mc->cfgprint('proc', [qw(no
o perminute)], 5*6
0,
"Processor Usage",
"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};
}
}
$mc->data('proc', $secs, $secs, "Processor Usage") unless $want{cfgonly};
}
}