From b8f5ec9dc0f8bf9b31e4d606c36a2939e032c00a Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 30 Sep 2002 02:30:39 +0000 Subject: [PATCH] make proc work in production --- cmd/mrtg.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/cmd/mrtg.pl b/cmd/mrtg.pl index 1cf1b617..6ee9d0b7 100644 --- a/cmd/mrtg.pl +++ b/cmd/mrtg.pl @@ -61,6 +61,7 @@ if ($want{agw}) { } if (!$main::is_win && ($want{proc} || $want{all})) { + $ENV{COLUMNS} = 250; my $secs; my $f = new IO::File "ps aux |"; # dbg("$f"); @@ -69,7 +70,7 @@ if (!$main::is_win && ($want{proc} || $want{all})) { chomp; my $l = $_; # dbg($l); - next unless $l =~ /cluster\.p/; + next unless $l =~ m{/spider/perl/cluster\.pl$}; my @f = split /\s+/, $l; # dbg("$f[9]"); my ($m, $s) = split /:/, $f[9]; -- 2.43.0