[LON-CAPA-cvs] cvs: loncom /debugging_tools db_copy.pl

[albertel]

albertel		Fri Jun  1 15:00:06 2007 EDT

  Modified files:              
    /loncom/debugging_tools	db_copy.pl 
  Log:
  - some dists use gdbm 1.8.3 which has a different so number
  
  
Index: loncom/debugging_tools/db_copy.pl
diff -u loncom/debugging_tools/db_copy.pl:1.6 loncom/debugging_tools/db_copy.pl:1.7
--- loncom/debugging_tools/db_copy.pl:1.6	Thu Jan 25 13:05:40 2007
+++ loncom/debugging_tools/db_copy.pl	Fri Jun  1 15:00:05 2007
@@ -17,6 +17,22 @@
     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;