loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.64, 2002/01/20 18:28:31	version 1.66, 2002/02/05 18:05:47
Line 47	Line 47
# 12/20 Scott Harrison	# 12/20 Scott Harrison
# 12/22 Gerd Kortemeyer	# 12/22 Gerd Kortemeyer
# YEAR=2002	# YEAR=2002
# 01/20/02 Gerd Kortemeyer	# 01/20/02,02/05 Gerd Kortemeyer
###	###

# based on "Perl Cookbook" ISBN 1-56592-243-3	# based on "Perl Cookbook" ISBN 1-56592-243-3
Line 205 sub checkchildren {	Line 205 sub checkchildren {
unless (-e "$docdir/lon-status/londchld/$_.txt") {	unless (-e "$docdir/lon-status/londchld/$_.txt") {
&logthis('Child '.$_.' did not respond');	&logthis('Child '.$_.' did not respond');
kill 9 => $_;	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.".$_);
}	}
}	}
}	}
Line 705 sub make_new_child {	Line 711 sub make_new_child {
$fpnow.='/'.$fpparts[$i];	$fpnow.='/'.$fpparts[$i];
unless (-e $fpnow) {	unless (-e $fpnow) {
unless (mkdir($fpnow,0777)) {	unless (mkdir($fpnow,0777)) {
$fperror="error:$!\n";	$fperror="error:$!";
}	}
}	}
}	}