Changeset 40033 for trunk/tools

Timestamp:

May 11, 2017, 4:50:14 PM (9 years ago)

Author:

watersc1

Message:

Edit to ensure ippb02 writes data to a different location. This is
necessary as those disks are too full.

File:

• trunk/tools/raw_MD5_check.pl (modified) (3 diffs)

trunk/tools/raw_MD5_check.pl

@@ -12 +12 @@
 my $dt = 0;
 my $hostname = hostname();
+
+for (my $v = 0; $v <= 2; $v++) {
+    system("ls /data/${hostname}.${v}");
+}
 
 my @tops = </data/${hostname}*>;
@@ -106 +110 @@
         if ($Tpid[$i] == -1) { next; } # hasn't started yet
         my $child = waitpid($Tpid[$i],WNOHANG);
+        if ($child == -1) { next; } # Nothing here.
         if ($child != 0) {
             $time = time;
@@ -122 +127 @@
     unless (-d $directory) { return(0); } # Skip not directories
     my $out_log = "${directory}.OTA_md5sums"; 
+    if ($out_log =~ /ippb02/) {
+        $out_log = "/data/ippb01.0/watersc1/ippb02_md5sums/${directory}.OTA_md5sums";
+    }
     my $do_it = 1;
     
     if ($do_it == 1) {
+        if (-e $out_log) { 
+            # Do not overwrite already existing files.
+            print ">> $directory $out_log Already Exists.\n";
+            return(0); 
+        } 
         open(O,">$out_log");
         my @files = <${directory}/*ota*fits>;