Changeset 20811 for trunk/tools/diff_outputs.pl

Timestamp:

Nov 20, 2008, 5:37:35 PM (17 years ago)

Author:

Paul Price

Message:

Allow products to be specified.

File:

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

trunk/tools/diff_outputs.pl

@@ -23 +23 @@
 my ($diff_id);                  # Diff of interest
 my ($input);                    # Input list
+my ($products);                 # Products of interest
 
 GetOptions(
@@ -30 +31 @@
            'dbpass=s' => \$db_pw, # Database p/w
            'diff_id=s' => \$diff_id, # Diff identifier
+           'products=s' => \$products, # Products of interest
            ) or die "Unable to parse arguments.\n";
 die "Unknown option: @ARGV\n" if @ARGV;
@@ -54 +56 @@
                                      ) 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 $diff ( @$diffs ) {
-    copy_extensions( $diff, EXTENSIONS() );
+    foreach my $product ( @products ) {
+        copy_extension( $diff, ${EXTENSIONS()}{$product} );
+    }
 }
+
 
 # Pau.
 
 
-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";
 }