--- loncom/debugging_tools/db_copy.pl	2006/09/20 19:23:24	1.2
+++ loncom/debugging_tools/db_copy.pl	2006/10/03 18:01:01	1.3
@@ -10,9 +10,12 @@ use LONCAPA;
 use LONCAPA::Configuration;
 use Cwd;
 
-my $dump_db = './dump_db';
-my $create_db = './create_db';
-my $dir = './annarbor';
+my $dump_db = '/home/httpd/perl/debug/dump_db_static_32';
+my $create_db = '/home/httpd/perl/debug/create_db_dynamic';
+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')};
 
@@ -65,8 +68,7 @@ sub main {
 	     no_chdir   => 1,
 	     wanted     => \&process_db,
 	 }, 
-	 $dir
-	 #$perlvar->{'lonUsersDir'}
+	 $perlvar{'lonUsersDir'}
 	 );
 }