Changeset 21033 for trunk/tools/diff_outputs.pl

Timestamp:

Dec 17, 2008, 3:26:17 PM (17 years ago)

Author:

Paul Price

Message:

Attempt to fix following schema change.

File:

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

trunk/tools/diff_outputs.pl

@@ -21 +21 @@
 
 my ($db_host, $db_name, $db_user, $db_pw); # Database details
-my ($diff_id);                  # Diff of interest
+my ($diff_id, $skycell_id);     # Diff and skycell of interest
 my ($input);                    # Input list
 my ($products);                 # Products of interest
@@ -31 +31 @@
            'dbpass=s' => \$db_pw, # Database p/w
            'diff_id=s' => \$diff_id, # Diff identifier
+           'skycell_id=s' => \$skycell_id, # Skycell identifier
            'products=s' => \$products, # Products of interest
            ) or die "Unable to parse arguments.\n";
@@ -50 +51 @@
 # Query to run
 my $sql = "SELECT path_base FROM diffSkyfile WHERE diff_id = $diff_id";
+$sql .= " AND skycell_id = $skycell_id" if defined $skycell_id;
 
 # List of diffs