version 1.29, 2004/03/02 22:38:07
|
version 1.30, 2004/06/01 10:05:16
|
Line 89 sub ReadConfig {
|
Line 89 sub ReadConfig {
|
# to build up the hosts table. |
# to build up the hosts table. |
# |
# |
sub ReadForeignConfig { |
sub ReadForeignConfig { |
my $MyHost = shift; |
|
my $Filename = shift; |
my ($MyHost, $Filename) = @_; |
|
|
&Debug(4, "ReadForeignConfig $MyHost $Filename\n"); |
&Debug(4, "ReadForeignConfig $MyHost $Filename\n"); |
|
|
Line 108 sub ReadForeignConfig {
|
Line 108 sub ReadForeignConfig {
|
} |
} |
|
|
sub Debug { |
sub Debug { |
my $level = shift; |
|
my $message = shift; |
my ($level, $message) = @_; |
|
|
if ($level < $DebugLevel) { |
if ($level < $DebugLevel) { |
print($message."\n"); |
print($message."\n"); |
} |
} |
Line 143 old state.
|
Line 144 old state.
|
=cut |
=cut |
|
|
sub Transition { |
sub Transition { |
my $self = shift; |
|
my $newstate = shift; |
my ($self, $newstate) = @_; |
|
|
my $oldstate = $self->{State}; |
my $oldstate = $self->{State}; |
$self->{State} = $newstate; |
$self->{State} = $newstate; |
$self->{TimeoutRemaining} = $self->{TimeoutValue}; |
$self->{TimeoutRemaining} = $self->{TimeoutValue}; |
Line 174 host the remote lond is on. This host is
|
Line 176 host the remote lond is on. This host is
|
=cut |
=cut |
|
|
sub new { |
sub new { |
my $class = shift; # class name. |
|
my $Hostname = shift; # Name of host to connect to. |
my ($class, $Hostname, $Port) = @_; |
my $Port = shift; # Port to connect |
|
|
|
if (!$ConfigRead) { |
if (!$ConfigRead) { |
ReadConfig(); |
ReadConfig(); |
Line 535 timout, and to request writability notif
|
Line 536 timout, and to request writability notif
|
=cut |
=cut |
|
|
sub InitiateTransaction { |
sub InitiateTransaction { |
my $self = shift; |
|
my $data = shift; |
my ($self, $data) = @_; |
|
|
Debug(1, "initiating transaction: ".$data); |
Debug(1, "initiating transaction: ".$data); |
if($self->{State} ne "Idle") { |
if($self->{State} ne "Idle") { |
Line 587 established callback or undef if there w
|
Line 588 established callback or undef if there w
|
=cut |
=cut |
|
|
sub SetTimeoutCallback { |
sub SetTimeoutCallback { |
my $self = shift; |
|
my $callback = shift; |
my ($self, $callback) = @_; |
|
|
my $oldCallback = $self->{TimeoutCallback}; |
my $oldCallback = $self->{TimeoutCallback}; |
$self->{TimeoutCallback} = $callback; |
$self->{TimeoutCallback} = $callback; |
return $oldCallback; |
return $oldCallback; |
Line 716 The output string can be directly sent t
|
Line 718 The output string can be directly sent t
|
=cut |
=cut |
|
|
sub Encrypt { |
sub Encrypt { |
my $self = shift; # Reference to the object. |
|
my $request = shift; # Text to send. |
my ($self, $request) = @_; |
|
|
|
|
# Split the encrypt: off the request and figure out it's length. |
# Split the encrypt: off the request and figure out it's length. |
Line 759 Decrypt a response from the server. The
|
Line 761 Decrypt a response from the server. The
|
=cut |
=cut |
|
|
sub Decrypt { |
sub Decrypt { |
my $self = shift; # Recover reference to object |
|
my $encrypted = shift; # This is the encrypted data. |
my ($self, $encrypted) = @_; |
|
|
# Bust up the response into length, and encryptedstring: |
# Bust up the response into length, and encryptedstring: |
|
|