Changeset 27400 for gs2-extensions/tdb-edit/trunk/src/perllib/dbutil.pm

Timestamp:

2013-05-23T13:40:24+12:00 (11 years ago)

Author:

jmt12

Message:

Adding is explanation of server starting up black magic

File:

• gs2-extensions/tdb-edit/trunk/src/perllib/dbutil.pm (modified) (3 diffs)

gs2-extensions/tdb-edit/trunk/src/perllib/dbutil.pm

@@ -3 +3 @@
 # dbutil.pm -- gateway to utilities for reading/writing to different databases
 #
-# Copyright (C) 2008  DL Consulting Ltd
+# Copyright (C) 2008 DL Consulting Ltd
 #
 # A component of the Greenstone digital library software
@@ -45 +45 @@
   {
     # - require is fine being assigned at runtime - no need for evil eval
-    eval
-    {
-      require $file;
-    };
+    #eval
+    #{
+    require $file;
+    #};
   }
   # - this is the magic that actually instantiates the class (rubberstamp?)
@@ -120 +120 @@
 }
 
-
+# /** @function get_infodb_file_path()
+#  * Warning! Black magic follows. The first time get_infodb_file_path is
+#  * called (presumably from inexport::process_files()) for databases of type
+#  * server will actually the Server to be run complete with an initial dummy
+#  * listener. This is done so that, in parallel importing, the server will
+#  * persist until the top level import.pl (which will be the first that calls
+#  * this function) completes and removes the dummy listener. [jmt12]
 sub get_infodb_file_path
 {