Changeset 27690

Timestamp:

Apr 14, 2010, 4:49:51 PM (16 years ago)

Author:

Paul Price

Message:

Add muggle flag.

File:

• trunk/tools/chip_outputs.pl (modified) (5 diffs)

trunk/tools/chip_outputs.pl

@@ -12 +12 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
 
+use constant MUGGLE => { 'IMAGE' => 1,
+                         'MASK' => 1,
+                         'VARIANCE' => 1,
+};
+
 use constant EXTENSIONS => { 'IMAGE' => '.ch.fits', # Image
                              'MASK' => '.ch.mk.fits', # Mask
@@ -24 +29 @@
 my ($input);                    # Input list
 my ($products);                 # Products of interest
+my ($muggle);                   # Retrieve un-magicked data?
 
 GetOptions(
@@ -33 +39 @@
            'class_id=s' => \$class_id, # Class identifier
            'products=s' => \$products, # Products of interest
+           'muggle' => \$muggle, # Retrieve un-magicked data?
            ) or die "Unable to parse arguments.\n";
 die "Unknown option: @ARGV\n" if @ARGV;
@@ -60 +67 @@
 my @products;                   # Array of products
 if (defined $products) {
-    @products = split /,/, $products;
+    @products = split(/,/, $products);
 } else {
     @products = keys %{EXTENSIONS()};
@@ -71 +78 @@
     my $name = "$path.$class_id"; # Full name
     foreach my $product ( @products ) {
-        copy_extension( $name, ${EXTENSIONS()}{$product} );
+        my $base = $name;
+        if ($muggle and defined ${MUGGLE()}{$product}) {
+            my @file = split /\//, $base;
+            my $last = pop @file;
+            push @file, "SR_$last";
+            $base = join '/', @file;
+        }
+        copy_extension( $base, ${EXTENSIONS()}{$product} );
     }
 }