loncom/LondConnection.pm - diff

Return to LondConnection.pm CVS log

Up to [LON-CAPA] / loncom

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;