loncom/debugging_tools/clean_db.pl - diff

Return to clean_db.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.4, 2007/04/03 00:59:45	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;
}	}
if (exists($dbref->{$key_to_remove}) {	if (exists($dbref->{$key_to_remove})) {
delete($dbref->{$key});	delete($dbref->{$key_to_remove});
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;