loncom/debugging_tools/db_copy.pl - diff

Return to db_copy.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.2, 2006/09/20 19:23:24	version 1.3, 2006/10/03 18:01:01
Line 10 use LONCAPA;	Line 10 use LONCAPA;
use LONCAPA::Configuration;	use LONCAPA::Configuration;
use Cwd;	use Cwd;

my $dump_db = './dump_db';	my $dump_db = '/home/httpd/perl/debug/dump_db_static_32';
my $create_db = './create_db';	my $create_db = '/home/httpd/perl/debug/create_db_dynamic';
my $dir = './annarbor';	if (!-x $dump_db \|\| !-x $create_db) {
	print("Unable to run needed helper programs\n $dump_db\n $create_db\n.");
	exit(-1);
	}

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

Line 65 sub main {	Line 68 sub main {
no_chdir => 1,	no_chdir => 1,
wanted => \&process_db,	wanted => \&process_db,
},	},
$dir	$perlvar{'lonUsersDir'}
#$perlvar->{'lonUsersDir'}
);	);
}	}