loncom/loncnew - diff

Return to loncnew CVS log

Up to [LON-CAPA] / loncom

version 1.85, 2007/05/01 01:04:23	version 1.86, 2007/06/13 03:05:54
Line 158 sub LogPerm {	Line 158 sub LogPerm {
my $now=time;	my $now=time;
my $local=localtime($now);	my $local=localtime($now);
my $fh=IO::File->new(">>$execdir/logs/lonnet.perm.log");	my $fh=IO::File->new(">>$execdir/logs/lonnet.perm.log");
	chomp($message);
print $fh "$now:$message:$local\n";	print $fh "$now:$message:$local\n";
}	}

Line 608 sub CompleteTransaction {	Line 609 sub CompleteTransaction {
StartClientReply($Transaction, $data);	StartClientReply($Transaction, $data);
} else { # Delete deferred transaction file.	} else { # Delete deferred transaction file.
Log("SUCCESS", "A delayed transaction was completed");	Log("SUCCESS", "A delayed transaction was completed");
LogPerm("S:$Transaction->getClient() :".$Transaction->getRequest());	LogPerm("S:".$Transaction->getClient().":".$Transaction->getRequest());
unlink $Transaction->getFile();	unlink($Transaction->getFile());
}	}
}	}