[BACK]Return to LondConnection.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/LondConnection.pm between versions 1.39 and 1.42

version 1.39, 2006/01/27 20:37:12 version 1.42, 2006/08/25 21:20:11
Line 297  sub new { Line 297  sub new {
     return undef;      return undef;
  }   }
   
     }      } else {
     else {  
  #  Remote peer:  I'd like to do ssl, but if my host key or certificates   #  Remote peer:  I'd like to do ssl, but if my host key or certificates
  #  are not all installed, my only choice is insecure, if that's    #  are not all installed, my only choice is insecure, if that's 
  #  allowed:   #  allowed:
Line 333  sub new { Line 332  sub new {
     #      #
     # Set socket to nonblocking I/O.      # Set socket to nonblocking I/O.
     #      #
     my $socket = $self->{Socket};  
     my $flags    = fcntl($socket, F_GETFL,0);      my $flags    = fcntl($socket, F_GETFL,0);
     if(!$flags) {      if(!$flags) {
  $socket->close;   $socket->close;
Line 738  sub InitiateTransaction { Line 736  sub InitiateTransaction {
   
     # Setup the trasaction      # Setup the trasaction
     # currently no version of lond supports inlining the sethost      # currently no version of lond supports inlining the sethost
     if ($self->PeerVersion() <= 10000000) {      if ($self->PeerVersion() <= 321) {
  if ($server ne $self->{LoncapaHim}) {   if ($server ne $self->{LoncapaHim}) {
     $self->{NextRequest}        = $data;      $self->{NextRequest}        = $data;
     $self->{TransactionRequest} = "$sethost:$server\n";      $self->{TransactionRequest} = "$sethost:$server\n";
Line 747  sub InitiateTransaction { Line 745  sub InitiateTransaction {
     $self->{TransactionRequest}        = $data;      $self->{TransactionRequest}        = $data;
  }   }
     } else {      } else {
    $self->{LoncapaHim}         = $server;
  $self->{TransactionRequest} = "$sethost:$server:$data";   $self->{TransactionRequest} = "$sethost:$server:$data";
     }      }
     $self->{TransactionReply}   = "";      $self->{TransactionReply}   = "";
Line 1146  this iterator returns a reference to an Line 1145  this iterator returns a reference to an
 information read from the hosts configuration file.  Array elements  information read from the hosts configuration file.  Array elements
 are used as follows:  are used as follows:
   
  [0]   - LonCapa host name.   [0]   - LonCapa host id.
  [1]   - LonCapa domain name.   [1]   - LonCapa domain name.
  [2]   - Loncapa role (e.g. library or access).   [2]   - Loncapa role (e.g. library or access).
  [3]   - DNS name server hostname.   [3]   - DNS name server hostname.
Line 1257  sub read_hosts { Line 1256  sub read_hosts {
 #  #
 sub PeerVersion {  sub PeerVersion {
    my $self = shift;     my $self = shift;
    my ($version) = ($self->{LondVersion} =~ /Revision 1\.(\d+)/);     my ($version) = ($self->{LondVersion} =~ /Revision: 1\.(\d+)/);
    return $self->{LondVersion};     return $version;
 }  }
   
 1;  1;
Removed from v.1.39  
changed lines
  Added in v.1.42

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