loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.92, 2002/08/22 21:37:35	version 1.94, 2002/09/03 02:01:14
Line 501 sub make_new_child {	Line 501 sub make_new_child {
# =============================================================================	# =============================================================================
# do something with the connection	# do something with the connection
# -----------------------------------------------------------------------------	# -----------------------------------------------------------------------------
	$client->sockopt(SO_KEEPALIVE, 1);# Enable monitoring of
	# connection liveness.
# see if we know client and check for spoof IP by challenge	# see if we know client and check for spoof IP by challenge
my $caller=getpeername($client);	my $caller=getpeername($client);
my ($port,$iaddr)=unpack_sockaddr_in($caller);	my ($port,$iaddr)=unpack_sockaddr_in($caller);
Line 814 sub make_new_child {	Line 816 sub make_new_child {
if ($udom ne $perlvar{'lonDefDomain'}) {	if ($udom ne $perlvar{'lonDefDomain'}) {
print $client "not_right_domain\n";	print $client "not_right_domain\n";
} else {	} else {
&make_passwd_file($umode,$npass,$passfilename);	my $result=&make_passwd_file($umode,$npass,
	$passfilename);
print $client $result;	print $client $result;
}	}
} else {	} else {