loncom/debugging_tools/seed_accesscount.pl - diff

Return to seed_accesscount.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.2, 2003/11/14 20:41:48	version 1.3, 2003/12/04 13:40:29
Line 91 while (my $resDBname = shift()) {	Line 91 while (my $resDBname = shift()) {
untie %resevalDB;	untie %resevalDB;
# 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...
if (! tie(%resevalDB,'GDBM_File',$resDBname,&GDBM_WRITER,0640)) {	my $dbptr;
	if (! ($dbptr = tie(%resevalDB,'GDBM_File',$resDBname,&GDBM_WRITER,0640))){
die "Unable to re-tie to $resDBname. No deletes occured.";	die "Unable to re-tie to $resDBname. No deletes occured.";
}	}
foreach my $basekey (@Keys) {	foreach my $basekey (@Keys) {
delete($resevalDB{$basekey});	delete($resevalDB{$basekey});
}	}
untie %resevalDB;	# Squish the file down
	$dbptr->reorganize();
	$dbptr = undef;
	untie(%resevalDB);
}	}
exit;	exit;