loncom/debugging_tools/clean_db.pl - diff

Return to clean_db.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.3, 2006/06/27 14:35:24	version 1.5, 2008/08/16 14:36:09
Line 65 if (! $dbref) {	Line 65 if (! $dbref) {
warn("Unable to tie to $fname");	warn("Unable to tie to $fname");
exit;	exit;
}	}
while (my ($key,$value) = each(%{$dbref})) {	if (exists($dbref->{$key_to_remove})) {
if ($key ne $key_to_remove) { next; }	delete($dbref->{$key_to_remove});
delete($dbref->{$key});
if ($fname =~ m\|/nohist_[^/]*.db\|) { exit; }	if ($fname =~ m\|/nohist_[^/]*.db\|) { exit; }
my $hist=$fname;	my $hist=$fname;
$hist=~s/\.db$/.hist/;	$hist=~s/\.db$/.hist/;
open(HIST,">>$hist");	open(HIST,">>$hist");
print HIST ("D:".time.":$key\n");	print HIST ("D:".time.":$key_to_remove\n");
close(HIST);	close(HIST);
}	}
exit;	exit;