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

Timestamp:

Apr 6, 2023, 6:00:06 PM (3 years ago)

Author:

eugene

Message:

big re-work to allow repeat, iterated fixes

File:

• trunk/tools/eam/rawfix.20230221/src/check_chip_locations.pl (modified) (5 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) --stage (v0,v1,etc)
-# USAGE: check_chip_locations.pl --dateobs 2010/05/01 --chiplist gpc1.chips.txt --stage v0
+# USAGE: check_chip_locations.pl --dateobs (night) --chiplist (file) --stage (0,1,etc)
+# USAGE: check_chip_locations.pl --dateobs 2010/05/01 --chiplist gpc1.chips.txt --stage 0
 
 my ($fulldate, $dateword, $chiplist, $stage, $topdir) = &parse_cmdopts;
@@ -31 +31 @@
 # output files: 
 # instance lists by host: YYYYMMDD/HOSTNAME.inst.STAGE.txt
-# chip states by chip: YYYYMMDD/CHIPNAME.uris.txt 
+# chip states by chip: YYYYMMDD/CHIPNAME.uris.STAGE.txt 
 
 foreach my $chip_id (@chip_ids) {
 
     my $outfh;
-    open ($outfh, ">$topdir/$dateword/$chip_id.uris.txt");
+    open ($outfh, ">$topdir/$dateword/$chip_id.uris.$stage.txt");
 
     # get the list of chip neb paths for one chip
@@ -182 +182 @@
     my $sql_chip_instances = "SELECT uri, host, available, xattr, cab_id from instance join storage_object using (so_id) join volume using (vol_id) where ext_id = '$ext_id'";
     my $rowref   = $neb_dbh->selectall_arrayref( $sql_chip_instances );
-  
+    
     return ($rowref, $ext_id);
 }
@@ -338 +338 @@
     pod2usage( -msg => "Specify the top-level output directory with --topdir", -exitval => 2) unless defined $topdir;
     
+    # check that stage is an integer
+    unless (&is_integer ($stage)) { die "stage must be a non-negative integer\n"; }
+    unless ($stage >= 0) { die "stage must be a non-negative integer\n"; }
+
     # check the date format (require YYYY/MM/DD and use that from 00:00:00 to 23:59:59 or take start and end?)
 
@@ -405 +409 @@
 }
 
-    
+sub is_integer {
+    defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
+}
+
 # example of using the return value of arrayref: