loncom/debugging_tools/dump_db.pl - diff

Return to dump_db.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.3, 2003/09/04 14:32:46	version 1.5, 2005/03/18 21:36:49
Line 32	Line 32
use strict;	use strict;
use Getopt::Long;	use Getopt::Long;
use GDBM_File;	use GDBM_File;
	use Data::Dumper;
	use Storable qw(thaw);

#	#
# Options	# Options
Line 66 END	Line 68 END
# Loop through ARGV getting files.	# Loop through ARGV getting files.
while (my $fname = shift) {	while (my $fname = shift) {
my %db;	my %db;
if (! tie(%db,'GDBM_File',$fname,&GDBM_READER,0640)) {	if (! tie(%db,'GDBM_File',$fname,&GDBM_READER(),0640)) {
warn "Unable to tie to $fname";	warn "Unable to tie to $fname";
next;	next;
}	}
while (my ($key,$value) = each(%db)) {	while (my ($key,$value) = each(%db)) {
	if ($value =~ s/^__FROZEN__//) {
	$value = thaw(&unescape($value));
	}
if ($unesc) {	if ($unesc) {
$key = &unescape($key);	$key = &unescape($key);
$value = &unescape($value);	$value = &unescape($value) if (! ref($value));
}	}
if ($localize_times) {	if ($localize_times && ! ref($value)) {
if ($value =~ /^\s([0-9]{10,10})\s$/) {	$value =~ s/([0-9]{10,10})/localtime($1)/ge;
$value = $value.' [ '.localtime($1).' ]';
}
}	}
print "$key = $value\n";	print "$key = ".(ref($value)?Dumper($value):$value)."\n";
}	}
untie %db;	untie %db;
}	}