--- loncom/Attic/lonc	2003/07/25 01:16:29	1.52
+++ loncom/Attic/lonc	2003/08/29 18:25:01	1.54
@@ -5,7 +5,7 @@
 # provides persistent TCP connections to the other servers in the network
 # through multiplexed domain sockets
 #
-# $Id: lonc,v 1.52 2003/07/25 01:16:29 bowersj2 Exp $
+# $Id: lonc,v 1.54 2003/08/29 18:25:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -124,7 +124,7 @@ close(CONFIG);
 %childatt               = ();       # number of attempts to start server
                                     # for ID
 
-$childmaxattempts=5;
+$childmaxattempts=15;
 
 # ---------------------------------------------------- Fork once and dissociate
 &status("Fork and dissociate");
@@ -638,7 +638,7 @@ sub handle {
             $request="enc:$cmdlength:$encrequest";
         }
 # --------------------------------------------------------------- Main exchange
-	$answer = londtransaction($remotesock, $request, 300);
+	$answer = londtransaction($remotesock, $request, 60);
 
 	if($DEBUG) { 
 	    &logthis("<font color=green> Request data exchange complete");
@@ -759,8 +759,7 @@ sub openremote {
 
     sleep 5;
     &status("Ponging $conserver");
-    print $remotesock "pong\n";
-    $answer=<$remotesock>;
+    $answer= londtransaction($remotesock,"pong",60);
     chomp($answer);
     if ($answer!~/^$conserver/) {
 	&logthis("Pong reply: >$answer<");
@@ -768,8 +767,7 @@ sub openremote {
 # ----------------------------------------------------------- Initialize cipher
 
     &status("Initialize cipher");
-    print $remotesock "ekey\n";
-    my $buildkey=<$remotesock>;
+    my $buildkey=londtransaction($remotesock,"ekey",60);
     my $key=$conserver.$perlvar{'lonHostID'};
     $key=~tr/a-z/A-Z/;
     $key=~tr/G-P/0-9/;