Changeset 42441 for trunk/tools/eam/rawfix.20230221/src/fix_chip_locations.pl

Timestamp:

Apr 4, 2023, 8:18:25 AM (3 years ago)

Author:

eugene

Message:

allow long-running jobs (md5sum) to be remote; fix some error handling

File:

• trunk/tools/eam/rawfix.20230221/src/fix_chip_locations.pl (modified) (7 diffs)

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

@@ -18 +18 @@
 # for each chip, target a single host?
 
-my ($fulldate, $dateword, $chiplist, $stage) = &parse_cmdopts;
-my ($neb_dbh) = &parse_db_config ('nebulous.config');
+my ($fulldate, $dateword, $chiplist, $stage, $topdir) = &parse_cmdopts;
+my ($neb_dbh) = &parse_db_config ("$topdir/nebulous.config");
 
 # read the list of chip_ids:
@@ -42 +42 @@
 foreach my $chip_id (@chip_ids) {
 
-    my $urifile = "$dateword/$chip_id.uris.txt";
-    open (FILE, "$urifile");
+    my $urifile = "$topdir/$dateword/$chip_id.uris.txt";
+    open (FILE,  $urifile);
     my @lines = <FILE>;
     close (FILE);
@@ -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.$stage.txt");
+            open (OUTFILE, ">>$topdir/$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.$stage.txt");
+            open (OUTFILE, ">>$topdir/$dateword/$newhost.inst.$stage.txt");
             print OUTFILE "$newfile $datast $md5sum\n";
             close (OUTFILE);
@@ -170 +170 @@
     my @chip_ids;
 
-    open(CHIPS,$chiplist) or die "cannot open file $chiplist\n"; 
+    open(CHIPS,"$topdir/$chiplist") or die "cannot open file $chiplist\n"; 
 
     my @lines = <CHIPS>;
@@ -189 +189 @@
 sub parse_cmdopts {
 
-    my ($dateobs, $chiplist, $stage);
-    GetOptions( 'dateobs=s' => \$dateobs, 'chiplist=s' => \$chiplist, 'stage=s' => \$stage) || pod2usage(2);
+    my ($dateobs, $chiplist, $stage, $topdir);
+    GetOptions( 'dateobs=s' => \$dateobs, 'chiplist=s' => \$chiplist, 'topdir=s' => \$topdir, '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;
+    pod2usage( -msg => "Specify the top-level output directory with --topdir", -exitval => 2) unless defined $topdir;
     
     # check the date format (require YYYY/MM/DD and use that from 00:00:00 to 23:59:59 or take start and end?)
@@ -207 +208 @@
     my $dateword = sprintf ("%4d%02d%02d", $date_year, $date_month, $date_day);
 
-    return ($fulldate, $dateword, $chiplist, $stage);
+    return ($fulldate, $dateword, $chiplist, $stage, $topdir);
 }