Index: trunk/tools/raw_MD5_check.pl
===================================================================
--- trunk/tools/raw_MD5_check.pl	(revision 40033)
+++ trunk/tools/raw_MD5_check.pl	(revision 40037)
@@ -7,4 +7,6 @@
 
 my $clients = 4;
+my $start_time = 8;
+my $end_time = 18; # +1, as it goes until the hour changes.
 
 my $t0 = time();
@@ -97,4 +99,26 @@
 		    } # 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,4 +162,11 @@
 	    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>;