Changeset 27179 for gs2-extensions/parallel-building/trunk/src/perllib/dbutil/gdbmserver.pm

Timestamp:

2013-04-14T22:52:17+12:00 (11 years ago)

Author:

davidb

Message:

Mods to allow code to run with Greenstone3

File:

• gs2-extensions/parallel-building/trunk/src/perllib/dbutil/gdbmserver.pm (modified) (2 diffs)

gs2-extensions/parallel-building/trunk/src/perllib/dbutil/gdbmserver.pm

@@ -60 +60 @@
       &util::mk_dir($tmp_dir,1);
   }
-
 
   # 1. Check whether the server is already running by trying to locate the
@@ -206 +205 @@
   if (defined $create_server && $create_server == 1)
   {
+      my $tmp_collect_dir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},'tmp');
+      if (! &util::dir_exists($tmp_collect_dir)) {
+      &util::mk_dir($tmp_collect_dir,1);
+      }
+
     my $gdbm_client_handle = &_spawnClient($infodb_file_path);
     # Register this client on the server if necessary