Changeset 42415 for trunk/tools/eam/rawfix.20230221/src/fix_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/fix_chip_locations.pl (modified) (5 diffs)

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

@@ -36 +36 @@
 my $Nxbck = 0;
 
+my $Ncul1 = 0;
+my $Ncul2 = 0;
+my $Ncul3 = 0;
+
 foreach my $chip_id (@chip_ids) {
 
@@ -49 +53 @@
 
         # we expect lines of the form: STATE PATH
-        # e.g., GOOD: gpc1/20100502/o5318g0002d/o5318g0002d.ota76.fits
-        if (@words != 2) { die "error in URI list $urifile, line: $line\n"; }
+        # e.g., GOOD: gpc1/20100502/o5318g0002d/o5318g0002d.ota76.fits DataState MD5sum
+        if (@words != 4) { die "error in URI list $urifile, line: $line\n"; }
 
         my $state  = $words[0];
         my $ext_id = $words[1];
+        my $datast = $words[2];
+        my $md5sum = $words[3];
 
         if ($state eq "GOOD:") { $Ngood++; next; }
         if ($state eq "DEAD:") { $Ndead++; next; }
         if ($state eq "GONE:") { $Ngone++; next; }
-        if ($state eq "DUPS:") { $Ndups++; next; }
-        if ($state eq "XBCK:") { $Nxbck++; next; }
 
         # one copy at ITC: neb-replicate will create a copy at ATRC
@@ -68 +72 @@
             unless ($newxattr == 1) { die "new instance is not at ATRC? $ext_id : $newfile : $newhost : $newxattr\n"; }
             open (OUTFILE, ">>$dateword/$newhost.inst.txt");
-            print OUTFILE "$newfile\n";
+            print OUTFILE "$newfile $datast $md5sum\n";
             close (OUTFILE);
             $Nsing ++;
@@ -82 +86 @@
             unless ($newxattr == 0) { die "new instance is not at ITC? $ext_id : $newfile : $newhost : $newxattr\n"; }
             open (OUTFILE, ">>$dateword/$newhost.inst.txt");
-            print OUTFILE "$newfile\n";
+            print OUTFILE "$newfile $datast $md5sum\n";
             close (OUTFILE);
             $Nsbck ++;
             next; 
         }
+
+        # these are done in stage 2:
+        if ($state eq "DUPS:") { $Ndups++; next; }
+        if ($state eq "XBCK:") { $Nxbck++; next; }
+
+        # these are done in stage 3:
+        if ($state eq "CUL1:") { $Ncul1++; next; }
+        if ($state eq "CUL2:") { $Ncul2++; next; }
+        if ($state eq "CUL3:") { $Ncul3++; next; }
     }
     $volnum ++;
@@ -98 +111 @@
 print "Nsbck: $Nsbck\n";
 print "Nxbck: $Nxbck\n";
+print "Ncul1: $Ncul1\n";
+print "Ncul2: $Ncul2\n";
+print "Ncul3: $Ncul3\n";
 
 exit 0;