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

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

@@ -11 +11 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version );
 
-# USAGE: check_night_status.pl --dateobs (night) --chiplist (file)
+# USAGE: check_night_status.pl --dateobs (night) --chiplist (file) --stage (0,1,etc)
 
 # we need to select targets for ITC copies of files currently only at ATRC:
@@ -17 +17 @@
 # for each chip, target a single host?
 
-my ($fulldate, $dateword, $chiplist) = &parse_cmdopts;
+my ($fulldate, $dateword, $chiplist, $stage) = &parse_cmdopts;
 
 # read the list of chip_ids:
@@ -36 +36 @@
 foreach my $chip_id (@chip_ids) {
 
-    my $urifile = "$dateword/$chip_id.uris.txt";
+    my $urifile = "$dateword/$chip_id.uris.$stage.txt";
     open (FILE, "$urifile");
     my @lines = <FILE>;
@@ -110 +110 @@
 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 (0, 1, etc) with --stage", -exitval => 2) unless defined $stage;
+    
+    # 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?)
@@ -127 +133 @@
     my $dateword = sprintf ("%4d%02d%02d", $date_year, $date_month, $date_day);
 
-    return ($fulldate, $dateword, $chiplist);
+    return ($fulldate, $dateword, $chiplist, $stage);
 }
 
+
+sub is_integer {
+   defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
+}
+