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.20, 2005/09/20 18:01:01	version 1.23, 2006/03/30 06:57:50
Line 48	Line 48
# parameter is not set $logthis is set to &nothing, which does what you	# parameter is not set $logthis is set to &nothing, which does what you
# would expect.	# would expect.
#	#
	BEGIN {
	eval "use Apache2::compat();";
	};
use strict;	use strict;
use DBI;	use DBI;
use lib '/home/httpd/lib/perl/Apache';	use lib '/home/httpd/lib/perl/Apache';
Line 184 if (! defined($xmlfile)) {	Line 186 if (! defined($xmlfile)) {
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".$/);
# don't call clean_up_and_exit another instance is running and	# don't call clean_up_and_exit another instance is running and
# we don't want to 'cleanup' there files	# we don't want to 'cleanup' their files
exit 6;	exit 6;
}	}

Line 943 sub xml_store_id_table {	Line 945 sub xml_store_id_table {
#######################################################################	#######################################################################
{	{
my @rows;	my @rows;
my $max_row_count = 100;

sub store_entry {	sub store_entry {
	my $max_row_count = 100;
if (! @_) {	if (! @_) {
undef(@rows);	undef(@rows);
return '';	return '';