Changeset 20814

Timestamp:

Nov 21, 2008, 11:55:10 AM (17 years ago)

Author:

Paul Price

Message:

Adding restriction on class_id.

File:

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

trunk/tools/chip_outputs.pl

@@ -19 +19 @@
 
 my ($db_host, $db_name, $db_user, $db_pw); # Database details
-my ($chip_id);                  # Chip of interest
+my ($chip_id, $class_id);       # Chip of interest
 my ($input);                    # Input list
-my ($products);                 # Products of interest
+my ($products);                 # Products of interest
 
 GetOptions(
@@ -29 +29 @@
            'dbpass=s' => \$db_pw, # Database p/w
            'chip_id=s' => \$chip_id, # Chip identifier
-           'products=s' => \$products, # Products of interest
+           'class_id=s' => \$class_id, # Class identifier
+           'products=s' => \$products, # Products of interest
            ) or die "Unable to parse arguments.\n";
 die "Unknown option: @ARGV\n" if @ARGV;
@@ -50 +51 @@
     " FROM chipProcessedImfile " .
     " WHERE chip_id = $chip_id";
+$sql .= " AND class_id = $class_id" if defined $class_id;
 
 # List of chips
 my $results = $db->selectall_arrayref( $sql ) or die "Unable to execute SQL: $DBI::errstr";
 
-my @products;                   # Array of products
+my @products;                   # Array of products
 if (defined $products) {
     @products = split /,/, $products;
@@ -62 +64 @@
 
 foreach my $row ( @$results ) {
-    my $path = $$row[0];        # Path base
-    my $class_id = $$row[1];    # Class identifier
+    my $path = $$row[0];        # Path base
+    my $class_id = $$row[1];    # Class identifier
 
     my $name = "$path.$class_id"; # Full name
     foreach my $product ( @products ) {
-        copy_extension( $name, ${EXTENSIONS()}{$product} );
+        copy_extension( $name, ${EXTENSIONS()}{$product} );
     }
 }
@@ -77 +79 @@
 {
     my $path = shift;           # Path to copy
-    my $ext = shift;            # Extension to copy
+    my $ext = shift;            # Extension to copy
 
     my $neb = "$path$ext"; # Nebulous file