Diff for /loncom/loncnew between versions 1.34 and 1.37

version 1.34, 2003/12/11 23:18:37 version 1.37, 2003/12/16 16:12:19
Line 210  sub GetPeername { Line 210  sub GetPeername {
  return $peerfile;   return $peerfile;
     }      }
 }  }
 #----------------------------- Timer management ------------------------  
 =pod  =pod
   
 =head2 Debug  =head2 Debug
Line 267  sub SocketTimeout { Line 266  sub SocketTimeout {
                                 # a connection failure:                                  # a connection failure:
     $ConnectionRetriesLeft--;      $ConnectionRetriesLeft--;
 }  }
   #----------------------------- Timer management ------------------------
   
 =pod  =pod
   
Line 301  sub Tick { Line 301  sub Tick {
     #      #
     #  For each inflight transaction, tick down its timeout counter.      #  For each inflight transaction, tick down its timeout counter.
     #      #
     foreach my $item (keys %ActiveTransactions) {  
  my $Socket = $ActiveTransactions{$item}->getServer();  
  $Socket->Tick();  
     }  
     foreach my $item (keys %ActiveConnections) {      foreach my $item (keys %ActiveConnections) {
  my $State = $ActiveConnections{$item}->data->GetState();   my $State = $ActiveConnections{$item}->data->GetState();
  if ($State ne 'Idle' && $State ne 'SendingRequest' &&   if ($State ne 'Idle') {
     $State ne 'ReceivingReply') {  
     Debug(5,"Ticking Socket $State $item");      Debug(5,"Ticking Socket $State $item");
     $ActiveConnections{$item}->data->Tick();      $ActiveConnections{$item}->data->Tick();
  }   }
Line 659  sub KillSocket { Line 655  sub KillSocket {
     }      }
     if(exists($ActiveConnections{$Socket})) {      if(exists($ActiveConnections{$Socket})) {
  delete($ActiveConnections{$Socket});   delete($ActiveConnections{$Socket});
    $ConnectionCount--;
    if ($ConnectionCount < 0) { $ConnectionCount = 0; }
     }      }
     $ConnectionCount--;  
   
     #  If the connection count has gone to zero and there is work in the      #  If the connection count has gone to zero and there is work in the
     #  work queue, the work all gets failed with con_lost.      #  work queue, the work all gets failed with con_lost.
     #      #

Removed from v.1.34  
changed lines
  Added in v.1.37


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