From: djk <djk>
Date: Mon, 25 Oct 1999 20:12:24 +0000 (+0000)
Subject: change time outs on selects
X-Git-Tag: R_1_33
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=b1ee33d8e6d949785f4b8f459c924bb16ebc0bc8;p=spider.git

change time outs on selects
---

diff --git a/Changes b/Changes
index 3e28a37f..1138ef06 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 24Oct99=======================================================================
 1. fixed announces so that nodes only get one of them (not two).
+2. Altered the select timeouts to prevent apparent excessive CPU usage on
+multiprocessor machines (or at least that is what seems to be the trouble
+here). 
 22Oct99=======================================================================
 1. allow filter CALLSIGNS to be in upper or lower case.
 2. create the concept of input and output filters, input filters are of the 
diff --git a/perl/client.pl b/perl/client.pl
index 37658764..a7185ab2 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -493,7 +493,7 @@ Msg->set_event_handler($stdin, "read" => \&rec_stdin);
 
 for (;;) {
 	my $t;
-	Msg->event_loop(1, 0.010);
+	Msg->event_loop(1, 1);
 	$t = time;
 	if ($t > $lasttime) {
 		if ($outqueue) {
diff --git a/perl/cluster.pl b/perl/cluster.pl
index d0ebbe8e..ceb099ca 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -368,7 +368,7 @@ print "orft we jolly well go ...\n";
 dbg('chan', "DXSpider version $version started...");
 for (;;) {
 	my $timenow;
-	Msg->event_loop(1, 0.001);
+	Msg->event_loop(1, 0.1);
 	$timenow = time;
 	process_inqueue();			# read in lines from the input queue and despatch them
 	
diff --git a/perl/console.pl b/perl/console.pl
index 8a1c8719..ceac24e2 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -426,7 +426,7 @@ Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
 
 for (;;) {
 	my $t;
-	Msg->event_loop(1, 0.010);
+	Msg->event_loop(1, 1);
 	$top->refresh() if $top->is_wintouched;
 	$bot->refresh();
 	$t = time;