[LON-CAPA-cvs] cvs: loncom / LondConnection.pm

[foxr]

foxr		Tue Sep 14 07:46:29 2004 EDT

  Modified files:              
    /loncom	LondConnection.pm 
  Log:
  - Fixed defect in handling lond data that required decryption:  Had forgotton
    to put the trailing \n back in the string.   This causes lonc and its clients
    to hang waiting on completion.  This all implies BTW that eget is either never used
    or nobody has cared all this time that it wasn't working correctly !!?!
  
  
Index: loncom/LondConnection.pm
diff -u loncom/LondConnection.pm:1.33 loncom/LondConnection.pm:1.34
--- loncom/LondConnection.pm:1.33	Thu Jun 17 07:02:25 2004
+++ loncom/LondConnection.pm	Tue Sep 14 07:46:29 2004
@@ -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 @@
 	    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 @@
     #  $length tells us the actual length of the decrypted string:
 
     $decrypted = substr($decrypted, 0, $length);
+    Debug(9, "Decrypted $EncryptedString to $decrypted");
 
     return $decrypted;