Changeset 31429 for branches/czw_branch/20110406/ippScripts/scripts/diff_skycell.pl

Timestamp:

May 3, 2011, 7:28:38 PM (15 years ago)

Author:

watersc1

Message:

Hard coded cleanup commands into the script, but it works, and triggers cleanup for the things we're done with. Edit to diff_skycell.pl to create a dummy refConv file for magic to use when we haven't convolved anything.

File:

• branches/czw_branch/20110406/ippScripts/scripts/diff_skycell.pl (modified) (2 diffs)

branches/czw_branch/20110406/ippScripts/scripts/diff_skycell.pl

@@ -31 +31 @@
 my $ppSub = can_run('ppSub') or (warn "Can't find ppSub" and $missing_tools = 1);
 my $ppStatsFromMetadata = can_run('ppStatsFromMetadata') or (warn "Can't find ppStatsFromMetadata" and $missing_tools = 1);
+my $nebInsert = can_run('neb-insert') or (warn "Can't find neb-insert" and $missing_tools = 1);
 if ($missing_tools) {
     warn("Can't find required tools.");
@@ -383 +384 @@
                 }
             }
+            if ($reduction eq 'NOCONVDIFF') {
+                my $refConv = prepare_output("PPSUB.REF.CONV", $outroot, 0);
+                my $templateFile = $ipprc->file_resolve($template,0);
+                $command = "$nebInsert $refConv $templateFile";
+                ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+                    run(command => $command, verbose => $verbose);
+                unless ($success) {
+                    $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+                    &my_die("Unable to perform neb-insert: $error_code", $diff_id, $skycell_id, $error_code);
+                }
+            }
+
+
         } elsif ($run_state eq 'update') {
             &my_die("Update resulted in poor quality image: $quality", $diff_id, $skycell_id, $PS_EXIT_SYS_ERROR);