Changeset 27517 for branches/eam_branches/20100225/ippScripts/scripts/automate_stacks.pl

Timestamp:

Mar 29, 2010, 3:55:49 PM (16 years ago)

Author:

eugene

Message:

update merges from trunk

Location:

branches/eam_branches/20100225

Files:

• . (modified) (1 prop)
• ippScripts/scripts/automate_stacks.pl (modified) (7 diffs)

branches/eam_branches/20100225/ippScripts/scripts/automate_stacks.pl

@@ -426 +426 @@
         my ($trash,$start,$end);
         ($trash,$trash,$start,$end) = (split /\s+/,$row);
-        $metadata_out{"btBegin${N}"} = $start;
-        $metadata_out{"btEnd${N}"} = $end;
-        $metadata_out{"btCounter${N}"} = 0;
-        $N++;
+
+        for (my $class_counter = 0; $class_counter < 60; $class_counter++) {
+            $metadata_out{"bt${N}Begin"} = $start;
+            $metadata_out{"bt${N}End"} = $end;
+            $metadata_out{"bt${N}Class"} = $class_counter;
+            $metadata_out{"bt${N}Status"} = 'NEW';
+            $N++;
+        }
         print STDERR "define_burntool: $row\n";
     }
@@ -535 +539 @@
     my $date = shift;
     my $pretend = shift;
+    my $exposures = 0;
     foreach my $target (@target_list) {
         my ($Nexposures,$Nimfiles,$Nburntooled,$Nalready) = pre_chip_queue($date,$target);
@@ -550 +555 @@
             next;
         }
+        $exposures++;
         unless(defined($pretend)) {
             chip_queue($date,$target);
         }
+    }
+    if ($exposures == 0) {
+        $metadata_out{nsState} = 'DROP';
     }
 }
@@ -664 +673 @@
                 my ($Nexposures,$NprocChips,$NprocWarps,$Nalready) = pre_stack_queue($date,$target,$filter);
                 if ((!defined($force_stack_count))&&($NprocChips != $NprocWarps)) { # This makes me sad. :(
-                    print STDERR "execute_stacks: Target $target on $date is not fully processed. ($NprocChips $NprocWarps)\n";
+                    # print STDERR "execute_stacks: Target $target on $date is not fully processed. ($NprocChips $NprocWarps)\n";
                     $metadata_out{nsState} = 'FORCETOWARP';
                     next;
                 }
                 if ($Nexposures == 0) {
-                    print STDERR "execute_stacks: Target $target in filter $filter on $date has no exposures.\n";
+                    # print STDERR "execute_stacks: Target $target in filter $filter on $date has no exposures.\n";
                     next;
                 }
                 if ($Nalready != 0) {
-                    print STDERR "execute_stacks: Not queueing $target in filter $filter on $date due to already existing stacks.\n";
+                    # print STDERR "execute_stacks: Not queueing $target in filter $filter on $date due to already existing stacks.\n";
                     next;
                 }
@@ -680 +689 @@
                 }
                 unless(defined($pretend)) {
-                    print STDERR "execute_stacks: Target $target in filter $filter on $date has exposures and will be queued.\n";
+                    # print STDERR "execute_stacks: Target $target in filter $filter on $date has exposures and will be queued.\n";
                     stack_queue($date,$target,$filter);
                 }
@@ -686 +695 @@
         }
         else {
-            print STDERR "execute_stacks: Target $target is not auto-stackable.\n";
+            # print STDERR "execute_stacks: Target $target is not auto-stackable.\n";
         }
     }
@@ -793 +802 @@
     print STDOUT "autoStack METADATA\n";
     print STDOUT "   date                  STR          $date\n";
-    foreach my $k (keys %metadata_out) {
+    foreach my $k (sort(keys %metadata_out)) {
         print STDOUT "   $k                STR          $metadata_out{$k}\n";
     }