loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.91, 2011/10/28 14:26:15	version 1.94, 2011/11/08 22:25:25
Line 515 sub clean_sockets {	Line 515 sub clean_sockets {
# ----------------------------------------------------------------------- httpd	# ----------------------------------------------------------------------- httpd
sub check_httpd_logs {	sub check_httpd_logs {
my ($fh)=@_;	my ($fh)=@_;
&log($fh,'<hr /><a name="httpd" /><h2>httpd</h2><h3>Access Log</h3><pre>');	if (open(PIPE,"./lchttpdlogs\|")) {
	while (my $line=<PIPE>) {
open (DFH,"tail -n25 /etc/httpd/logs/access_log\|");	&log($fh,$line);
while (my $line=<DFH>) { &log($fh,&encode_entities($line,'<>&"')) };	if ($line=~/\[error\]/) { $notices++; }
close (DFH);	}
	close(PIPE);
&log($fh,"</pre><h3>Error Log</h3><pre>");

open (DFH,"tail -n25 /etc/httpd/logs/error_log\|");
while (my $line=<DFH>) {
&log($fh,"$line");
if ($line=~/\[error\]/) { $notices++; }
}	}
close (DFH);
&log($fh,"</pre>");
&errout($fh);	&errout($fh);
}	}

Line 660 sub check_delayed_msg {	Line 652 sub check_delayed_msg {
alarm(0);	alarm(0);
};	};
if ($@ && $@ =~ m/TIMEOUT/) {	if ($@ && $@ =~ m/TIMEOUT/) {
print "time out while contacting: $tryserver for pong\n";	print "time out while contacting: $tryserver for pong\n";
} else {	} else {
&log($fh,"Pong to $tryserver: $answer<br />");	&log($fh,"Pong to $tryserver: $answer<br />");
}	}
}	}
}	}