loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.63, 2006/01/27 21:27:15	version 1.64, 2006/01/27 21:30:53
Line 45 my $statusdir="/home/httpd/html/lon-stat	Line 45 my $statusdir="/home/httpd/html/lon-stat

# -------------------------------------------------- Non-critical communication	# -------------------------------------------------- Non-critical communication
sub reply {	sub reply {
my ($cmd,$server)=@_;	my ($cmd,$server,$hostname)=@_;
my $peerfile="$perlvar{'lonSockDir'}/$server";	my $peerfile="$perlvar{'lonSockDir'}/".$hostname->{$server};
my $client=IO::Socket::UNIX->new(Peer =>"$peerfile",	my $client=IO::Socket::UNIX->new(Peer =>"$peerfile",
Type => SOCK_STREAM,	Type => SOCK_STREAM,
Timeout => 10)	Timeout => 10)
or return "con_lost";	or return "con_lost";
print $client "$cmd\n";	print $client "sethost:$server:$cmd\n";
my $answer=<$client>;	my $answer=<$client>;
chomp($answer);	chomp($answer);
if (!$answer) { $answer="con_lost"; }	if (!$answer) { $answer="con_lost"; }
Line 486 sub test_connections {	Line 486 sub test_connections {
foreach my $tryserver (sort(keys(%{$hostname}))) {	foreach my $tryserver (sort(keys(%{$hostname}))) {
print(".");	print(".");
my $result;	my $result;
my $answer=reply("ping",$tryserver);	my $answer=reply("ping",$tryserver,$hostname);
if ($answer eq "$tryserver:$perlvar{'lonHostID'}") {	if ($answer eq "$tryserver:$perlvar{'lonHostID'}") {
$result="<b>ok</b>";	$result="<b>ok</b>";
$good++;	$good++;