loncom/debugging_tools/dump_db.pl - diff

Return to dump_db.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.7, 2006/08/08 18:20:50	version 1.8, 2007/07/25 17:43:34
Line 89 while (my $fname = shift) {	Line 89 while (my $fname = shift) {
}	}
while (my ($key,$value) = each(%$dbref)) {	while (my ($key,$value) = each(%$dbref)) {
if ($value =~ s/^__FROZEN__//) {	if ($value =~ s/^__FROZEN__//) {
#$value = thaw(&unescape($value));	$value = thaw(&unescape($value));
}	}
if ($unesc) {	if ($unesc) {
$key = &unescape($key);	$key = &unescape($key);
Line 100 while (my $fname = shift) {	Line 100 while (my $fname = shift) {
}	}
print "$key = ".(ref($value)?Dumper($value):$value)."\n";	print "$key = ".(ref($value)?Dumper($value):$value)."\n";
}	}
&LONCAPA::locking_hash_untie($dbref);	if ($fname =~ m/^\Q$perlvar{'lonUsersDir'}\E/) {
	&LONCAPA::locking_hash_untie($dbref);
	} else {
	untie($dbref);
	}
}	}
exit;	exit;