--- loncom/lond	2002/01/20 18:01:43	1.63
+++ loncom/lond	2002/02/05 17:17:49	1.65
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.63 2002/01/20 18:01:43 www Exp $
+# $Id: lond,v 1.65 2002/02/05 17:17:49 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,7 +47,7 @@
 # 12/20 Scott Harrison
 # 12/22 Gerd Kortemeyer
 # YEAR=2002
-# 01/20/02 Gerd Kortemeyer
+# 01/20/02,02/05 Gerd Kortemeyer
 ###
 
 # based on "Perl Cookbook" ISBN 1-56592-243-3
@@ -194,7 +194,6 @@ sub checkchildren {
     &logthis('Going to check on the children');
     $docdir=$perlvar{'lonDocRoot'};
     foreach (sort keys %children) {
-        unlink("$docdir/lon-status/londchld/$_.txt");
 	sleep 1;
         unless (kill 'USR1' => $_) {
 	    &logthis ('Child '.$_.' is dead');
@@ -205,7 +204,7 @@ sub checkchildren {
     foreach (sort keys %children) {
         unless (-e "$docdir/lon-status/londchld/$_.txt") {
 	    &logthis('Child '.$_.' did not respond');
-            kill -9 => $_;
+            kill 9 => $_;
         }
     }
 }
@@ -244,6 +243,11 @@ sub initnewstatus {
     my $now=time;
     my $local=localtime($now);
     print $fh "LOND status $local - parent $$\n\n";
+    opendir(DIR,"$docdir/lon-status/londchld");
+    while ($filename=readdir(DIR)) {
+        unlink("$docdir/lon-status/londchld/$filename");
+    }
+    closedir(DIR);
 }
 
 # -------------------------------------------------------------- Status setting
@@ -701,7 +705,7 @@ sub make_new_child {
                                $fpnow.='/'.$fpparts[$i]; 
                                unless (-e $fpnow) {
 				   unless (mkdir($fpnow,0777)) {
-                                      $fperror="error:$!\n";
+                                      $fperror="error:$!";
                                    }
                                }
                            }