Changeset 20721 for trunk/tools/warp_outputs.pl

Timestamp:

Nov 13, 2008, 10:43:34 AM (17 years ago)

Author:

Paul Price

Message:

Adding support for retrieving specific products. Fixing bug that was
attempting to pull out even ignored warps.

File:

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

trunk/tools/warp_outputs.pl

@@ -22 +22 @@
 my ($skycell_id);               # Skycell of interest
 my ($input);                    # Input list
+my ($products);                 # Products of interest
 
 GetOptions(
@@ -30 +31 @@
            'warp_id=s' => \$warp_id, # Warp identifier
            'skycell_id=s' => \$skycell_id, # Skycell identifier
+           'products=s' => \$products, # Products of interest
            ) or die "Unable to parse arguments.\n";
 die "Unknown option: @ARGV\n" if @ARGV;
@@ -47 +49 @@
 
 # Query to run
-my $sql = "SELECT path_base FROM warpSkyfile WHERE warp_id = $warp_id";
+my $sql = "SELECT path_base FROM warpSkyfile WHERE warp_id = $warp_id AND ignored = 0";
 $sql .= " AND skycell_id = $skycell_id" if defined $skycell_id;
 
@@ -55 +57 @@
                                      ) or die "Unable to execute SQL: $DBI::errstr";
 
+my @products;                   # Array of products
+if (defined $products) {
+    @products = split /,/, $products;
+} else {
+    @products = keys %{EXTENSIONS()};
+}
+
 foreach my $warp ( @$warps ) {
-    copy_extensions( $warp, EXTENSIONS() );
+    foreach my $product ( @products ) {
+        copy_extension( $warp, ${EXTENSIONS()}{$product} );
+    }
 }
 
@@ -62 +73 @@
 
 
-sub copy_extensions
+sub copy_extension
 {
     my $path = shift;           # Path to copy
-    my $extensions = shift;     # Extensions structure
+    my $ext = shift;            # Extension to copy
 
-    foreach my $type ( keys %$extensions ) {
-        my $ext = $$extensions{$type}; # Extension
-        my $file = "$path$ext"; # File
-        my $source = `ipp_datapath.pl $file` or die "Unable to locate $file\n"; # Actual file
-        chomp $source;
-        my ($target) = $source =~ m|^.*[:/](.*)|; # Target name
-        !system "cp $source $target" or die "Unable to copy $source\n";
-    }
+    my $file = "$path$ext"; # File
+    my $source = `ipp_datapath.pl $file` or die "Unable to locate $file\n"; # Actual file
+    chomp $source;
+    my ($target) = $source =~ m|^.*[:/](.*)|; # Target name
+    !system "cp $source $target" or die "Unable to copy $source\n";
 }