Changeset 27400

Show
Ignore:
Timestamp:
23.05.2013 13:40:24 (6 years ago)
Author:
jmt12
Message:

Adding is explanation of server starting up black magic

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/tdb-edit/trunk/src/perllib/dbutil.pm

    r24068 r27400  
    33# dbutil.pm -- gateway to utilities for reading/writing to different databases 
    44# 
    5 # Copyright (C) 2008  DL Consulting Ltd 
     5# Copyright (C) 2008 DL Consulting Ltd 
    66# 
    77# A component of the Greenstone digital library software 
     
    4545  { 
    4646    # - require is fine being assigned at runtime - no need for evil eval 
    47     eval 
    48     { 
    49       require $file; 
    50     }; 
     47    #eval 
     48    #{ 
     49    require $file; 
     50    #}; 
    5151  } 
    5252  # - this is the magic that actually instantiates the class (rubberstamp?) 
     
    120120} 
    121121 
    122  
     122# /** @function get_infodb_file_path() 
     123#  * Warning! Black magic follows. The first time get_infodb_file_path is 
     124#  * called (presumably from inexport::process_files()) for databases of type 
     125#  * server will actually the Server to be run complete with an initial dummy 
     126#  * listener. This is done so that, in parallel importing, the server will 
     127#  * persist until the top level import.pl (which will be the first that calls 
     128#  * this function) completes and removes the dummy listener. [jmt12] 
    123129sub get_infodb_file_path 
    124130{