loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.53, 2004/06/09 13:30:41	version 1.55, 2005/01/20 16:27:40
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";