From: minima <minima>
Date: Tue, 27 Mar 2001 23:43:04 +0000 (+0000)
Subject: switch off monitoring on finish
X-Git-Tag: R_1_47~88
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b94259b7a3e97751662280d0cbd606ff7a68e1e;p=spider.git

switch off monitoring on finish
---

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 26939af9..8aa47dbf 100644
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -45,7 +45,7 @@ sub init
 	
 	finish();
 	dbg('err', "AGW initialising and connecting to $addr/$port ...");
-	$sock = IO::Socket::INET->new(PeerAddr => $addr, PeerPort => $port, Proto=>'tcp');
+	$sock = IO::Socket::INET->new(PeerAddr => $addr, PeerPort => $port, Proto=>'tcp', Timeout => 30);
 	unless ($sock) {
 		dbg('err', "Cannot connect to AGW Engine at $addr/$port $!");
 		return;
@@ -63,6 +63,7 @@ sub init
 	# R frame for the release number
 	# G frame to ask for ports
 	# X frame to say who we are
+	# optional m frame to enable monitoring
 	_sendf('R');
 	_sendf('G');
 	_sendf('X', $main::mycall);
@@ -80,6 +81,7 @@ sub finish
 			$_->disconnect;
 		}
 		# say we are going
+		_sendf('m') if $monitor;
 		_sendf('x', $main::mycall);
 		Msg->sleep(2);
 		Msg::set_event_handler($sock, read=>undef, write=>undef, error=>undef);