Changeset 30700 for branches/eam_branches/ipp-20110213/ippScripts

Timestamp:

Feb 19, 2011, 10:28:40 AM (15 years ago)

Author:

eugene

Message:

merge from trunk

Location:

branches/eam_branches/ipp-20110213/ippScripts/scripts

Files:

• ipp_apply_burntool_single.pl (modified) (1 prop)
• magic_destreak.pl (modified) (1 diff)
• magic_destreak_revert.pl (modified) (1 diff)
• nightly_science.pl (modified) (4 diffs)

branches/eam_branches/ipp-20110213/ippScripts/scripts/magic_destreak.pl

@@ -152 +152 @@
 
 
+# We don't use recoveryroot for camera stage
+if ($stage eq 'camera') {
+    $recoveryroot = undef;
+}
+
 # default value is "NULL" do not use
 if (defined($recoveryroot) and ($recoveryroot eq "NULL")) {

branches/eam_branches/ipp-20110213/ippScripts/scripts/magic_destreak_revert.pl

@@ -451 +451 @@
 {
     foreach my $file (@_) {
+        next if !$file;
         if ($ipprc->file_exists($file)) {
             if (!$ipprc->file_delete($file)) {

branches/eam_branches/ipp-20110213/ippScripts/scripts/nightly_science.pl

@@ -1315 +1315 @@
     my $cam_ref  = $db->selectall_arrayref( $cam_sth );
     my $warp_ref = $db->selectall_arrayref( $warp_sth );
-
     return($#{ $chip_ref } + 1, $#{ $cam_ref } + $#{ $warp_ref } + 2);
 }
@@ -1439 +1438 @@
 #       $input_sth .= " ORDER BY dateobs ";
         
-        my $input_sth = "select exp_id,warp_id,dateobs,rawExp.comment,warpRun.state AS warp_state FROM ";
-        $input_sth .=   " rawExp LEFT JOIN chipRun USING (exp_id) LEFT JOIN camRun USING (chip_id) LEFT JOIN fakeRun USING (cam_id) LEFT JOIN warpRun USING (fake_id) ";
+        my $input_sth = "select exp_id,warp_id,dateobs,rawExp.comment,warpRun.state AS warp_state,camProcessedExp.quality FROM ";
+        $input_sth .=   " rawExp LEFT JOIN chipRun USING (exp_id) LEFT JOIN camRun USING (chip_id) LEFT JOIN camProcessedExp USING(cam_id) LEFT JOIN fakeRun USING (cam_id) LEFT JOIN warpRun USING (fake_id) ";
         $input_sth .=   " WHERE chipRun.label = '$label' AND chipRun.data_group = '$data_group' AND rawExp.filter = '$filter' AND rawExp.object = '$this_object' ";
         $input_sth .=   " ORDER BY dateobs ";
@@ -1461 +1460 @@
             }
             else {
-                print STDERR ": I should declare an exposure to be faulty.\n";
+                print STDERR ": I should declare an exposure to be qualityy.\n";
                 my @keep_warps = ();
 #               print "@{ $warps }\n";
@@ -1494 +1493 @@
             my $input_warp_state = ${ $input_warp }[4];
             my $template_warp_state = ${ $template_warp }[4];
-            
+
+            my $input_warp_camQuality = ${ $input_warp }[5];
+            my $template_warp_camQuality = ${ $template_warp }[5];
+
             $Npotential++;
 
             unless (defined($input_warp_id) && defined($template_warp_id) &&
                     ($input_warp_state eq 'full')&&($template_warp_state eq 'full')) {
-                print STDERR "Diff for this $date $target $input_exp_id $template_exp_id not fully processed\n";
+                print STDERR "Diff for this $date $target $input_exp_id $template_exp_id not fully processed ($input_warp_state $template_warp_state) ($input_warp_camQuality $template_warp_camQuality)\n";
+                if (($input_warp_camQuality == 4007)||($template_warp_camQuality == 4007)) {
+                    print STDERR "  ...but this is due to a camera stage astrometry quality\n";
+                    $Npotential--;
+                }
                 next;
             }