version 1.3, 2003/04/18 06:07:27
|
version 1.5, 2003/06/13 02:38:30
|
Line 430 sub InitiateTransaction {
|
Line 430 sub InitiateTransaction {
|
my $self = shift; |
my $self = shift; |
my $data = shift; |
my $data = shift; |
|
|
|
Debug(1, "initiating transaction: ".$data); |
if($self->{State} ne "Idle") { |
if($self->{State} ne "Idle") { |
|
Debug(0," .. but not idle here\n"); |
return -1; # Error indicator. |
return -1; # Error indicator. |
} |
} |
# if the transaction is to be encrypted encrypt the data: |
# if the transaction is to be encrypted encrypt the data: |
Line 486 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 510 sub GetSocket {
|
Line 526 sub GetSocket {
|
return $self->{Socket}; |
return $self->{Socket}; |
} |
} |
|
|
|
|
=pod |
=pod |
|
|
=head2 WantReadable |
=head2 WantReadable |
Line 836 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: |