Changeset 40037 for trunk/tools/raw_MD5_check.pl

Timestamp:

May 15, 2017, 5:29:00 PM (9 years ago)

Author:

watersc1

Message:

Fixed bug that caused zombie child processes to accumumlate. Added time check to stop md5sum calculations during night time.

File:

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

trunk/tools/raw_MD5_check.pl

@@ -7 +7 @@
 
 my $clients = 4;
+my $start_time = 8;
+my $end_time = 18; # +1, as it goes until the hour changes.
 
 my $t0 = time();
@@ -97 +99 @@
                     } # End scan over subdirectories to check.
                     
+                    my $all_children_done = 0;
+
+                    while ($all_children_done != 1) {
+                        $all_children_done = 1;
+
+                        for (my $j = 0; $j < $clients; $j++) {
+                            if ($Cpid[$j] == -1) { next; } # hasn't started yet
+                            my $child = waitpid($Cpid[$j],WNOHANG);
+                            if ($child != 0) {
+                                $time = time;
+                                $dt = $time - $t0;
+                                print "$dt $i $j $Cpid[$j] $work[$j] FINISH $child\n";
+                                $work[$j] = '';
+                            } # End print client report.
+                            else {
+                                $all_children_done = 0;
+                            }
+                        } # End scan over clients for reaping.
+                        
+                        sleep(5);
+                    }
+
                 } # End scan over top level directories
                 exit(0);
@@ -138 +162 @@
             return(0); 
         } 
+        
+        my @localtime = localtime();
+        while (($localtime[2] < $start_time)||($localtime[2] > $end_time)) {
+            sleep(600);
+            @localtime = localtime();
+        }
+
         open(O,">$out_log");
         my @files = <${directory}/*ota*fits>;