loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.103, 2015/09/20 18:31:21	version 1.103.2.1, 2017/10/20 13:38:34
Line 644 sub check_delayed_msg {	Line 644 sub check_delayed_msg {

my $unsend=0;	my $unsend=0;

	my %hostname = &Apache::lonnet::all_hostnames();
	my $numhosts = scalar(keys(%hostname));

my $dfh=IO::File->new("$perlvar{'lonDaemons'}/logs/lonnet.perm.log");	my $dfh=IO::File->new("$perlvar{'lonDaemons'}/logs/lonnet.perm.log");
while (my $line=<$dfh>) {	while (my $line=<$dfh>) {
my ($time,$sdf,$dserv,$dcmd)=split(/:/,$line);	my ($time,$sdf,$dserv,$dcmd)=split(/:/,$line);
	if ($numhosts) {
	next unless ($hostname{$dserv});
	}
if ($sdf eq 'F') {	if ($sdf eq 'F') {
my $local=localtime($time);	my $local=localtime($time);
&log($fh,"<b>Failed: $time, $dserv, $dcmd</b><br />");	&log($fh,"<b>Failed: $time, $dserv, $dcmd</b><br />");
Line 673 sub check_delayed_msg {	Line 679 sub check_delayed_msg {
}	}
&log($fh,"</pre>\n");	&log($fh,"</pre>\n");
close (DFH);	close (DFH);
my %hostname = &Apache::lonnet::all_hostnames();
my $numhosts = scalar(keys(%hostname));
# pong to all servers that have delayed messages	# pong to all servers that have delayed messages
# this will trigger a reverse connection, which should flush the buffers	# this will trigger a reverse connection, which should flush the buffers
foreach my $tryserver (sort(keys(%servers))) {	foreach my $tryserver (sort(keys(%servers))) {