Changeset 29523

Timestamp:

Oct 22, 2010, 11:53:46 AM (16 years ago)

Author:

bills

Message:

replicate streakMap and clusters.lisb but not the images

File:

• tags/ipp-20100823/ippScripts/scripts/magic_process.pl (modified) (2 diffs)

tags/ipp-20100823/ippScripts/scripts/magic_process.pl

@@ -90 +90 @@
 
 # list of VerifyStreaks input and output files to copy to nebulous 
-my @verify_outputs = qw(
-clusterPos.txt
-duplicate.png
-mask.png
-original.png
-original.fits
-residual.png
-residual.fits
-clusters.list
+my %verify_outputs = (
+'clusterPos.txt' => 0,
+'duplicate.png' => 0,
+'mask.png' => 0,
+'original.png' => 0,
+'original.fits' => 0,
+'residual.png' => 0,
+'residual.fits' => 0,
+'clusters.list' => 1
 );
 
@@ -403 +403 @@
     if ($output_streaks and ($output_streaks ne $streaks_file)) {
         copy_to_nebulous($ipprc, $streaks_file, $output_streaks, 1);
-        foreach my $f (@verify_outputs) {
+        my $streaks_map = $outroot . ".streakMap";
+        my $output_streaks_map = $final_outroot . ".streakMap";
+        copy_to_nebulous($ipprc, $streaks_map, $output_streaks_map, 1);
+        foreach my $f (keys %verify_outputs) {
+            my $replicate = $verify_outputs{$f};
             my $src = "$baseroot.verify/${exp_id}_$f";
             my $dest = "$final_outroot.${f}";
-            copy_to_nebulous($ipprc, $src, $dest, 1);
+            copy_to_nebulous($ipprc, $src, $dest, $replicate);
         }
     } else {