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

Diff for /loncom/LondConnection.pm between versions 1.45 and 1.49

version 1.45, 2007/04/03 01:08:05 version 1.49, 2010/11/11 15:01:13
Line 184  sub new { Line 184  sub new {
                      TimeoutCallback    => undef,                       TimeoutCallback    => undef,
                      TransitionCallback => undef,                       TransitionCallback => undef,
                      Timeoutable        => 0,                       Timeoutable        => 0,
                      TimeoutValue       => 3,                       TimeoutValue       => 30,
                      TimeoutRemaining   => 0,                       TimeoutRemaining   => 0,
      LocalKeyFile       => "",       LocalKeyFile       => "",
                      CipherKey          => "",                       CipherKey          => "",
Line 241  sub new { Line 241  sub new {
  if((defined $ca)  && (defined $cert) && (defined $sslkeyfile)) {   if((defined $ca)  && (defined $cert) && (defined $sslkeyfile)) {
   
     $self->{AuthenticationMode} = "ssl";      $self->{AuthenticationMode} = "ssl";
     $self->{TransactionRequest} = "init:ssl\n";      $self->{TransactionRequest} = "init:ssl:$perlvar{'lonVersion'}\n";
  } else {   } else {
     if($InsecureOk) { # Allowed to do insecure:      if($InsecureOk) { # Allowed to do insecure:
  $self->{AuthenticationMode} = "insecure";   $self->{AuthenticationMode} = "insecure";
  $self->{TransactionRequest} = "init\n";   $self->{TransactionRequest} = "init::$perlvar{'lonVersion'}\n";
     }      }
     else { # Not allowed to do insecure...      else { # Not allowed to do insecure...
  $socket->close;   $socket->close;
Line 563  sub Writable { Line 563  sub Writable {
  ($errno == POSIX::EAGAIN)         ||   ($errno == POSIX::EAGAIN)         ||
  ($errno == POSIX::EINTR)          ||   ($errno == POSIX::EINTR)          ||
  ($errno ==  0)) {   ($errno ==  0)) {
       $self->{TimeoutRemaining} = $self->{TimeoutValue};
  substr($self->{TransactionRequest}, 0, $nwritten) = ""; # rmv written part   substr($self->{TransactionRequest}, 0, $nwritten) = ""; # rmv written part
       if(length $self->{TransactionRequest} == 0) {        if(length $self->{TransactionRequest} == 0) {
          $self->{InformWritable} = 0;           $self->{InformWritable} = 0;
Removed from v.1.45  
changed lines
  Added in v.1.49

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