Changeset 32438

Timestamp:

Sep 23, 2011, 3:13:34 PM (15 years ago)

Author:

watersc1

Message:

final version of this iteration on LAP.

File:

• tags/ipp-20110622/ippScripts/scripts/lap_science.pl (modified) (5 diffs)

tags/ipp-20110622/ippScripts/scripts/lap_science.pl

@@ -27 +27 @@
 my ( $camera, $dbname);
 my ( $lap_id );
+my ( $queue_list );
 my ( $chip_mode, $monitor_mode, $cleanup_mode);
 
@@ -44 +45 @@
     
     'lap_id=s'     => \$lap_id,
+    'queue_list=s' => \$queue_list,
 
     'chip_mode'    => \$chip_mode,
@@ -261 +263 @@
         return($exposure);
     }
+
+    if (($chip->{state} eq 'goto_cleaned')||
+        ($warp->{state} eq 'goto_cleaned')||
+        ($chip->{dsRun_state} eq 'goto_cleaned')) {
+        $exposure->{data_state} = 'pending_update';
+        &update_this_exposure($exposure);
+        return($exposure);
+    }
+
     
     my $chiptool_update_cmd = "chiptool -setimfiletoupdate -chip_id $exposure->{chip_id} -set_label $label";
@@ -621 +632 @@
             $have_diff ++;
             $are_magicked ++;
+            next;
+        }
+
+        if ($exposure->{data_state} eq 'pending_update') {
+            $exposure->{data_state} = 'update';
+            $exposure = &remake_this_exposure_by_update($exposure);
+            &update_this_exposure($exposure);
             next;
         }
@@ -1202 +1220 @@
 sub cleanup_mode {
     my $lap_id = shift;
+
+    if (defined($queue_list)) {
+        my $successful = 1;
+        open(Q,$queue_list) or ($successful = 0);
+        if ($successful == 1) {
+            while(<Q>) {
+                chomp;
+                my $cmd = $_;
+                my ($projection_cell,$seq_id,$filter,$label);
+                $projection_cell = $cmd;
+                $projection_cell =~ s/.*?-projection_cell (skycell.\w+?) .*/$1/;
+                $seq_id = $cmd;
+                $seq_id =~ s/.*-seq_id (\d+?) .*/$1/;
+                $filter = $cmd;
+                $filter =~ s/.*-filter (\w\.00000) .*/$1/;
+                if ($filter =~ /\s+?/) {
+                    $filter =~ s/.*-filter (\w\.00000)$/$1/;
+                }
+                $label = $cmd;
+                $label =~ s/.*-label (.+?) .*/$1/;
+                
+                my $response;
+                chomp($response = 
+                      `laptool -dbname gpc1 -listrun -projection_cell $projection_cell -seq_id $seq_id -filter $filter -label $label -simple`);
+                my $state = (split /\s+/, $response)[5];
+                
+                unless (defined($state)) {
+                    if ($verbose) {
+                        print "Queuing: $cmd\n";
+                    }
+                    system($cmd);
+                    
+                    my $i = 0;
+                    do {
+                        sleep(5);
+                        chomp($response = 
+                              `laptool -dbname gpc1 -listrun -projection_cell $projection_cell -seq_id $seq_id -filter $filter -label $label -simple`);
+                        $state = (split /\s+/, $response)[5];
+                        $i++;
+                        unless(defined($state)) {
+                            $successful = 0;
+                        }
+                    } while (($state ne 'run')&&($i < 20)&&($successful));
+                    last;
+                }
+            }
+            close(Q);
+        }
+    }
+
     my $command = "$laptool -inactiveexp -lap_id $lap_id ";
     $command .= " -dbname $dbname " if defined $dbname;