Changeset 27177 for gs2-extensions

Timestamp:

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

Author:

davidb

Message:

Test for and create (if needed) the 'tmp' directory

File:

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

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

@@ -55 +55 @@
 {
   my ($infodb_file_path) = @_;
+
+  my $tmp_dir = &util::filename_cat($ENV{'GSDLHOME'},'tmp');
+  if (! &util::dir_exists($tmp_dir)) {
+      &util::mk_dir($tmp_dir,1);
+  }
+
+
   # 1. Check whether the server is already running by trying to locate the
   #    server 'lock' file.
@@ -66 +73 @@
   flock(TMPFH, LOCK_EX) or die("Error! Cannot lock file exclusively: " . $tmp_lockfile_path . "\nReason: " . $! . "\n");
   print TMPFH localtime();
+
   # - If the file doesn't exist...
   if (!-e $server_lockfile_path)