loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.85, 2010/07/20 02:42:27	version 1.88, 2011/04/23 16:18:49
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 823 sub main () {	Line 823 sub main () {
close($fh);	close($fh);
my $execpath = $perlvar{'lonDaemons'}.'/lciptables';	my $execpath = $perlvar{'lonDaemons'}.'/lciptables';
system("$execpath $tmpfile");	system("$execpath $tmpfile");
unlink($fh);	unlink($tmpfile);
}	}
}	}

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(); }
}	}
}	}