loncom/metadata_database/parse_activity_log.pl - diff

Return to parse_activity_log.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.16, 2005/09/19 18:31:57	version 1.17, 2005/09/19 20:30:37
Line 131 if ($log) {	Line 131 if ($log) {
print STDERR "$0: logging to $logfile".$/;	print STDERR "$0: logging to $logfile".$/;
if (! open(LOGFILE,">$logfile")) {	if (! open(LOGFILE,">$logfile")) {
warn("Unable to open $logfile for writing. Run aborted.");	warn("Unable to open $logfile for writing. Run aborted.");
&cleanup_and_exit(5);	&clean_up_and_exit(5);
} else {	} else {
$logthis = \&log_to_file;	$logthis = \&log_to_file;
}	}
Line 180 if (! defined($xmlfile)) {	Line 180 if (! defined($xmlfile)) {
open(LOCKFILE,'>'.$lockfilename);	open(LOCKFILE,'>'.$lockfilename);
if (!flock(LOCKFILE,LOCK_EX\|LOCK_NB)) {	if (!flock(LOCKFILE,LOCK_EX\|LOCK_NB)) {
warn("Unable to lock $lockfilename. Aborting".$/);	warn("Unable to lock $lockfilename. Aborting".$/);
&clean_up_and_exit(6);	# don't call clean_up_and_exit another instance is running and
	# we don't want to 'cleanup' there files
	exit 6;
}	}

if (! -e $newfilename && -e $sourcefilename) {	if (! -e $newfilename && -e $sourcefilename) {