Changeset 42450 for trunk/tools/eam/rawfix.20230221/src/fix_chip_locations.pl

Timestamp:

Apr 13, 2023, 2:17:26 PM (3 years ago)

Author:

eugene

Message:

better handle fail chips (bad md5sum)

File:

• trunk/tools/eam/rawfix.20230221/src/fix_chip_locations.pl (modified) (4 diffs)

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

@@ -24 +24 @@
 my @vol_copy = &get_neb_volumes_copy; # array of neb hosts to copy data to at ITC
 my %vol_good = &get_neb_volumes_good; # hash of valid neb hosts
+
+my $Nchip = 0; # counts the number of instances
 
 my $Ngood = 0;
@@ -38 +40 @@
 my $Nfail = 0;
 
-my $Nchip = 0; # counts the number of instances
-
-# load the lists of good and fail chips
-my $prev = $stage - 1;
-my $goodfile = "$topdir/$dateword/goodchips.$prev.txt";
-my %goodchips;
-if (-e $goodfile) {
-    open (GOODFILE,  $goodfile);
-    my @lines = <GOODFILE>;
-    close (GOODFILE);
-    
-    foreach my $line (@lines) {
-        chomp $line;
-        $goodchips{$line} = 1;
-    }
-}
-my $failfile = "$topdir/$dateword/failchips.$prev.txt";
-my %failchips;
-if (-e $failfile) {
-    open (FAILFILE,  $failfile);
-    my @lines = <FAILFILE>;
-    close (FAILFILE);
-    
-    foreach my $line (@lines) {
-        chomp $line;
-        $failchips{$line} = 1;
-    }
-}
+my ($goodchips_r, $failchips_r) = &get_good_or_fail_chiplists ($topdir, $dateword, $stage);
 
 # read the list of chip_ids:
@@ -153 +128 @@
         my $haveMD5 = 0;
         my $goodMD5 = 0;
-        if ($goodchips{$ext_id}) { $haveMD5 = 1; $goodMD5 = 1; }
-        if ($failchips{$ext_id}) { $haveMD5 = 1; }
+        if ($goodchips_r->{$ext_id}) { $haveMD5 = 1; $goodMD5 = 1; }
+        if ($failchips_r->{$ext_id}) { $haveMD5 = 1; $goodMD5 = 0; }
 
         $Nchip ++;
@@ -350 +325 @@
 }
 
+sub get_good_or_fail_chiplists {
+
+    my $topdir   = $_[0];
+    my $dateword = $_[1];
+    my $stage    = $_[2];
+
+    # load the lists of good and fail chips
+    my $prev = $stage - 1;
+    my $goodfile = "$topdir/$dateword/goodchips.$prev.txt";
+    my %goodchips;
+    if (-e $goodfile) {
+        open (GOODFILE,  $goodfile);
+        my @lines = <GOODFILE>;
+        close (GOODFILE);
+        
+        foreach my $line (@lines) {
+            chomp $line;
+            $goodchips{$line} = 1;
+        }
+    }
+    my $failfile = "$topdir/$dateword/failchips.$prev.txt";
+    my %failchips;
+    if (-e $failfile) {
+        open (FAILFILE,  $failfile);
+        my @lines = <FAILFILE>;
+        close (FAILFILE);
+        
+        foreach my $line (@lines) {
+            chomp $line;
+            $failchips{$line} = 1;
+        }
+    }
+    return (\%goodchips, \%failchips);
+}
+
 # get the list of neb hosts to copy data to at ITC
 sub get_neb_volumes_copy {