Changeset 42462 for trunk/tools/eam/rawfix.20230221/src/check_md5s_dateobs.pl

Timestamp:

May 12, 2023, 9:21:20 AM (3 years ago)

Author:

eugene

Message:

changing directory structure to place nights in years

File:

• trunk/tools/eam/rawfix.20230221/src/check_md5s_dateobs.pl (modified) (9 diffs)

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

@@ -14 +14 @@
 # USAGE: check_md5s_dateobs.pl --dateobs (night) --topdir (topdir)
 
-my ($dateword, $stage, $topdir) = &parse_cmdopts;
-
-my $instlist_r = &load_instlist_filenames ($topdir, $dateword, $stage);
-my $md5slist_r = &load_md5slist_filenames ($topdir, $dateword, $stage, $instlist_r);
+my ($dateword, $stage, $topdir, $basedir) = &parse_cmdopts;
+# basedir used only for night-level files
+
+my $instlist_r = &load_instlist_filenames ($basedir, $dateword, $stage);
+my $md5slist_r = &load_md5slist_filenames ($basedir, $dateword, $stage, $instlist_r);
 
 my $Nfail = 0;
@@ -36 +37 @@
     close (FILE);
 
-    my $instdata_r = &load_instance_list ($topdir, $dateword, $stage, $instfile);
+    my $instdata_r = &load_instance_list ($basedir, $dateword, $stage, $instfile);
 
     # if these do not match, complain and move on
@@ -94 +95 @@
 
 # save both good and fail chip lists
-open (OUTFILE, ">$topdir/$dateword/goodchips.$stage.txt");
+open (OUTFILE, ">$basedir/$dateword/goodchips.$stage.txt");
 my @goodchipURIs = keys %goodchips;
 foreach my $uri (@goodchipURIs) {
@@ -101 +102 @@
 close (OUTFILE);
 
-open (OUTFILE, ">$topdir/$dateword/failchips.$stage.txt");
+open (OUTFILE, ">$basedir/$dateword/failchips.$stage.txt");
 my @failchipURIs = keys %failchips;
 foreach my $uri (@failchipURIs) {
@@ -120 +121 @@
 }
 
-# use global $topdir, $dateword, $myhost, $stage
+# use global $basedir, $dateword, $myhost, $stage
 sub load_instance_list {
-    my $topdir   = $_[0];
+    my $basedir   = $_[0];
     my $dateword = $_[1];
     my $stage    = $_[2];
@@ -134 +135 @@
     # there may be additional instances in files with names like HOSTNAME.XYnn.inst.STAGE 
     my ($myhost) = $instfile =~ m|$dateword/([0-9a-zA-Z]*).inst.$stage.txt|;
-    my @instlist = glob ("$topdir/$dateword/$myhost.XY??.inst.$stage.txt");
+    my @instlist = glob ("$basedir/$dateword/$myhost.XY??.inst.$stage.txt");
     foreach my $infile  (@instlist) {
         &load_instance_list_onefile ($infile, \@instdata_list);
@@ -160 +161 @@
 sub load_instlist_filenames {
     
-    my $topdir   = $_[0];
+    my $basedir   = $_[0];
     my $dateword = $_[1];
     my $stage    = $_[2];
 
-    my @instlist_all = glob ("$topdir/$dateword/*.inst.$stage.txt");
+    my @instlist_all = glob ("$basedir/$dateword/*.inst.$stage.txt");
 
     my @instlist = ();
@@ -181 +182 @@
 sub load_md5slist_filenames {
 
-    my $topdir     = $_[0];
+    my $basedir     = $_[0];
     my $dateword   = $_[1];
     my $stage      = $_[2];
     my $instlist_r = $_[3];
 
-    my @md5slist = glob ("$topdir/$dateword/*.md5s.txt");
+    my @md5slist = glob ("$basedir/$dateword/*.md5s.txt");
 
     my %md5shash;
@@ -252 +253 @@
     my $dateword = sprintf ("%4d%02d%02d", $date_year, $date_month, $date_day);
 
-    return ($dateword, $stage, $topdir);
+    my $yearobs = substr ($dateword, 0, 4);
+    my $basedir = "$topdir/$yearobs";
+
+    return ($dateword, $stage, $topdir, $basedir);
 }