Changeset 34238 for trunk/pstamp/scripts/pstamp_checkdependent.pl

Timestamp:

Jul 31, 2012, 11:21:37 AM (14 years ago)

Author:

bills

Message:

if warps required by a diff update have bad quality fault the dependent

File:

• trunk/pstamp/scripts/pstamp_checkdependent.pl (modified) (3 diffs)

trunk/pstamp/scripts/pstamp_checkdependent.pl

@@ -331 +331 @@
         return $error_code
     }
-    if (($state eq 'update') and ($metadata->{fault})) {
+    if (($data_state eq 'full') and ($metadata->{fault})) {
         # fault dependent.
         my $fault = $metadata->{fault};
         print STDERR "warp $warp_id $skycell_id faulted: $fault";
         return $fault;
+    }
+    if ($metadata->{quality} ne 0) {
+        print STDERR "warp $warp_id $skycell_id bad quality on update: $metadata->{quality}\n";
+        return $PSTAMP_GONE;
     }
 
@@ -466 +470 @@
                 return $warp_status;
             }
-        }
+        } elsif ($warp1->{quality} != 0) {
+            print STDERR "warp $warp1->{warp_id} $skycell_id has poor quality: $warp1->{quality}\n";
+            faultComponent('diff', $diff_id, $skycell_id, $PSTAMP_GONE);
+            return $PSTAMP_GONE;
+        }
         $command = "$warptool -warped -warp_id $skycell->{warp2} -skycell_id $skycell_id";
         my $warp2 = runToolAndParseExpectOne($command, $verbose);
@@ -477 +485 @@
                 faultComponent('diff', $diff_id, $skycell_id, $PSTAMP_GONE);
             }
-        }
+        } elsif ($warp2->{quality} != 0) {
+            print STDERR "warp $warp2->{warp_id} $skycell_id has poor quality: $warp2->{quality}\n";
+            faultComponent('diff', $diff_id, $skycell_id, $PSTAMP_GONE);
+            return $PSTAMP_GONE;
+        }
 
         if (!$warps_ready) {