loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

-version 1.90, 2011/06/03 20:45:10
+version 1.91, 2011/10/28 14:26:15
  Line 652  sub check_delayed_msg {
  # pong to all servers that have delayed messages
  # this will trigger a reverse connection, which should flush the buffers
      foreach my $tryserver (keys %servers) {
- 	my $answer=&Apache::lonnet::reply("pong",$tryserver);
+         my $answer;
- 	&log($fh,"Pong to $tryserver: $answer<br />");
+         eval {
+             local $SIG{ ALRM } = sub { die "TIMEOUT" };
+             alarm(20);
+             $answer = &Apache::lonnet::reply("pong",$tryserver);
+             alarm(0);
+         };
+         if ($@ && $@ =~ m/TIMEOUT/) {
+              print "time out while contacting: $tryserver for pong\n";
+         } else {
+ 	     &log($fh,"Pong to $tryserver: $answer<br />");
+         }
      }
  }