Changeset 25240

Timestamp:

Sep 1, 2009, 6:06:53 PM (17 years ago)

Author:

Paul Price

Message:

Still wasn't getting diff_id

File:

• branches/pap_mops/ippScripts/scripts/publish_file.pl (modified) (5 diffs)

branches/pap_mops/ippScripts/scripts/publish_file.pl

@@ -40 +40 @@
 # Parse the command-line arguments
 my ( $pub_id, $camera, $stage, $stage_id, $fileset, $format, $product, $workdir );
-my ( $dbname, $verbose, $no_update, $save_temps, $redirect );
+my ( $dbname, $verbose, $no_update, $no_op, $save_temps, $redirect );
 
 GetOptions(
@@ -53 +53 @@
     'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update, # Don't update the database?
+    'no-op'             => \$no_op, # Don't do any operations
     'save-temps'        => \$save_temps, # Save temporary files?
     'redirect-output'   => \$redirect,   # Redirect output to log file?
@@ -141 +142 @@
                      fake_id => $comp->{fake_id_1},
                      warp_id => $comp->{warp1},
+                     diff_id => $comp->{diff_id},
                      direction => 1,
         };
@@ -166 +168 @@
                          fake_id => $comp->{fake_id_2},
                          warp_id => $comp->{warp2},
+                         diff_id => $comp->{diff_id},
                          direction => 0,
             };
@@ -274 +277 @@
     $command .= " -astrom_rms " . $data->{astrom} if defined $data->{astrom};
 
-    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbose);
-    &my_die( "Unable to translate", $pub_id, $PS_EXIT_SYS_ERROR) unless $success;
-    &my_die( "Unable to find translated file $output", $pub_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists( $output );
+    unless ($no_op) {
+        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+            run(command => $command, verbose => $verbose);
+        &my_die( "Unable to translate", $pub_id, $PS_EXIT_SYS_ERROR) unless $success;
+        &my_die( "Unable to find translated file $output", $pub_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists( $output );
+    } else {
+        print "Not running: $command\n";
+    }
 
     return $output;