Changeset 27572 for trunk/tools/microtest.pl

Timestamp:

Apr 1, 2010, 5:36:58 PM (16 years ago)

Author:

Paul Price

Message:

Allow use of data_group.

File:

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

trunk/tools/microtest.pl

@@ -16 +16 @@
 my ($db_host, $db_name, $db_user, $db_pw); # Database details
 my ($label);                               # Label of interest
+my ($group);                               # Data group
 my ($verbose);                             # Verbosity?
 my ($save_temps);                          # Save temporary outputs?
@@ -25 +26 @@
            'dbpass=s' => \$db_pw, # Database p/w
            'label=s' => \$label, # Label of interest
+    'data_group=s' => \$group,   # Data group
            'verbose' => \$verbose, # Verbosity?
     'save-temps' => \$save_temps,  # Save temporary outputs?
@@ -46 +48 @@
 
 # Exposures of interest
-my $exps = $db->selectall_arrayref(
-    "SELECT DISTINCT exp_id, exp_name, magic_id, magicRun.workdir AS magic_path, camProcessedExp.path_base AS cam_path FROM magicRun JOIN rawExp USING(exp_id) JOIN diffRun USING(diff_id) JOIN diffInputSkyfile USING(diff_id) JOIN warpRun ON warpRun.warp_id = diffInputSkyfile.warp1 JOIN fakeRun USING(fake_id) JOIN camProcessedExp USING(cam_id) WHERE magicRun.label = '$label' AND magicRun.state = 'full'",
-    { Slice => {} }
-    ) or die "Unable to execute SQL: $DBI::errstr";
+my $sql = "SELECT DISTINCT exp_id, exp_name, magic_id, magicRun.workdir AS magic_path, camProcessedExp.path_base AS cam_path FROM magicRun JOIN rawExp USING(exp_id) JOIN diffRun USING(diff_id) JOIN diffInputSkyfile USING(diff_id) JOIN warpRun ON warpRun.warp_id = diffInputSkyfile.warp1 JOIN fakeRun USING(fake_id) JOIN camProcessedExp USING(cam_id) WHERE magicRun.label = '$label' AND magicRun.state = 'full'";
+$sql .= " AND magicRun.data_group = '$group'" if defined $group;
+my $exps = $db->selectall_arrayref($sql, { Slice => {} }) or die "Unable to execute SQL: $DBI::errstr";
+
+$label = $group if defined $group;
 
 foreach my $exp (@$exps) {