loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.85, 2010/07/20 02:42:27	version 1.87, 2010/08/21 22:23:05
Line 691 sub write_loncaparevs {	Line 691 sub write_loncaparevs {
foreach my $id (sort(keys(%hostname))) {	foreach my $id (sort(keys(%hostname))) {
if ($id ne '') {	if ($id ne '') {
my $loncaparev = &Apache::lonnet::get_server_loncaparev('',$id,1,'loncron');	my $loncaparev = &Apache::lonnet::get_server_loncaparev('',$id,1,'loncron');
if ($loncaparev =~ /^[\d.\-]+$/) {	if ($loncaparev =~ /^[\w.\-]+$/) {
print $fh $id.':'.$loncaparev."\n";	print $fh $id.':'.$loncaparev."\n";
}	}
}	}
Line 866 sub main () {	Line 866 sub main () {
&check_delayed_msg($fh);	&check_delayed_msg($fh);
&finish_logging($fh);	&finish_logging($fh);
&log_simplestatus();	&log_simplestatus();

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

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