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

Timestamp:

Mar 23, 2023, 2:05:41 PM (3 years ago)

Author:

eugene

Message:

adding advance task, fix the logs

File:

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

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

@@ -13 +13 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version );
 
-# USAGE: check_chip_locations.pl --dateobs (night) --chiplist (file)
-# USAGE: check_chip_locations.pl --dateobs 2010/05/01 --chiplist gpc1.chips.txt
-
-my ($fulldate, $dateword, $chiplist) = &parse_cmdopts;
+# USAGE: check_chip_locations.pl --dateobs (night) --chiplist (file) --stage (v0,v1,etc)
+# USAGE: check_chip_locations.pl --dateobs 2010/05/01 --chiplist gpc1.chips.txt --stage v0
+
+my ($fulldate, $dateword, $chiplist, $stage) = &parse_cmdopts;
 my ($neb_dbh, $gpc_dbh) = &parse_db_config ('nebulous.config');
 
@@ -30 +30 @@
 
 # output files: 
-# instance lists by host: YYYYMMDD/HOSTNAME.inst.txt
+# instance lists by host: YYYYMMDD/HOSTNAME.inst.STAGE.txt
 # chip states by chip: YYYYMMDD/CHIPNAME.uris.txt 
 
@@ -79 +79 @@
     my @hostnames = keys %hostcount;
     foreach my $myname (@hostnames) {
-        print $hostfh "host $myname = $hostcount{$myname}\n";
+        print $hostfh "$myname $hostcount{$myname}\n";
     }
     close ($hostfh);
@@ -231 +231 @@
 
         if (not defined $hostfile{$hostname}) {
-            open ($hostfile{$hostname}, ">$dateword/$hostname.inst.txt");
+            open ($hostfile{$hostname}, ">$dateword/$hostname.inst.$stage.txt");
             ## XXX deal with open failure here
         }
@@ -330 +330 @@
 sub parse_cmdopts {
 
-    my ($dateobs, $chiplist);
-    GetOptions( 'dateobs=s' => \$dateobs, 'chiplist=s' => \$chiplist) || pod2usage(2);
+    my ($dateobs, $chiplist, $stage);
+    GetOptions( 'dateobs=s' => \$dateobs, 'chiplist=s' => \$chiplist, 'stage=s' => \$stage) || pod2usage(2);
     
     pod2usage( -msg => "Cannot determine target date, use --dateobs YYYY/MM/DD", -exitval => 2) unless defined $dateobs;
     pod2usage( -msg => "Provide a list of chips with --chiplist", -exitval => 2) unless defined $chiplist;
+    pod2usage( -msg => "Define the stage (v0, v1, etc) with --stage", -exitval => 2) unless defined $stage;
     
     # check the date format (require YYYY/MM/DD and use that from 00:00:00 to 23:59:59 or take start and end?)
@@ -343 +344 @@
     pod2usage( -msg => "Cannot interpret date, use YYYY/MM/DD", -exitval => 2) if ($date_month < 1) or ($date_month > 12);
     pod2usage( -msg => "Cannot interpret date, use YYYY/MM/DD", -exitval => 2) if ($date_day < 1) or ($date_day > 31);
+
     my $fulldate = "$date_year/$date_month/$date_day";
-    
     my $dateword = sprintf ("%4d%02d%02d", $date_year, $date_month, $date_day);
 
-    return ($fulldate, $dateword, $chiplist) 
+    return ($fulldate, $dateword, $chiplist, $stage) 
 }