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

Timestamp:

Mar 8, 2023, 9:44:22 AM (3 years ago)

Author:

eugene

Message:

updates to rawfix

File:

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

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

@@ -40 +40 @@
 
     # get the list of chip neb paths for one chip
-    my @neb_paths = &get_chip_paths ($fulldate, $chip_id);
+    my ($neb_paths_r, $ds_array_r, $md_array_r) = &get_chip_paths ($fulldate, $chip_id);
+
+    # I think this makes a copy of the arrays, which is inefficient
+    # my @neb_paths = @$neb_paths_r;
+    # my @ds_array  = @$ds_array_r;
+    # my @md_array  = @$md_array_r;
 
     # reset the hostcount for this chip
@@ -46 +51 @@
 
     # find the neb instances for each chip nebulous entry
-    foreach my $nebname (@neb_paths) {
+
+    for (my $i = 0; $i < @$neb_paths_r; $i++) {
+        my $nebname = $neb_paths_r->[$i]; # equivalent to ${$neb_paths_r}[$i]
+        my $data_st = $ds_array_r->[$i];
+        my $md5_sum = $md_array_r->[$i];
+
+        # print STDERR "nebname: $nebname, dstate: $data_st, md5: $md5_sum\n";
 
         # get info for all instances of this chip
@@ -54 +65 @@
 
         # determine the status of the instances
-        my ($Nmain, $Nback, $Ndead) = &check_instance_xattr ($inforows, $ext_id);
+        my ($Nmain, $Nback, $Ndead) = &check_instance_xattr ($inforows, $ext_id, $data_st, $md5_sum);
 
         &check_instance_state ($outfh, $ext_id, $Nmain, $Nback, $Ndead);
@@ -130 +141 @@
     my $chip_id = $_[1];
 
-    my @nebarray;
-
-    my $sql_chip_paths = "SELECT uri from rawImfile WHERE class_id = '$chip_id' and dateobs > '$fulldate,00:00:00' and dateobs < '$fulldate,23:59:59'";
+    my (@nebarray, @ds_array, @md_array);
+
+    my $sql_chip_paths = "SELECT uri, data_state, md5sum from rawImfile WHERE class_id = '$chip_id' and dateobs > '$fulldate,00:00:00' and dateobs < '$fulldate,23:59:59'";
     if ($DEBUG > 5) { print "sql: $sql_chip_paths\n"; }
 
@@ -145 +156 @@
         # there should only be a single value (only uri selected above)
         my $Nvalues = @values;
-        if ($Nvalues == 0) { print "ERROR: missing uri\n"; next; }
-        if ($Nvalues  > 1) { print "ERROR: too many uri entries?\n"; next; }
+        if ($Nvalues != 3) { print "ERROR: invalid response?\n"; next; }
         
         push (@nebarray, $values[0]);
-        if ($DEBUG > 4) { print "$values[0]\n"; }
-    }
-    
-    return @nebarray;
+        push (@ds_array, $values[1]);
+        push (@md_array, $values[2]);
+        if ($DEBUG > 4) { print "$values[0]\n $values[1]\n $values[2]\n"; }
+    }
+
+    # return references so we can keep the three arrays distinct
+    return (\@nebarray, \@ds_array, \@md_array);
 }
 
@@ -177 +190 @@
 sub check_instance_xattr {
 
-    my $ext_id = $_[1];
-
-    my $rowref = $_[0];
+    my $rowref  = $_[0];
+    my $ext_id  = $_[1];
+    my $data_st = $_[2];
+    my $md5_sum = $_[3];
+
     my @inforows = @$rowref;
     my $Nrows    = @inforows;
@@ -218 +233 @@
         }
         my $fh = $hostfile{$hostname};
-        print $fh "$instance\n";
+        print $fh "$instance $data_st $md5_sum\n";
 
         if ($xattr == 0) { $Nmain ++; }