loncom/LondConnection.pm - diff

Return to LondConnection.pm CVS log

Up to [LON-CAPA] / loncom

version 1.5, 2003/06/13 02:38:30	version 1.8, 2003/08/03 00:45:54
Line 37 use Crypt::IDEA;	Line 37 use Crypt::IDEA;
use LONCAPA::Configuration;	use LONCAPA::Configuration;
use LONCAPA::HashIterator;	use LONCAPA::HashIterator;

my $DebugLevel=4;	my $DebugLevel=0;

# Read the configuration file for apache to get the perl	# Read the configuration file for apache to get the perl
# variable set.	# variable set.
Line 153 sub new {	Line 153 sub new {
unless ($self->{Socket} = IO::Socket::INET->new(PeerHost => $self->{Host},	unless ($self->{Socket} = IO::Socket::INET->new(PeerHost => $self->{Host},
PeerPort => $self->{Port},	PeerPort => $self->{Port},
Type => SOCK_STREAM,	Type => SOCK_STREAM,
Proto => "tcp")) {	Proto => "tcp",
	Timeout => 5)) {
return undef; # Inidicates the socket could not be made.	return undef; # Inidicates the socket could not be made.
}	}
#	#
Line 215 sub Readable {	Line 216 sub Readable {
my $rv = $socket->recv($data, POSIX::BUFSIZ, 0);	my $rv = $socket->recv($data, POSIX::BUFSIZ, 0);
my $errno = $! + 0; # Force numeric context.	my $errno = $! + 0; # Force numeric context.

unless (defined($rv) && length($data)) { # Read failed,	unless (defined($rv) && length $data) {# Read failed,
if(($errno == POSIX::EWOULDBLOCK) \|\|	if(($errno == POSIX::EWOULDBLOCK) \|\|
($errno == POSIX::EAGAIN) \|\|	($errno == POSIX::EAGAIN) \|\|
($errno == POSIX::EINTR) \|\|	($errno == POSIX::EINTR)) {
($errno == 0)) {
return 0;	return 0;
}	}