Index: trunk/tools/raw_MD5_check.pl
===================================================================
--- trunk/tools/raw_MD5_check.pl	(revision 39951)
+++ trunk/tools/raw_MD5_check.pl	(revision 40033)
@@ -12,4 +12,8 @@
 my $dt = 0;
 my $hostname = hostname();
+
+for (my $v = 0; $v <= 2; $v++) {
+    system("ls /data/${hostname}.${v}");
+}
 
 my @tops = </data/${hostname}*>;
@@ -106,4 +110,5 @@
 	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,7 +127,15 @@
     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>;