[LON-CAPA-cvs] cvs: loncom / LondConnection.pm

[foxr]

foxr		Tue Aug 26 05:21:01 2003 EDT

  Modified files:              
    /loncom	LondConnection.pm 
  Log:
  Make the socket/connection timeoutable during connection setup negotiation.  
  Otherwise  we can have some nasty cases where we are able to connect within
  the socket connection timeout to a brain dead lond, but then the connection
  setup negotiation (init etc.) can take much longer than our paitence permits to
  complete.
  
  
Index: loncom/LondConnection.pm
diff -u loncom/LondConnection.pm:1.8 loncom/LondConnection.pm:1.9
--- loncom/LondConnection.pm:1.8	Sat Aug  2 20:45:54 2003
+++ loncom/LondConnection.pm	Tue Aug 26 05:21:01 2003
@@ -1,7 +1,7 @@
 #   This module defines and implements a class that represents
 #   a connection to a lond daemon.
 #
-# $Id: LondConnection.pm,v 1.8 2003/08/03 00:45:54 foxr Exp $
+# $Id: LondConnection.pm,v 1.9 2003/08/26 09:21:01 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -145,8 +145,8 @@
 		     TimeoutCallback    => undef,
 		     TransitionCallback => undef,
 	             Timeoutable        => 0,
-	             TimeoutValue       => 60,
-             TimeoutRemaining   => 0,
+	             TimeoutValue       => 30,
+		     TimeoutRemaining   => 0,
 		     CipherKey          => "",
 		     Cipher             => undef};
     bless($self, $class);
@@ -162,6 +162,7 @@
     #
     $self->Transition("Connected");
     $self->{InformWritable}     = 1;    # When  socket is writable we send init
+    $self->{Timeoutable}        = 1;    # Timeout allowed during startup negotiation. 
     $self->{TransactionRequest} = "init\n";
     
     #