Changeset 17558

Timestamp:

May 7, 2008, 10:55:42 AM (18 years ago)

Author:

eugene

Message:

test for absolute path for workdir

File:

• trunk/ippScripts/scripts/ipp_inject_fileset.pl (modified) (1 diff)

trunk/ippScripts/scripts/ipp_inject_fileset.pl

@@ -50 +50 @@
 
 my $pxinject = can_run('pxinject') or die "Can't find pxinject\n";
+
+# workdir needs to be an absolute path, or it must start with file://, path://, or neb://
+if ($workdir) {
+    my $valid = 0;
+    $valid |= ($workdir =~ m|^file://|);
+    $valid |= ($workdir =~ m|^path://|);
+    $valid |= ($workdir =~ m|^neb://|);
+    $valid |= ($workdir =~ m|^/|);
+
+    if (!$valid) {
+        $workdir = File::Spec->rel2abs( $workdir );
+        print "adjust workdir to $workdir\n";
+    }
+}
 
 # if workdir is not defined, assign the current path