[WWcvs] webwork-modperl: Additional changes to the writeLogs functions.

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
Additional changes to the writeLogs functions.  Now surePathToFile
is used to make sure that the logs are created if they are not
already there.

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK:
        Utils.pm

Revision Data
-------------
Index: Utils.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/Utils.pm,v
retrieving revision 1.63
retrieving revision 1.64
diff -Llib/WeBWorK/Utils.pm -Llib/WeBWorK/Utils.pm -u -r1.63 -r1.64
--- lib/WeBWorK/Utils.pm
+++ lib/WeBWorK/Utils.pm
@@ -545,6 +545,7 @@
 		return;
 	}
 	my $logFile = $ce->{webworkFiles}->{logs}->{$facility};
+	surePathToFile($ce->{webworkDirs}->{root}, $logFile);
 	local *LOG;
 	if (open LOG, ">>", $logFile) {
 		print LOG "[", time2str("%a %b %d %H:%M:%S %Y", time), "] @message\n";
@@ -561,6 +562,7 @@
 		return;
 	}
 	my $logFile = $ce->{courseFiles}->{logs}->{$facility};
+	surePathToFile($ce->{courseDirs}->{root}, $logFile);
 	local *LOG;
 	if (open LOG, ">>", $logFile) {
 		print LOG "[", time2str("%a %b %d %H:%M:%S %Y", time), "] @message\n";
@@ -580,7 +582,6 @@
 # [formatted date & time ] processID unixTime BeginEnd $function  $details
 sub writeTimingLogEntry($$$$) {
 	my ($ce, $function, $details, $beginEnd) = @_;
-	return unless defined $ce->{webworkFiles}->{logs}->{timing};
 	$beginEnd = ($beginEnd eq "begin") ? ">" : ($beginEnd eq "end") ? "<" : "-";
 	writeLog($ce, "timing", "$$ ".time." $beginEnd $function [$details]");
 }