loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.365, 2007/03/28 22:14:33	version 1.367, 2007/03/28 22:46:44
Line 5556 sub make_new_child {	Line 5556 sub make_new_child {
if ($clientok) {	if ($clientok) {
# ---------------- New known client connecting, could mean machine online again	# ---------------- New known client connecting, could mean machine online again

foreach my $id (keys(%hostip)) {	if ($hostip{$currenthostid} ne $clientip
if ($hostip{$id} ne $clientip \|\|	&& $clientip ne '127.0.0.1') {
$hostip{$currenthostid} eq $clientip) {	&Apache::lonnet::reconlonc();
# no need to try to do recon's to myself
next;
}
&reconlonc("$perlvar{'lonSockDir'}/".$hostname{$id});
}	}
&logthis("<font color='green'>Established connection: $clientname</font>");	&logthis("<font color='green'>Established connection: $clientname</font>");
&status('Will listen to '.$clientname);	&status('Will listen to '.$clientname);