Changeset 25458 for trunk/tools/warp_inputs.pl

Timestamp:

Sep 21, 2009, 12:02:57 PM (17 years ago)

Author:

Paul Price

Message:

Add muggle option.

File:

• trunk/tools/warp_inputs.pl (modified) (3 diffs)

trunk/tools/warp_inputs.pl

@@ -23 +23 @@
 my ($skycell_id);               # Skycell of interest
 my ($image, $mask, $variance); # Files to contain input lists
+my ($muggle);                   # No magicked inputs?
 
 GetOptions(
@@ -34 +35 @@
            'mask=s' => \$mask,  # File with masks
            'variance=s' => \$variance, # File with variances
+           'muggle'   => \$muggle, # No magicked inputs?
            ) or die "Unable to parse arguments.\n";
 die "Unknown option: @ARGV\n" if @ARGV;
@@ -108 +110 @@
     my $file = shift;           # File to copy
 
+    if (defined $muggle) {
+        my @file = split /\//, $file;
+        my $last = pop @file;
+        push @file, "SR_$last";
+        $file = join '/', @file;
+    }
+
     my $source = `ipp_datapath.pl $file` or die "Unable to locate $file\n"; # Actual file
     chomp $source;