--- loncom/lond	2002/01/20 18:28:31	1.64
+++ loncom/lond	2002/02/05 18:05:47	1.66
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.64 2002/01/20 18:28:31 www Exp $
+# $Id: lond,v 1.66 2002/02/05 18:05:47 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
@@ -205,6 +205,12 @@ sub checkchildren {
         unless (-e "$docdir/lon-status/londchld/$_.txt") {
 	    &logthis('Child '.$_.' did not respond');
             kill 9 => $_;
+   $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
+   $subj="LON: $perlvar{'lonHostID'} killed lond process $_";
+   system("echo 'Killed lond process $_.' |\
+ mailto $emailto -s '$subj' > /dev/null");
+	    $execdir=$perlvar{'lonDaemons'};
+            system("cp $execdir/logs/lond.log $execdir/logs/lond.log.".$_);
         }
     }
 }
@@ -705,7 +711,7 @@ sub make_new_child {
                                $fpnow.='/'.$fpparts[$i]; 
                                unless (-e $fpnow) {
 				   unless (mkdir($fpnow,0777)) {
-                                      $fperror="error:$!\n";
+                                      $fperror="error:$!";
                                    }
                                }
                            }