loncom/LondConnection.pm - diff

Return to LondConnection.pm CVS log

Up to [LON-CAPA] / loncom

version 1.46, 2007/04/10 23:15:20	version 1.49, 2010/11/11 15:01:13
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;