Changeset 26379

Timestamp:

Dec 10, 2009, 6:47:06 AM (16 years ago)

Author:

Paul Price

Message:

Adding muggle option to get non-magicked data.

File:

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

trunk/tools/warp_outputs.pl

@@ -24 +24 @@
 my ($input);                    # Input list
 my ($products);                 # Products of interest
+my ($muggle);                   # No magicked inputs?
 
 GetOptions(
@@ -33 +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"
@@ -80 +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;