Changeset 25027 for branches/pap/tools/stack_inputs.pl

Timestamp:

Aug 7, 2009, 4:08:25 PM (17 years ago)

Author:

Paul Price

Message:

Merging trunk (r25026) to get up-to-date on old branch.

Location:

branches/pap

Files:

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

branches/pap/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;