Changeset 42462 for trunk/tools/eam/rawfix.20230221/src/get_md5s_instances.pl

Timestamp:

May 12, 2023, 9:21:20 AM (3 years ago)

Author:

eugene

Message:

changing directory structure to place nights in years

File:

• trunk/tools/eam/rawfix.20230221/src/get_md5s_instances.pl (modified) (4 diffs)

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

@@ -14 +14 @@
 
 my $input;
-my ($myhost, $dateword, $topdir, $stage) = &parse_cmdopts;
+my ($myhost, $dateword, $topdir, $basedir, $stage) = &parse_cmdopts;
 
 # check that we are running this script on 'myhost'
@@ -23 +23 @@
 my ($ins_list_r, $dst_list_r, $md5_list_r) = &load_instance_list ();
 
-my $output = "$topdir/$dateword/$myhost.md5s.txt";
+my $output = "$basedir/$dateword/$myhost.md5s.txt";
 
 # read in existing md5s
@@ -66 +66 @@
 exit 0;
 
-# use global $topdir, $dateword, $myhost, $stage
+# use global $basedir, $dateword, $myhost, $stage
 sub load_instance_list {
     my (@ins_list, @dst_list, @md5_list);
 
     # load the master list
-    my $input = "$topdir/$dateword/$myhost.inst.$stage.txt";
+    my $input = "$basedir/$dateword/$myhost.inst.$stage.txt";
     &load_instance_list_onefile ($input, \@ins_list, \@dst_list, \@md5_list);
 
     # there may be additional instances in files with names like HOSTNAME.XYnn.inst.STAGE 
-    my @instlist = glob ("$topdir/$dateword/$myhost.XY??.inst.$stage.txt");
+    my @instlist = glob ("$basedir/$dateword/$myhost.XY??.inst.$stage.txt");
     foreach my $infile  (@instlist) {
         &load_instance_list_onefile ($infile, \@ins_list, \@dst_list, \@md5_list);
@@ -144 +144 @@
     unless ($stage >= 0) { die "stage must be a non-negative integer\n"; }
     
-    return ($myhost, $dateobs, $topdir, $stage);
+    my $yearobs = substr ($dateobs, 0, 4);
+    my $basedir = "$topdir/$yearobs";
+
+    return ($myhost, $dateobs, $topdir, $basedir, $stage);
 }