Changeset 24951 for branches/czw_branch/cleanup/tools/stack_inputs.pl

Timestamp:

Jul 30, 2009, 5:20:29 PM (17 years ago)

Author:

watersc1

Message:

Finished up my edits to the detrend cleanup, and some changes to my
copy of burntool and the pslib astrometry. Detrend cleanup has not
been tested yet. That's up next.

Location:

branches/czw_branch/cleanup

Files:

• . (modified) (1 prop)
• tools/stack_inputs.pl (modified) (3 diffs)

branches/czw_branch/cleanup/tools/stack_inputs.pl

@@ -24 +24 @@
 my ($stack_id);                 # Stack of interest
 my ($input);                    # Input list
+my ($muggle);                   # No magicked inputs?
 
 GetOptions(
@@ -32 +33 @@
            'stack_id=s' => \$stack_id, # Stack identifier
            'input=s'  => \$input, # Input list to generate
+           'muggle'   => \$muggle, # No magicked inputs?
            ) or die "Unable to parse arguments.\n";
 die "Unknown option: @ARGV\n" if @ARGV;
@@ -70 +72 @@
     print $list "INPUT METADATA\n" if defined $input;
     foreach my $type ( keys %{EXTENSIONS()} ) {
+        my $path = $warp_path;
+        if (defined $muggle and $type ne "PSF") {
+            my @warp = split /\//, $warp_path;
+            my $last = pop @warp;
+            push @warp, "SR_$last";
+            $path = join '/', @warp;
+        }
         my $ext = ${EXTENSIONS()}{$type}; # Extension
-        my $file = "$warp_path$ext"; # File
+        my $file = "$path$ext"; # File
         my $source = `ipp_datapath.pl $file` or die "Unable to locate $file\n"; # Resolved file name
         chomp $source;