Changeset 29650 for gs2-extensions


Ignore:
Timestamp:
12/19/14 11:45:49 (6 years ago)
Author:
jmt12
Message:

Just clarifying a few comments

File:
1 edited

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 = '';
Note: See TracChangeset for help on using the changeset viewer.