version 1.4, 2003/06/11 02:04:35
|
version 1.6, 2003/06/13 02:56:45
|
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 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: |