[LON-CAPA-cvs] cvs: loncom / loncnew

[albertel]

albertel		Tue Jun 12 23:05:55 2007 EDT

  Modified files:              
    /loncom	loncnew 
  Log:
  - delayed message flush log message to perm log was incorrectly formatted
  
  
Index: loncom/loncnew
diff -u loncom/loncnew:1.85 loncom/loncnew:1.86
--- loncom/loncnew:1.85	Mon Apr 30 21:04:23 2007
+++ loncom/loncnew	Tue Jun 12 23:05:54 2007
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # lonc maintains the connections to remote computers
 #
-# $Id: loncnew,v 1.85 2007/05/01 01:04:23 albertel Exp $
+# $Id: loncnew,v 1.86 2007/06/13 03:05:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -158,6 +158,7 @@
     my $now=time;
     my $local=localtime($now);
     my $fh=IO::File->new(">>$execdir/logs/lonnet.perm.log");
+    chomp($message);
     print $fh "$now:$message:$local\n";
 }
 
@@ -608,8 +609,8 @@
 	StartClientReply($Transaction, $data);
     } else {			# Delete deferred transaction file.
 	Log("SUCCESS", "A delayed transaction was completed");
-	LogPerm("S:$Transaction->getClient() :".$Transaction->getRequest());
-	unlink $Transaction->getFile();
+	LogPerm("S:".$Transaction->getClient().":".$Transaction->getRequest());
+	unlink($Transaction->getFile());
     }
 }