Index: trunk/tools/warp_outputs.pl
===================================================================
--- trunk/tools/warp_outputs.pl	(revision 25859)
+++ trunk/tools/warp_outputs.pl	(revision 26379)
@@ -24,4 +24,5 @@
 my ($input);                    # Input list
 my ($products);                 # Products of interest
+my ($muggle);                   # No magicked inputs?
 
 GetOptions(
@@ -33,5 +34,7 @@
            '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,4 +83,12 @@
 
     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;