Changeset 34221 for trunk/ippScripts/scripts/nightly_science.pl

Timestamp:

Jul 30, 2012, 5:21:45 PM (14 years ago)

Author:

watersc1

Message:

Half-tested version of new nightly science that allows stacking nightly data against previously generated warps, on the correct limited scale (only stack skycells that had contribution fromm the nightly data).

File:

• trunk/ippScripts/scripts/nightly_science.pl (modified) (1 diff)

trunk/ippScripts/scripts/nightly_science.pl

@@ -1006 +1006 @@
         $cmd .= " -set_reduction NIGHTLY_STACK ";
     }
+    if (defined($science_config{$target}{ADDITIONAL_STACK_LABEL})) {
+        # Grab list of skycells
+        my $skycell_select = '';
+        {
+            my %skycells = ();
+            my $warpcmd = "$warptool -warped -label $label -data_group $data_group  -dbname $dbname";
+            my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = 
+                run(command => $warpcmd, verbose => $verbose);
+            unless($success) {
+                $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+                &my_die("Unabel to perform warptool -warped to determine skycell_ids: $error_code",$target);
+            }
+            my $runs = $mdcParser->parse_list(join "", @$stdout_buf) or
+                &my_die("Unabel to parse warptool -warped to determine skycell_ids: $error_code",$target);
+            if ($#{ $runs } != -1) {
+                for my $warp (@$runs) {
+                    $skycells{$warp->{skycell_id}} = 1;
+                }
+                foreach my $skycell (sort (keys (%skycells))) {
+                    $skycell_select .= " -skycell $skycell ";
+                }
+                $cmd .= " -select_label $science_config{$target}{ADDITIONAL_STACK_LABEL} $skycell_select ";
+            }
+        }
+    }
     $cmd .= " $select ";
     if ($debug == 1) {