Changeset 37403 for branches/eam_branches/ps2-tc3-20130727/pstamp/scripts/pstamp_checkdependent.pl

Timestamp:

Sep 19, 2014, 4:05:27 PM (12 years ago)

Author:

eugene

Message:

merge changes from trunk

Location:

branches/eam_branches/ps2-tc3-20130727

Files:

• . (modified) (1 prop)
• pstamp/scripts/pstamp_checkdependent.pl (modified) (5 diffs, 1 prop)

branches/eam_branches/ps2-tc3-20130727/pstamp/scripts/pstamp_checkdependent.pl

@@ -20 +20 @@
 use PS::IPP::PStamp::RequestFile qw( :standard );
 use Carp;
+
+my $disable_3PI_updates = 0;
+my $ra_max_3PI_hours = 22.5;  # disable updates for skycells with ra greater than this (hours)
+my $ra_max_3PI = $ra_max_3PI_hours * 15 * 3.14149 / 180.; # rawExp.ra is in radians
 
 # XXX: put this in a module somewhere
@@ -257 +261 @@
         push @chips, $chip->{class_id};
 
+        if ($disable_3PI_updates && ($chip->{data_group} =~ /ThreePi/)) {
+            # we are getting close to the end of PV2. Do not update PV1 chips if RA is above the limit.
+            my $ra = $chip->{ra};
+            if (!defined($ra) or ($ra > $ra_max_3PI)) {
+                print "3PI updates are currently disabled for RA $ra > $ra_max_3PI (radians)\n";
+                return $PSTAMP_NOT_AVAILABLE;
+            } else {
+                print "allowing 3PI updates RA $ra\n";
+            }
+        } 
+
         my $state = $chip->{state};
         my $data_state = $chip->{data_state};
@@ -303 +318 @@
             $command .= " -set_label $rlabel" if $rlabel;
 
-            # if this is one of the chipRuns from the PV1 LAP regenerate without using the ppImage configdump file
-            if ($chip->{data_group} =~ /^LAP.ThreePi.20130706/) {
-                $command .= ' -set_update_mode 1';
+            my $update_mode;
+            if ($chip->{data_group} =~ /^LAP.ThreePi.20120706/) {
+                # if this is one of the chipRuns from the PV1 LAP regenerate without using the ppImage configdump file.
+                # XXX: PV2 processing is complete. Don't do this anymore
+                # $update_mode = 1;
+            } elsif ($chip->{data_group} =~ /^M31.rp.2013/) {
+                # Version of M31 processed with recipes and auxiliary masks incompatible with the
+                # current code. Run from scratch which will use compatible versions of the same masks..
+                $update_mode = 1;
             } 
+            $command .= " -set_update_mode $update_mode" if $update_mode;
 
             if (!$no_update) {
@@ -371 +393 @@
     my $data_state = $metadata->{data_state};
 
+    # we are getting close to the end of PV2. optionally do not update 3Pi data.
+    if ($disable_3PI_updates && ($metadata->{data_group} =~ /ThreePi/)) {
+        my $ra = $metadata->{ra};
+        if (!defined $ra or ($ra > $ra_max_3PI)) {
+            print "3PI updates are currently disabled for RA $ra > $ra_max_3PI (radians)\n";
+            return $PSTAMP_NOT_AVAILABLE;
+        } else {
+            print "allowing 3PI updates RA $ra\n";
+        }
+    } 
+
     # The update system currently requires that data that has been magicked be destreaked
     # at chip stage so it needs magic even if the customer doesn't.
@@ -451 +484 @@
         }
         $chip_id = $chip->{chip_id};
+        # XXX: -scmap doesn't have ra and dec. Copy it from the warp
+        $chip->{ra} = $metadata->{ra};
+        $chip->{decl} = $metadata->{decl};
 
         # if chip has been magicked before require it to be magicked again