Changeset 10625

Timestamp:

Dec 11, 2006, 1:35:17 PM (19 years ago)

Author:

Paul Price

Message:

Need to quote arguments with whitespace with this latest version of IPC::Cmd

Location:

trunk/ippScripts/scripts

Files:

• phase0_exp.pl (modified) (1 diff)
• phase0_imfile.pl (modified) (3 diffs)

trunk/ippScripts/scripts/phase0_exp.pl

@@ -160 +160 @@
     }
  
+    # Quote arguments with whitespace
+    for (my $i = 0; $i < scalar @command; $i++) {
+        if ($command[$i] =~ /\s/) {
+            $command[$i] = "\'$command[$i]\'";
+        }
+    }
+
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         cache_run(command => \@command, verbose => 1);

trunk/ippScripts/scripts/phase0_imfile.pl

@@ -13 +13 @@
 use PS::IPP::Metadata::Config;
 use PS::IPP::Metadata::Stats;
+use Data::Dumper;
 
 use PS::IPP::Config;
@@ -114 +115 @@
     foreach my $constant (keys %{CONSTANTS()}) {
         push @command, CONSTANTS->{$constant}, ($stats->data($constant))->{value};
+
     }
     foreach my $variable (keys %{VARIABLES()}) {
@@ -139 +141 @@
         push @command, "NAN";
     }
- 
+
+    # Quote arguments with whitespace
+    for (my $i = 0; $i < scalar @command; $i++) {
+        if ($command[$i] =~ /\s/) {
+            $command[$i] = "\'$command[$i]\'";
+        }
+    }
+
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => \@command, verbose => 1);