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

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