Changeset 31435 for trunk/ippScripts/scripts

Timestamp:

May 4, 2011, 3:59:42 PM (15 years ago)

Author:

watersc1

Message:

LAP code, quick stacking code, and unconvolved diff code.

Location:

trunk/ippScripts/scripts

Files:

• diff_skycell.pl (modified) (3 diffs)
• lap_science.pl (copied) (copied from branches/czw_branch/20110406/ippScripts/scripts/lap_science.pl )
• magic_destreak.pl (modified) (1 diff)

trunk/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.");
@@ -265 +266 @@
 my $do_photom = 1;
 my $dump_config = 1; 
+if ($reduction eq 'NOCONVDIFF') {
+    $do_photom = 0;
+}
 if ($run_state eq 'new') {
     $configuration = prepare_output("PPSUB.CONFIG", $outroot, 1);
@@ -380 +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);

trunk/ippScripts/scripts/magic_destreak.pl

@@ -360 +360 @@
         $command .= " -chip_mask $ch_mask" if defined $ch_mask;
         $command .= " -weight $weight" if defined $weight;
-        $command .= " -sources $sources" if defined $sources;
+        if ((defined($sources))&&($ipprc->file_exists($sources))) {
+            $command .= " -sources $sources" if defined $sources;
+        }
+        else {
+            print "Did not add sources because they do not appear to exist. This may be an error.\n";
+        }
         $command .= " -skycelllist $skycell_list" if defined $skycell_list;
         $command .= " -replace" if $replace;