loncom/debugging_tools/db_copy.pl - diff

Return to db_copy.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

-version 1.6, 2007/01/25 18:05:40
+version 1.7, 2007/06/01 19:00:05
  Line 17  if (!-x $dump_db || !-x $create_db) {
      exit(-1);
  }
+ my $return_code = system("$create_db >& /dev/null");
+ # create_db exits on 1 if no filename to create was specified and is thus
+ # a successful start and stop of the program
+ if ($return_code == -1
+     || (($return_code >> 8) != 1)) {
+     $create_db = '/home/httpd/perl/debug/create_db_dynamic_64_so.3';
+     printf("booM %d %d!\n",$return_code,($return_code >> 8 ));
+     $return_code = system("$create_db >& /dev/null");
+     if ($return_code == -1
+ 	|| (($return_code >> 8) != 1)) {
+ 	printf("booM2 %d %d!\n",$return_code,($return_code >> 8 ));
+ 	die("Unable to run need helper program create_db_dynamic_64");
+     }
+ }
  my  %perlvar=%{&LONCAPA::Configuration::read_conf('loncapa.conf')};
  my $do_locks = 1;