loncom/debugging_tools/dump_db.pl - diff

Return to dump_db.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.6, 2006/06/19 09:36:22	version 1.7, 2006/08/08 18:20:50
Line 36 use Data::Dumper;	Line 36 use Data::Dumper;
use Storable qw(thaw);	use Storable qw(thaw);
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;
	use LONCAPA::Configuration;
	use Cwd;

#	#
# Options	# Options
Line 66 END	Line 68 END
exit;	exit;
}	}

	my %perlvar=%{&LONCAPA::Configuration::read_conf('loncapa.conf')};

#	#
# Loop through ARGV getting files.	# Loop through ARGV getting files.
while (my $fname = shift) {	while (my $fname = shift) {
my $dbref=&LONCAPA::locking_hash_tie($fname,&GDBM_READER());	$fname = &Cwd::abs_path($fname);
	my $dbref;
	if ($fname =~ m/^\Q$perlvar{'lonUsersDir'}\E/) {
	$dbref=&LONCAPA::locking_hash_tie($fname,&GDBM_READER());
	} else {
	if (tie(my %db,'GDBM_File',$fname,&GDBM_READER(),0640)) {
	$dbref = \%db;
	}
	}

if (!$dbref) {	if (!$dbref) {
warn "Unable to tie to $fname";	warn "Unable to tie to $fname";
Line 77 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);