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) {
|
Line 17 if (!-x $dump_db || !-x $create_db) {
|
exit(-1); |
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 %perlvar=%{&LONCAPA::Configuration::read_conf('loncapa.conf')}; |
|
|
my $do_locks = 1; |
my $do_locks = 1; |