Changeset 19634

Timestamp:

Sep 21, 2008, 9:21:14 PM (18 years ago)

Author:

eugene

Message:

handle files with spaces in the names

File:

• trunk/ippScripts/scripts/ipp_serial_inject.pl (modified) (2 diffs)

trunk/ippScripts/scripts/ipp_serial_inject.pl

@@ -81 +81 @@
     my ( $vol, $path, $name ) = File::Spec->splitpath( $absfile );
     my ( $exp_name ) = $name =~ /(.*)\.(fits|fit|fts)(|.gz)/;
+    $exp_name =~ s|\s|_|g;
 
     my $relfile = $ipprc->convert_filename_relative( $absfile );
@@ -113 +114 @@
     $command_imfile .= " -exp_id $exp_id";
     $command_imfile .= " -tmp_class_id fpa";
-    $command_imfile .= " -uri $relfile";
+    $command_imfile .= " -uri '$relfile'";
     $command_imfile .= " -dbname $dbname" if defined ($dbname);