Changeset 29650
- Timestamp:
- 2014-12-19T11:45:49+13:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/tdb-edit/trunk/src/bin/script/TDBServer.pl
r27397 r29650 73 73 # Greenstone utility functions (filename_cat) 74 74 use util; 75 use dbutil::tdb; 75 76 76 77 # A simple server that listens on a socket and 'forks' off child threads to … … 415 416 } 416 417 } 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> 419 420 # where: database is [d]oc, [i]ndex, or [s]rc 420 421 elsif ($data =~ /^([dis]):\[(.+?)\]([\+\?\-]?)(.*)$/s) … … 432 433 $payload =~ s/^\s+|\s+$//g; 433 434 &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 434 442 # Build path to database file 435 443 my $tdb_path = '';
Note:
See TracChangeset
for help on using the changeset viewer.