Changeset 20731 for trunk/ippScripts/scripts/magic_definerun.pl

Timestamp:

Nov 13, 2008, 2:24:31 PM (17 years ago)

Author:

bills

Message:

add parameter to select the minimum diff_id to consider
(to distinguish between multiple diff runs on the same warped files)

File:

• trunk/ippScripts/scripts/magic_definerun.pl (modified) (3 diffs)

trunk/ippScripts/scripts/magic_definerun.pl

@@ -31 +31 @@
 
 # Parse the command-line arguments
-my ($exp_id, $warp_id, $workdir, $dbname, $save_temps, $verbose);
+my ($exp_id, $warp_id, $min_diff_id, $workdir, $dbname, $save_temps, $verbose);
 
 GetOptions(
            'exp_id=s'        => \$exp_id,     # exposure identifier
            'warp_id=s'       => \$warp_id,    # warp identifier
+           'min_diff_id=s'   => \$min_diff_id, # minimum diff id to consider
            'dbname=s'        => \$dbname,     # Database name
            'workdir=s'       => \$workdir,    # workdir
@@ -108 +109 @@
 print "$num_skyfiles skyfiles found for $exp_id\n" if $verbose;
 
-if ($warp_id) {
+if ($warp_id or $min_diff_id) {
     # filter the inputs
     my $i = 0;
@@ -114 +115 @@
         my $keep = 1;
         my $sf = $inputs->[$i];
-        my $this_warp_id = $sf->{warp_id_temp_0};
-
-        if ($warp_id ne $this_warp_id) {
-            $keep = 0;
+
+        if ($warp_id) {
+            if ($warp_id ne $sf->{warp_id_temp_0}) {;
+                $keep = 0;
+            }
+        }
+        if ($min_diff_id) {
+            if ($sf->{diff_id} < $min_diff_id) {
+                $keep = 0;
+            }
         }
         if ( $keep) {