loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.50, 2004/05/11 21:14:23	version 1.52, 2004/06/04 19:29:31
Line 83 sub start_daemon {	Line 83 sub start_daemon {
$progname='loncnew';	$progname='loncnew';
print "new ";	print "new ";
}	}
system("$perlvar{'lonDaemons'}/$progname 2>>$perlvar{'lonDaemons'}/logs/${daemon}_errors");	my $error_fname="$perlvar{'lonDaemons'}/logs/${daemon}_errors";
	my $size=(stat($error_fname))[7];
	if ($size>40000) {
	&log($fh,"<p>Rotating error logs ...</p>");
	rename("$error_fname.2","$error_fname.3");
	rename("$error_fname.1","$error_fname.2");
	rename("$error_fname","$error_fname.1");
	}
	system("$perlvar{'lonDaemons'}/$progname 2>$perlvar{'lonDaemons'}/logs/${daemon}_errors");
sleep 2;	sleep 2;
if (-e $pidfile) {	if (-e $pidfile) {
&log($fh,"<p>Seems like it started ...</p>");	&log($fh,"<p>Seems like it started ...</p>");
Line 550 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 {