[BACK]Return to lonc CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/Attic/lonc between versions 1.52 and 1.54

version 1.52, 2003/07/25 01:16:29 version 1.54, 2003/08/29 18:25:01
Line 124  close(CONFIG); Line 124  close(CONFIG);
 %childatt               = ();       # number of attempts to start server  %childatt               = ();       # number of attempts to start server
                                     # for ID                                      # for ID
   
 $childmaxattempts=5;  $childmaxattempts=15;
   
 # ---------------------------------------------------- Fork once and dissociate  # ---------------------------------------------------- Fork once and dissociate
 &status("Fork and dissociate");  &status("Fork and dissociate");
Line 638  sub handle { Line 638  sub handle {
             $request="enc:$cmdlength:$encrequest";              $request="enc:$cmdlength:$encrequest";
         }          }
 # --------------------------------------------------------------- Main exchange  # --------------------------------------------------------------- Main exchange
  $answer = londtransaction($remotesock, $request, 300);   $answer = londtransaction($remotesock, $request, 60);
   
  if($DEBUG) {    if($DEBUG) { 
     &logthis("<font color=green> Request data exchange complete");      &logthis("<font color=green> Request data exchange complete");
Line 759  sub openremote { Line 759  sub openremote {
   
     sleep 5;      sleep 5;
     &status("Ponging $conserver");      &status("Ponging $conserver");
     print $remotesock "pong\n";      $answer= londtransaction($remotesock,"pong",60);
     $answer=<$remotesock>;  
     chomp($answer);      chomp($answer);
     if ($answer!~/^$conserver/) {      if ($answer!~/^$conserver/) {
  &logthis("Pong reply: >$answer<");   &logthis("Pong reply: >$answer<");
Line 768  sub openremote { Line 767  sub openremote {
 # ----------------------------------------------------------- Initialize cipher  # ----------------------------------------------------------- Initialize cipher
   
     &status("Initialize cipher");      &status("Initialize cipher");
     print $remotesock "ekey\n";      my $buildkey=londtransaction($remotesock,"ekey",60);
     my $buildkey=<$remotesock>;  
     my $key=$conserver.$perlvar{'lonHostID'};      my $key=$conserver.$perlvar{'lonHostID'};
     $key=~tr/a-z/A-Z/;      $key=~tr/a-z/A-Z/;
     $key=~tr/G-P/0-9/;      $key=~tr/G-P/0-9/;
Removed from v.1.52  
changed lines
  Added in v.1.54

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>