loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.83, 2010/03/24 18:57:49	version 1.84, 2010/07/17 20:01:56
Line 685 sub log_simplestatus {	Line 685 sub log_simplestatus {
$sfh->close();	$sfh->close();
}	}

	sub write_loncaparevs {
	if (open(my $fh,">$perlvar{'lonTabDir'}/loncaparevs.tab")) {
	my %hostname = &Apache::lonnet::all_hostnames();
	foreach my $id (sort(keys(%hostname))) {
	if ($id ne '') {
	my $loncaparev = &Apache::lonnet::get_server_loncaparev('',$id,1,'loncron');
	if ($loncaparev =~ /^[\d.\-]+$/) {
	print $fh $id.':'.$loncaparev."\n";
	}
	}
	}
	close($fh);
	}
	return;
	}

sub send_mail {	sub send_mail {
print "sending mail\n";	print "sending mail\n";
my $defdom = $perlvar{'lonDefDomain'};	my $defdom = $perlvar{'lonDefDomain'};
Line 833 sub main () {	Line 849 sub main () {

if ($totalcount>200 && !$noemail) { &send_mail(); }	if ($totalcount>200 && !$noemail) { &send_mail(); }
}	}
	if (!$justcheckconnections && !$justreload) {
	&write_loncaparevs();
	}
}	}

&main();	&main();