loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.89, 2002/08/09 18:18:36	version 1.90.2.1, 2002/09/03 02:02:50
Line 497 sub make_new_child {	Line 497 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 1214 sub make_new_child {	Line 1216 sub make_new_child {
my $proname=propath($udom,$uname);	my $proname=propath($udom,$uname);
my $qresult='';	my $qresult='';
if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_READER,0640)) {	if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_READER,0640)) {
	study($regexp);
foreach $key (keys %hash) {	foreach $key (keys %hash) {
if (eval('$key=~/$regexp/')) {	my $unescapeKey = &unescape($key);
	if (eval('$unescapeKey=~/$regexp/')) {
$qresult.="$key=$hash{$key}&";	$qresult.="$key=$hash{$key}&";
}	}
}	}
if (untie(%hash)) {	if (untie(%hash)) {
$qresult=~s/\&$//;	$qresult=~s/\&$//;