# Rotate old log file. rotateLogFile(); if ($configOptions{'logFilePath'}) { $LOG_FILE_PATH = $configOptions{'logFilePath'}; } if (!isLocalLoggingEnabled() && !$DEBUGMODE) { print "NOTE: Local logging disabled in script configuration file\n"; } # Make sure we can log to a log file, if necessary. if ($LOG_FILE_PATH) { my $logFileHandle = getLogFileHandle(1); closeLogFileHandle($logFileHandle); } sub getLogFileHandle { my $logErrors = shift; # If no log file, use STDERR if (!$LOG_FILE_PATH) { return \*STDERR; } my $logFileHandle = IO::File->new(">>$LOG_FILE_PATH"); if (!(defined $logFileHandle)) { $logFileHandle = \*STDERR; if ($logErrors) { print STDERR "Failed in opening log file $LOG_FILE_PATH - using STDERR\n"; } } autoflush $logFileHandle 1; return $logFileHandle; }