version 1.4, 2003/06/11 02:04:35
|
version 1.7, 2003/07/02 01:12:35
|
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 215 sub Readable {
|
Line 215 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)> 0)) {# Read failed, |
if(($errno == POSIX::EWOULDBLOCK) || |
if(($errno == POSIX::EWOULDBLOCK) || |
($errno == POSIX::EAGAIN) || |
($errno == POSIX::EAGAIN) || |
($errno == POSIX::EINTR) || |
($errno == POSIX::EINTR) || |
Line 488 sub SetTimeoutCallback {
|
Line 488 sub SetTimeoutCallback {
|
|
|
=pod |
=pod |
|
|
|
=head2 Shutdown: |
|
|
|
Shuts down the socket. |
|
|
|
=cut |
|
|
|
sub Shutdown { |
|
my $self = shift; |
|
my $socket = $self->GetSocket(); |
|
$socket->shutdown(2); |
|
} |
|
|
|
=pod |
|
|
=head2 GetState |
=head2 GetState |
|
|
selector for the object state. |
selector for the object state. |
Line 512 sub GetSocket {
|
Line 526 sub GetSocket {
|
return $self->{Socket}; |
return $self->{Socket}; |
} |
} |
|
|
|
|
=pod |
=pod |
|
|
=head2 WantReadable |
=head2 WantReadable |
Line 838 peer (assumes the text is a command).
|
Line 853 peer (assumes the text is a command).
|
Decrypts a block of text according to the cipher negotiated with the |
Decrypts a block of text according to the cipher negotiated with the |
peer (assumes the block was a reply. |
peer (assumes the block was a reply. |
|
|
|
=item Shutdown: |
|
|
|
Shuts off the socket. |
|
|
=head2 The following are selector member functions: |
=head2 The following are selector member functions: |
|
|
=item GetState: |
=item GetState: |