From b8f5ec9dc0f8bf9b31e4d606c36a2939e032c00a Mon Sep 17 00:00:00 2001
From: minima <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