Changeset 24640 for trunk/ippScripts/scripts/publish_file.pl

Timestamp:

Jul 2, 2009, 9:35:30 AM (17 years ago)

Author:

bills

Message:

Need to tell file_resolve to create output file if it doesn't exist and check that it succeeded.

File:

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

trunk/ippScripts/scripts/publish_file.pl

@@ -136 +136 @@
     my $zp = $zp{$comp};
     if ($product eq "IPP-MOPS") {
-        my $out = $ipprc->file_resolve( "$outroot.$comp.fits" );
+        my $outuri = "$outroot.$comp.fits";
+        my $out = $ipprc->file_resolve( $outuri, 'create' ) or
+            &my_die( "Unable to resolve output file $outuri", $pub_id, $PS_EXIT_SYS_ERROR);
+
         my $command = "$ppMops $file $zp $out";
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =