loncom/debugging_tools/seed_accesscount.pl - diff

Return to seed_accesscount.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.3, 2003/12/04 13:40:29	version 1.4, 2004/01/13 18:13:34
Line 89 while (my $resDBname = shift()) {	Line 89 while (my $resDBname = shift()) {
#	#
untie %accessDB;	untie %accessDB;
untie %resevalDB;	untie %resevalDB;
	system("chown www:www $accessDBname");
# remove the keys we saved.	# remove the keys we saved.
next if (! scalar(@Keys)); # skip it if we did not get anything...	next if (! scalar(@Keys)); # skip it if we did not get anything...
my $dbptr;	my $dbptr;
Line 102 while (my $resDBname = shift()) {	Line 103 while (my $resDBname = shift()) {
$dbptr->reorganize();	$dbptr->reorganize();
$dbptr = undef;	$dbptr = undef;
untie(%resevalDB);	untie(%resevalDB);
	system("chown www:www $resDBname");
}	}
exit;	exit;