loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.52, 2004/06/04 19:29:31	version 1.55, 2005/01/20 16:27:40
Line 260 sub log_machine_info {	Line 260 sub log_machine_info {
&log($fh,"<pre>");	&log($fh,"<pre>");
my $psproc=0;	my $psproc=0;

open (PSH,"ps -aux --cols 140 \|");	open (PSH,"ps aux --cols 140 \|");
while (my $line=<PSH>) {	while (my $line=<PSH>) {
&log($fh,&encode_entities($line,'<>&"'));	&log($fh,&encode_entities($line,'<>&"'));
$psproc++;	$psproc++;
Line 463 sub test_connections {	Line 463 sub test_connections {
foreach my $tryserver (sort(keys(%{$hostname}))) {	foreach my $tryserver (sort(keys(%{$hostname}))) {
print(".");	print(".");
my $result;	my $result;
my $answer=reply("pong",$tryserver);	my $answer=reply("ping",$tryserver);
if ($answer eq "$tryserver:$perlvar{'lonHostID'}") {	if ($answer eq "$tryserver:$perlvar{'lonHostID'}") {
$result="<b>ok</b>";	$result="<b>ok</b>";
$good++;	$good++;
Line 554 sub log_simplestatus {	Line 554 sub log_simplestatus {
sub send_mail {	sub send_mail {
print "sending mail\n";	print "sending mail\n";
my $emailto="$perlvar{'lonAdmEMail'}";	my $emailto="$perlvar{'lonAdmEMail'}";
if ($totalcount>1000) {	if ($totalcount>2500) {
$emailto.=",$perlvar{'lonSysEMail'}";	$emailto.=",$perlvar{'lonSysEMail'}";
}	}
my $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices";	my $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices";