Changeset 30565 for trunk/pstamp/scripts/pstampparse.pl

Timestamp:

Feb 11, 2011, 10:23:48 AM (15 years ago)

Author:

bills

Message:

Detect components with fault PSTAMP_GONE and don't queue a dependent

File:

• trunk/pstamp/scripts/pstampparse.pl (modified) (1 diff)

trunk/pstamp/scripts/pstampparse.pl

@@ -932 +932 @@
         my $data_state = $image->{data_state};
         $data_state = $run_state if $stage eq 'stack';
-        if (($run_state =~ /purged/) or ($run_state =~ /scrubbed/) or ($run_state eq 'drop')) {
+        my $component_fault = $image->{fault};
+        my $stage_id = $image->{stage_id};
+        my $component = $image->{component};
+
+        if ($component_fault eq $PSTAMP_GONE) {
             # image is gone and it's not coming back
+            print STDERR "$stage $stage_id $component is gone\n";
+            $$r_newState = 'stop';
+            $$r_fault = $PSTAMP_GONE;
+        } elsif (($run_state =~ /purged/) or ($run_state =~ /scrubbed/) or ($run_state eq 'drop')) {
+            # image is gone and it's not coming back
+            print STDERR "$stage $stage_id $component has state: $run_state data_state: $data_state\n";
             $$r_newState = 'stop';
             $$r_fault = $PSTAMP_GONE;
         } elsif (($run_state eq "error_cleaned") or ($data_state eq 'error_cleaned')) {
             # if cleanup had an error don't get the user's hopes up set fault to gone
+            print STDERR "$stage $stage_id $component has state: $run_state data_state: $data_state\n";
             $$r_newState = 'stop';
             $$r_fault = $PSTAMP_GONE;