Changeset 29650 for gs2-extensions

Timestamp:

2014-12-19T11:45:49+13:00 (9 years ago)

Author:

jmt12

Message:

Just clarifying a few comments

File:

• gs2-extensions/tdb-edit/trunk/src/bin/script/TDBServer.pl (modified) (3 diffs)

gs2-extensions/tdb-edit/trunk/src/bin/script/TDBServer.pl

@@ -73 +73 @@
 # Greenstone utility functions (filename_cat)
 use util;
+use dbutil::tdb;
 
 # A simple server that listens on a socket and 'forks' off child threads to
@@ -415 +416 @@
     }
   }
-  # Everything thing else should be a TDB command
-  # form  <database>:<key>:<value>
+  # Everything thing else should be a TDB command of the form:
+  #   <database>:<key>:<value>
   # where: database is [d]oc, [i]ndex, or [s]rc
   elsif ($data =~ /^([dis]):\[(.+?)\]([\+\?\-]?)(.*)$/s)
@@ -432 +433 @@
     $payload =~ s/^\s+|\s+$//g;
     &debugPrint($the_count, $tid, 'PARSED', 'database=' . $database . ', key=' . $key . ', action=' . $action . ', payload=' . $payload) unless !$debug;
+
+    # We need to try and persist the connection to TDB, otherwise the OS quickly
+    # exhausts NFS daemons amongst other issues
+    # Can I make use of the Greenstone DBUtils TDB somehow?
+    # Arg - because there s the potential to mix reads and writes, this isn't
+    # as straightforward as first thought
+
     # Build path to database file
     my $tdb_path = '';