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

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

version 1.51, 2003/07/23 16:52:30 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/;
Line 1151  Learner B<H> solves a problem on server Line 1149  Learner B<H> solves a problem on server
 B<H>'s Home Server, so this information gets forwarded to B<E>, where  B<H>'s Home Server, so this information gets forwarded to B<E>, where
 the records of H are updated.  the records of H are updated.
   
 =head2 lond, lonc, lonnet  =head2 lond, lonc, and lonnet
   
 =begin latex  =begin latex
   
 \begin{figure}  \begin{figure}
 \includegraphics[width=0.75\paperwidth,keepaspectratio]{LONCAPA_Network_Diagram2}  \includegraphics[width=0.65\paperwidth,keepaspectratio]{LONCAPA_Network_Diagram2}
   \caption{\label{Overview_Of_Network_Communication}Overview of    \caption{\label{Overview_Of_Network_Communication}Overview of
 Network Communication} \end{figure}  Network Communication} \end{figure}
   
Line 1428  be copied over using the same mechanism Line 1426  be copied over using the same mechanism
 B<D7>, which represents steps Steps B<U4a> through B<U6> in the  B<D7>, which represents steps Steps B<U4a> through B<U6> in the
 replication figure.  replication figure.
   
 =head2 Load Balancing X<load balancing>  =head2 Load Balancing 
   
 C<lond> provides a function to query the server's current loadavg. As  X<load balancing>C<lond> provides a function to query the server's current loadavg. As
 a configuration parameter, one can determine the value of loadavg,  a configuration parameter, one can determine the value of loadavg,
 which is to be considered 100%, for example, 2.00.  which is to be considered 100%, for example, 2.00.
   
Removed from v.1.51  
changed lines
  Added in v.1.54

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