Changeset 27840 for branches/simtest_nebulous_branches/tools/warp_outputs.pl

Timestamp:

May 3, 2010, 8:50:52 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/simtest_nebulous_branches

Files:

• . (modified) (1 prop)
• tools/warp_outputs.pl (modified) (4 diffs)

branches/simtest_nebulous_branches/tools/warp_outputs.pl

@@ -16 +16 @@
                              'VARIANCE' => '.wt.fits', # Variance
                              'SOURCES' => '.cmf', # Sources
+                             'PSF' => '.psf', # Point-Spread Function
                          };
 
@@ -23 +24 @@
 my ($input);                    # Input list
 my ($products);                 # Products of interest
+my ($muggle);                   # No magicked inputs?
 
 GetOptions(
@@ -32 +34 @@
            'skycell_id=s' => \$skycell_id, # Skycell identifier
            'products=s' => \$products, # Products of interest
-           ) or die "Unable to parse arguments.\n";
+           'muggle'   => \$muggle, # No magicked inputs?
+           ) or 
+die "Unable to parse arguments.\n";
 die "Unknown option: @ARGV\n" if @ARGV;
 die "Required options: --dbhost --dbname --dbuser --dbpass --warp_id\n"
@@ -79 +83 @@
 
     my $file = "$path$ext"; # File
+
+    if (defined $muggle and $ext ne ".psf") {
+        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;