From: minima <minima>
Date: Mon, 30 Sep 2002 02:30:39 +0000 (+0000)
Subject: make proc work in production
X-Git-Tag: PRE-1-52~166
X-Git-Url: http://dxspider.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8f5ec9dc0f8bf9b31e4d606c36a2939e032c00a;p=spider.git

make proc work in production
---

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];