loncom/LondConnection.pm - diff

Return to LondConnection.pm CVS log

Up to [LON-CAPA] / loncom

version 1.52, 2011/01/24 11:02:32	version 1.53.2.1, 2018/09/02 18:30:54
Line 342 sub Readable {	Line 342 sub Readable {
$self->Transition("Disconnected");	$self->Transition("Disconnected");
return -1;	return -1;
}	}
# Append the data to the buffer. And figure out if the read is done:	# If we actually got data, reset the timeout.

$self->{TimeoutRemaining} = $self->{TimeoutValue}; # getting data resets the timeout period.	if (length $data) {
	$self->{TimeoutRemaining} = $self->{TimeoutValue}; # getting data resets the timeout period.
	}
	# Append the data to the buffer. And figure out if the read is done:

&Debug(9,"Received from host: ".$data);	&Debug(9,"Received from host: ".$data);
$self->{TransactionReply} .= $data;	$self->{TransactionReply} .= $data;
Line 1157 sub GetClientData {	Line 1160 sub GetClientData {
return $self->{ClientData};	return $self->{ClientData};
}	}

	#
	# Get the HostID of our peer
	#

	sub PeerLoncapaHim {
	my $self = shift;
	return $self->{LoncapaHim};
	}

1;	1;

=pod	=pod