change time outs on selects

diff --git a/Changes b/Changes
index 3e28a37f8a572c720bd72099db4675a0afa61364..1138ef06749d1bd491a9a398516d50d1e4a7fd2e 100644 (file)
--- 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 376587645c8599abb15b2bb43ac82238afad2722..a7185ab208de387c0a58df593ca3c4597e2a5151 100755 (executable)
--- 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 d0ebbe8e16f36d6cc4776e0297c7242ed8bdd5fc..ceb099ca7eb4f6b64977447e6a800d7c5be0c1e6 100755 (executable)
--- 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 8a1c8719f8b7f24d1423c26f328c154c242e6714..ceac24e278890d1275fa6f904761d1993355061e 100755 (executable)
--- 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;