fleshed out some commands (particularly flag setting and unsetting)

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index c3efad349185290ce4161c976d8bffef90ce27fc..c5b4bbec805e2ef04a8ae01c081286e1b5eb46b1 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -118,7 +118,7 @@ $call = uc shift @ARGV;
 $call = uc $mycall if !$call; 
 $connsort = lc shift @ARGV;
 $connsort = 'local' if !$connsort;
-$mode = ($connsort =~ /^ax/) ? 1 : 2;
+$mode = ($connsort =~ /^ax/o) ? 1 : 2;
 setmode();
 
 #select STDOUT; $| = 1;
@@ -131,5 +131,16 @@ $SIG{'HUP'} = \&sig_term;
 $conn = Msg->connect("$clusteraddr", $clusterport, \&rec_socket);
 $conn->send_now("A$call|$connsort");
 Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
-Msg->event_loop();
+
+$lasttime = time;
+for (;;) {
+  my $t;
+  Msg->event_loop(1, 0.010);
+  $t = time;
+  if (t > $lasttime+660 && $connsort =~ /^ax/o) {            # every e
+    print pack('xx');
+       STDOUT->fflush();
+       $lasttime = $t;
+  }
+}