- Timestamp:
- May 12, 2023, 9:21:20 AM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/eam/rawfix.20230221/src/check_night_status.pl
r42445 r42462 1 1 #! /usr/bin/env perl 2 # this program must be run at the top-level rawfix directory 2 3 3 4 my $DEBUG = 4; … … 18 19 19 20 my ($fulldate, $dateword, $chiplist, $stage) = &parse_cmdopts; 21 my $yearobs = substr ($dateword, 0, 4); 20 22 21 23 # read the list of chip_ids: … … 36 38 foreach my $chip_id (@chip_ids) { 37 39 38 my $urifile = "$ dateword/$chip_id.uris.$stage.txt";40 my $urifile = "$yearobs/$dateword/$chip_id.uris.$stage.txt"; 39 41 unless (-e $urifile) { die "missing chip URI list $urifile\n"; } 40 42
Note:
See TracChangeset
for help on using the changeset viewer.
