Changeset 42430 for trunk/tools/eam/rawfix.20230221/src/fix_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/fix_chip_locations.pl (modified) (6 diffs)

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

@@ -12 +12 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version );
 
-# USAGE: fix_chip_locations.pl --dateobs (night) --chiplist (file)
+# USAGE: fix_chip_locations.pl --dateobs (night) --chiplist (file) --stage (v0,v1,etc)
 
 # we need to select targets for ITC copies of files currently only at ATRC:
@@ -18 +18 @@
 # for each chip, target a single host?
 
-my ($fulldate, $dateword, $chiplist) = &parse_cmdopts;
+my ($fulldate, $dateword, $chiplist, $stage) = &parse_cmdopts;
 my ($neb_dbh) = &parse_db_config ('nebulous.config');
 
@@ -71 +71 @@
             my ($newfile, $newhost, $newxattr) = &get_new_instance ($ext_id);
             unless ($newxattr == 1) { die "new instance is not at ATRC? $ext_id : $newfile : $newhost : $newxattr\n"; }
-            open (OUTFILE, ">>$dateword/$newhost.inst.txt");
+            open (OUTFILE, ">>$dateword/$newhost.inst.$stage.txt");
             print OUTFILE "$newfile $datast $md5sum\n";
             close (OUTFILE);
@@ -85 +85 @@
             my ($newfile, $newhost, $newxattr) = &get_new_instance ($ext_id);
             unless ($newxattr == 0) { die "new instance is not at ITC? $ext_id : $newfile : $newhost : $newxattr\n"; }
-            open (OUTFILE, ">>$dateword/$newhost.inst.txt");
+            open (OUTFILE, ">>$dateword/$newhost.inst.$stage.txt");
             print OUTFILE "$newfile $datast $md5sum\n";
             close (OUTFILE);
@@ -189 +189 @@
 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?)
@@ -206 +207 @@
     my $dateword = sprintf ("%4d%02d%02d", $date_year, $date_month, $date_day);
 
-    return ($fulldate, $dateword, $chiplist);
+    return ($fulldate, $dateword, $chiplist, $stage);
 }