Changeset 24951 for branches/czw_branch/cleanup/tools/diff_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/diff_inputs.pl (modified) (3 diffs)

branches/czw_branch/cleanup/tools/diff_inputs.pl

@@ -28 +28 @@
 my ($diff_id, $skycell_id);     # Diff and skycell of interest
 my ($input);                    # Input list
+my ($muggle);                   # No magicked inputs?
 
 GetOptions(
@@ -37 +38 @@
            'skycell_id=s' => \$skycell_id, # Skycell 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;
@@ -88 +90 @@
     if (defined $warp) {
         copy_extensions( $warp, WARP_EXTENSIONS() );
+        if (defined $muggle) {
+            my @warp = split /\//, $warp;
+            my $last = pop @warp;
+            push @warp, "SR_$last";
+            $warp = join '/', @warp;
+            copy_extensions( $warp, WARP_EXTENSIONS() );
+        }
     } elsif (defined $stack) {
         copy_extensions( $stack, STACK_EXTENSIONS() );