From: 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;