Changeset 42462 for trunk/tools/eam/rawfix.20230221/src/check_chip_locations.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_chip_locations.pl (modified) (9 diffs)

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

@@ -16 +16 @@
 # USAGE: check_chip_locations.pl --dateobs 2010/05/01 --chiplist gpc1.chips.txt --stage 0
 
-my ($fulldate, $dateword, $chiplist, $stage, $topdir) = &parse_cmdopts;
+my ($fulldate, $dateword, $chiplist, $stage, $topdir, $basedir) = &parse_cmdopts;
 my ($neb_dbh, $gpc_dbh, $raw_dbh) = &parse_db_config ("$topdir/nebulous.config");
 
@@ -27 +27 @@
 
 # put output files in a directory defined by the night
-mkdir "$topdir/$dateword";
+mkdir "$basedir/$dateword";
 
 # output files: 
@@ -48 +48 @@
 my $Nfail = 0;
 
-my ($goodchips_r, $failchips_r) = &get_good_or_fail_chiplists ($topdir, $dateword, $stage);
+my ($goodchips_r, $failchips_r) = &get_good_or_fail_chiplists ($basedir, $dateword, $stage);
 
 foreach my $chip_id (@chip_ids) {
 
     my $outfh;
-    open ($outfh, ">$topdir/$dateword/$chip_id.uris.$stage.txt");
-
-    # print "open $topdir/$dateword/$chip_id.uris.$stage.txt\n";
+    open ($outfh, ">$basedir/$dateword/$chip_id.uris.$stage.txt");
+
+    # print "open $basedir/$dateword/$chip_id.uris.$stage.txt\n";
 
     # get the list of chip neb paths for one chip
@@ -87 +87 @@
     # now save the host count for this chip
     my $hostfh;
-    open ($hostfh, ">$topdir/$dateword/$chip_id.hosts.txt");
+    open ($hostfh, ">$basedir/$dateword/$chip_id.hosts.txt");
 
     # save the host count for this chip
@@ -277 +277 @@
 
         if (not defined $hostfile{$hostname}) {
-            open ($hostfile{$hostname}, ">$topdir/$dateword/$hostname.inst.$stage.txt");
+            open ($hostfile{$hostname}, ">$basedir/$dateword/$hostname.inst.$stage.txt");
             ## XXX deal with open failure here
         }
@@ -408 +408 @@
 sub get_good_or_fail_chiplists {
 
-    my $topdir   = $_[0];
+    my $basedir   = $_[0];
     my $dateword = $_[1];
     my $stage    = $_[2];
@@ -414 +414 @@
     # load the lists of good and fail chips
     my $prev = $stage - 1;
-    my $goodfile = "$topdir/$dateword/goodchips.$prev.txt";
+    my $goodfile = "$basedir/$dateword/goodchips.$prev.txt";
     my %goodchips;
     if (-e $goodfile) {
@@ -426 +426 @@
         }
     }
-    my $failfile = "$topdir/$dateword/failchips.$prev.txt";
+    my $failfile = "$basedir/$dateword/failchips.$prev.txt";
     my %failchips;
     if (-e $failfile) {
@@ -466 +466 @@
     my $dateword = sprintf ("%4d%02d%02d", $date_year, $date_month, $date_day);
 
-    return ($fulldate, $dateword, $chiplist, $stage, $topdir) 
+    my $yearobs = substr ($dateword, 0, 4);
+    my $basedir = "$topdir/$yearobs";
+
+    return ($fulldate, $dateword, $chiplist, $stage, $topdir, $basedir) 
 }