--- loncom/LondConnection.pm 2004/06/17 11:02:25 1.33 +++ loncom/LondConnection.pm 2004/09/14 11:46:29 1.34 @@ -1,7 +1,7 @@ # This module defines and implements a class that represents # a connection to a lond daemon. # -# $Id: LondConnection.pm,v 1.33 2004/06/17 11:02:25 foxr Exp $ +# $Id: LondConnection.pm,v 1.34 2004/09/14 11:46:29 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -552,7 +552,7 @@ sub Readable { my $answer = $self->{TransactionReply}; if($answer =~ /^enc\:/) { $answer = $self->Decrypt($answer); - $self->{TransactionReply} = $answer; + $self->{TransactionReply} = "$answer\n"; } # finish the transaction @@ -950,6 +950,7 @@ sub Decrypt { # $length tells us the actual length of the decrypted string: $decrypted = substr($decrypted, 0, $length); + Debug(9, "Decrypted $EncryptedString to $decrypted"); return $decrypted;