Changeset 29650

Show
Ignore:
Timestamp:
19.12.2014 11:45:49 (5 years ago)
Author:
jmt12
Message:

Just clarifying a few comments

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/tdb-edit/trunk/src/bin/script/TDBServer.pl

    r27397 r29650  
    7373# Greenstone utility functions (filename_cat) 
    7474use util; 
     75use dbutil::tdb; 
    7576 
    7677# A simple server that listens on a socket and 'forks' off child threads to 
     
    415416    } 
    416417  } 
    417   # Everything thing else should be a TDB command 
    418   # form  <database>:<key>:<value> 
     418  # Everything thing else should be a TDB command of the form: 
     419  #   <database>:<key>:<value> 
    419420  # where: database is [d]oc, [i]ndex, or [s]rc 
    420421  elsif ($data =~ /^([dis]):\[(.+?)\]([\+\?\-]?)(.*)$/s) 
     
    432433    $payload =~ s/^\s+|\s+$//g; 
    433434    &debugPrint($the_count, $tid, 'PARSED', 'database=' . $database . ', key=' . $key . ', action=' . $action . ', payload=' . $payload) unless !$debug; 
     435 
     436    # We need to try and persist the connection to TDB, otherwise the OS quickly 
     437    # exhausts NFS daemons amongst other issues 
     438    # Can I make use of the Greenstone DBUtils TDB somehow? 
     439    # Arg - because there s the potential to mix reads and writes, this isn't 
     440    # as straightforward as first thought 
     441 
    434442    # Build path to database file 
    435443    my $tdb_path = '';