loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.51, 2004/05/25 15:20:31	version 1.53, 2004/06/09 13:30:41
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 558 sub send_mail {	Line 558 sub send_mail {
$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";
system("metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html");
	my $result=system("metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html >& /dev/null");
	if ($result != 0) {
	$result=system("mail -s '$subj' $emailto < $statusdir/index.html");
	}
}	}

sub usage {	sub usage {