loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.14, 2005/02/10 22:30:56	version 1.15, 2005/03/03 05:44:51
Line 59 sub handler {	Line 59 sub handler {
$readline=~s/\s*$//;	$readline=~s/\s*$//;
my ($id,$domain,$role,$name)=split(/:/,$readline);	my ($id,$domain,$role,$name)=split(/:/,$readline);
foreach my $hostid (@{$hostids}) {	foreach my $hostid (@{$hostids}) {
if ($name =~ /^\Q$hostid\E$/i) {	my $hostname=$Apache::lonnet::hostname{$hostid};
	if ($name =~ /^\Q$hostname\E$/i) {
return OK;	return OK;
}	}
}	}
}	}

}	}
$r->log_reason("Invalid request for user file transfer from $reqhost",	$r->log_reason("Invalid request for user file transfer from $reqhost (".join(",",@{$hostids}).")",
$r->filename);	$r->filename);
return FORBIDDEN;	return FORBIDDEN;
}	}