Changeset 24201 for trunk/ippScripts/scripts/ipp_inject_fileset.pl

Timestamp:

May 15, 2009, 12:34:10 PM (17 years ago)

Author:

bills

Message:

Allow files to be injected to be nebulous files

File:

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

trunk/ippScripts/scripts/ipp_inject_fileset.pl

@@ -15 +15 @@
 use IPC::Cmd 0.36 qw( can_run run );
 use File::Spec;
-use PS::IPP::Config;
+use PS::IPP::Config qw( :standard );
 
 my $ipprc = PS::IPP::Config->new(); # this is used for PATH, NEB filename conversions
@@ -84 +84 @@
 foreach my $file ( @ARGV ) {
     # check for file existence
-    if (! -e $file) { die "file $file not found\n"; }
+    my $resolved = $ipprc->file_resolve($file);
+    if (!$resolved or ! -e $resolved) { die "file $file not found\n"; }
     if (! $exp_name) { 
         # strip off the extension
@@ -128 +129 @@
     my $file = $ARGV[$i];
 
-    my $absfile = File::Spec->rel2abs( $file );
-    my $relfile = $ipprc->convert_filename_relative( $absfile );
+    my $relfile;
+    my $scheme = file_scheme($file);
+    if (!$scheme or $scheme ne 'neb') {
+        my $absfile = File::Spec->rel2abs( $file );
+        $relfile = $ipprc->convert_filename_relative( $absfile );
+    } else {
+        $relfile = $file;
+    }
 
     # the class_id used here is temporary : register replaces it with the true class_id