Changeset 24828 for trunk/tools/stack_inputs.pl

Timestamp:

Jul 16, 2009, 4:17:50 PM (17 years ago)

Author:

Paul Price

Message:

Adding muggle option to do no magic.

File:

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

trunk/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;
@@ -68 +70 @@
 
 foreach my $warp_path ( @$warps ) {
+    if (defined $muggle) {
+        my @warp = split /\//, $warp;
+        my $last = pop @warp;
+        push @warp, "SR_$last";
+        $warp_path = join '/', @warp;
+    }
     print $list "INPUT METADATA\n" if defined $input;
     foreach my $type ( keys %{EXTENSIONS()} ) {