Changeset 42446 for trunk/tools/eam/rawfix.20230221/src/check_chip_locations.pl

Timestamp:

Apr 10, 2023, 11:57:03 AM (3 years ago)

Author:

eugene

Message:

bug fixes, making iterations work

File:

• trunk/tools/eam/rawfix.20230221/src/check_chip_locations.pl (modified) (7 diffs)

trunk/tools/eam/rawfix.20230221/src/check_chip_locations.pl

@@ -78 +78 @@
 
         # determine the status of the instances
-        my ($Nmain, $Nback, $Ndead) = &check_instance_xattr ($inforows, $ext_id, $data_st, $md5_sum);
-
-        &check_instance_state ($outfh, $ext_id, $data_st, $md5_sum, $Nmain, $Nback, $Ndead);
+        my ($Nmain, $Nback, $Nlost) = &check_instance_xattr ($inforows, $ext_id, $data_st, $md5_sum);
+
+        &check_instance_state ($outfh, $ext_id, $data_st, $md5_sum, $Nmain, $Nback, $Nlost);
     }
 
@@ -239 +239 @@
     my $Nmain = 0;
     my $Nback = 0;
-    my $Ndead = 0;
+    my $Nlost = 0;
 
     # xattr = 0 means instance @ ITC  (main)
@@ -260 +260 @@
         my $xattr    = $values[3];
         
-        if ($xattr  > 1) { $Ndead ++; next; } # do not save instances on dead partitions
+        if ($xattr  > 1) { $Nlost ++; next; } # do not save instances on dead partitions
         if ($xattr == 0) { $Nmain ++; }
         if ($xattr == 1) { $Nback ++; }
@@ -277 +277 @@
     }
 
-    return ($Nmain, $Nback, $Ndead);
+    return ($Nmain, $Nback, $Nlost);
 }
 
@@ -288 +288 @@
     my $Nmain = $_[4];
     my $Nback = $_[5];
-    my $Ndead = $_[6];
+    my $Nlost = $_[6];
 
     my $outinfo = "$extID $data_st $md5_sum";
@@ -333 +333 @@
 
     # DEAD : no more valid instances
-    if (($Nmain == 0) && ($Nback == 0) && $Ndead) {
+    if (($Nmain == 0) && ($Nback == 0) && $Nlost) {
         print $outfh "DEAD: $outinfo\n";
         $Ndead ++;
@@ -339 +339 @@
     }
     # GONE : no more valid instances
-    if (($Nmain == 0) && ($Nback == 0) && ($Ndead == 0)) {
+    if (($Nmain == 0) && ($Nback == 0) && ($Nlost == 0)) {
         print $outfh "GONE: $outinfo\n";
         $Ngone ++;