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

Timestamp:

Mar 16, 2023, 12:48:31 PM (3 years ago)

Author:

eugene

Message:

various updates : adding stage 2

File:

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

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

@@ -67 +67 @@
         my ($Nmain, $Nback, $Ndead) = &check_instance_xattr ($inforows, $ext_id, $data_st, $md5_sum);
 
-        &check_instance_state ($outfh, $ext_id, $Nmain, $Nback, $Ndead);
+        &check_instance_state ($outfh, $ext_id, $data_st, $md5_sum, $Nmain, $Nback, $Ndead);
     }
 
@@ -249 +249 @@
     my $outfh = $_[0];
     my $extID = $_[1];
-    my $Nmain = $_[2];
-    my $Nback = $_[3];
-    my $Ndead = $_[4];
-
-    # SKIP : already fixed 
+    my $data_st = $_[2];
+    my $md5_sum = $_[3];
+    my $Nmain = $_[4];
+    my $Nback = $_[5];
+    my $Ndead = $_[6];
+
+    my $outinfo = "$extID $data_st $md5_sum";
+
+    # GOOD : already fixed 
     if (($Nmain == 1) && ($Nback == 1)) {
-        print $outfh "GOOD: $extID\n";
-        return;
-    }
-
-    # single copy @ ITC, no backup
+        print $outfh "GOOD: $outinfo\n";
+        return;
+    }
+
+    # SING : single copy @ ITC, no backup
     # make a backup
     if (($Nmain == 1) && ($Nback == 0)) {
-        print $outfh "SING: $extID\n";
-        return;
-    }
-
-    # ITC files with a single backup copies need to be culled
-    # cull Nmain - 1
-    if (($Nmain > 1) && ($Nback == 1)) {
-        print $outfh "CULL: $extID\n";
-        return;
-    }
-
-    # multiple copies @ ITC
+        print $outfh "SING: $outinfo\n";
+        return;
+    }
+
+    # SBCK : single copy @ ATRC, no main copy
+    # make a backup @ ITC
+    if (($Nmain == 0) && ($Nback == 1)) {
+        print $outfh "SBCK: $outinfo\n";
+        return;
+    }
+
+    # DUPS : multiple copies @ ITC, none at ATRC
     # make a backup and cull Nmain - 1
     if (($Nmain > 1) && ($Nback == 0)) {
-        print $outfh "DUPS: $extID\n";
-        return;
-    }
-
-    # no more valid instances
-    if (($Nmain == 0) && ($Nback == 0) && $Ndead) {
-        print $outfh "DEAD: $extID\n";
-        return;
-    }
-    if (($Nmain == 0) && ($Nback == 0) && ($Ndead == 0)) {
-        print $outfh "GONE: $extID\n";
-        return;
-    }
-
-    # single copy @ ATRC
-    # make a backup @ ITC
-    if (($Nmain == 0) && ($Nback == 1)) {
-        print $outfh "SBCK: $extID\n";
-        return;
-    }
-
-    # multiple copies @ ATRC, but none at ITC
+        print $outfh "DUPS: $outinfo\n";
+        return;
+    }
+
+    # XBCK : multiple copies @ ATRC, but none at ITC
     # make a backup at ITC, cull ATRC extras
     if (($Nmain == 0) &&  ($Nback > 1)) {
-        print $outfh "XBCK: $extID\n";
+        print $outfh "XBCK: $outinfo\n";
+        return;
+    }
+
+    # DEAD : no more valid instances
+    if (($Nmain == 0) && ($Nback == 0) && $Ndead) {
+        print $outfh "DEAD: $outinfo\n";
+        return;
+    }
+    # GONE : no more valid instances
+    if (($Nmain == 0) && ($Nback == 0) && ($Ndead == 0)) {
+        print $outfh "GONE: $outinfo\n";
+        return;
+    }
+
+    # CUL1 : multiple ITC files, single backup
+    # cull only ITC
+    if (($Nmain > 1) && ($Nback == 1)) {
+        print $outfh "CUL1: $outinfo\n";
+        return;
+    }
+
+    # CUL2 : multiple ATRC files, single ITC
+    # cull only ATRC
+    if (($Nback > 1) && ($Nmain == 1)) {
+        print $outfh "CUL2: $outinfo\n";
+        return;
+    }
+
+    # CUL3 : excess ATRC & ITC files, cull from both?
+    # cull Nmain - 1
+    if (($Nback > 1) && ($Nmain > 1)) {
+        print $outfh "CUL3: $outinfo\n";
         return;
     }
 
     # unexpected state:
-    print $outfh "OOPS: $extID\n";
+    print $outfh "OOPS: $outinfo\n";
     return;
 }