loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.11, 2005/02/05 22:20:56	version 1.12, 2005/02/06 07:23:40
Line 36 use Apache::File();	Line 36 use Apache::File();

sub handler {	sub handler {
my $r = shift;	my $r = shift;
my $reqhost = $r->get_remote_host(REMOTE_HOST);	my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP);
	my $netaddr=inet_aton($reqhost);
	($reqhost) = gethostbyaddr($netaddr,AF_INET);
	if (!$reqhost) {
	$r->log_reason("Unable to do hostname $reqhost lookup for ".$r->get_remote_host(REMOTE_NOLOOKUP));
	return FORBIDDEN;
	}
if ($reqhost eq 'localhost.localdomain') {	if ($reqhost eq 'localhost.localdomain') {
return OK;	return OK;
}	}