Changeset 21091

Timestamp:

Jan 8, 2009, 10:57:15 AM (17 years ago)

Author:

Paul Price

Message:

Adding ability to pull out only particular products.

File:

• trunk/tools/stack_outputs.pl (modified) (4 diffs)

trunk/tools/stack_outputs.pl

@@ -25 +25 @@
 my ($stack_id);                  # Stack of interest
 my ($input);                    # Input list
+my ($products);                 # Products of interest
 
 GetOptions(
@@ -32 +33 @@
            'dbpass=s' => \$db_pw, # Database p/w
            'stack_id=s' => \$stack_id, # Stack identifier
+           'products=s' => \$products, # Products of interest
            ) or die "Unable to parse arguments.\n";
 die "Unknown option: @ARGV\n" if @ARGV;
@@ -56 +58 @@
                                      ) 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 $stack ( @$stacks ) {
-    copy_extensions( $stack, EXTENSIONS() );
+    foreach my $product ( @products ) {
+        copy_extension( $stack, ${EXTENSIONS()}{$product} );
+    }
 }
 
@@ -63 +74 @@
 
 
-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 $neb = "$path$ext"; # Nebulous file
-        my $source = `neb-locate --path $neb` or die "Unable to locate $neb\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";
 }