version 1.33, 2004/06/17 11:02:25
|
version 1.35, 2004/09/21 10:51:42
|
Line 154 Dump the internal state of the object: F
|
Line 154 Dump the internal state of the object: F
|
sub Dump { |
sub Dump { |
my $self = shift; |
my $self = shift; |
my $level = shift; |
my $level = shift; |
|
my $now = time; |
|
my $local = localtime($now); |
|
|
if ($level <= $DebugLevel) { |
if ($level <= $DebugLevel) { |
return; |
return; |
} |
} |
|
|
|
|
my $key; |
my $key; |
my $value; |
my $value; |
print STDERR "Dumping LondConnectionObject:\n"; |
print STDERR "[ $local ] Dumping LondConnectionObject:\n"; |
while(($key, $value) = each %$self) { |
while(($key, $value) = each %$self) { |
print STDERR "$key -> $value\n"; |
print STDERR "$key -> $value\n"; |
} |
} |
Line 552 sub Readable {
|
Line 555 sub Readable {
|
my $answer = $self->{TransactionReply}; |
my $answer = $self->{TransactionReply}; |
if($answer =~ /^enc\:/) { |
if($answer =~ /^enc\:/) { |
$answer = $self->Decrypt($answer); |
$answer = $self->Decrypt($answer); |
$self->{TransactionReply} = $answer; |
$self->{TransactionReply} = "$answer\n"; |
} |
} |
|
|
# finish the transaction |
# finish the transaction |
Line 950 sub Decrypt {
|
Line 953 sub Decrypt {
|
# $length tells us the actual length of the decrypted string: |
# $length tells us the actual length of the decrypted string: |
|
|
$decrypted = substr($decrypted, 0, $length); |
$decrypted = substr($decrypted, 0, $length); |
|
Debug(9, "Decrypted $EncryptedString to $decrypted"); |
|
|
return $decrypted; |
return $decrypted; |
|
|