Changeset 11211

Timestamp:

Jan 19, 2007, 5:25:35 PM (19 years ago)

Author:

jhoblitt

Message:

add workdir support

File:

• trunk/ippScripts/scripts/phase0_imfile.pl (modified) (3 diffs)

trunk/ippScripts/scripts/phase0_imfile.pl

@@ -31 +31 @@
 use Pod::Usage qw( pod2usage );
 
-my ($cache, $exp_tag, $class_id, $uri, $no_update);
+my ($cache, $exp_tag, $class_id, $uri, $workdir, $no_update);
 
 GetOptions(
@@ -38 +38 @@
     'class_id|i=s'  => \$class_id,
     'uri|u=s'       => \$uri,
+    'workdir|w=s'   => \$workdir,
     'no-update'     => \$no_update
 ) or pod2usage( 2 );
@@ -103 +104 @@
 
 # Resolve the input URI
+$uri = File::Spec->catfile($workdir, $uri);
 $uri = $ipprc->convert_filename_absolute($uri);