loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.13, 2005/02/07 17:04:53	version 1.14, 2005/02/10 22:30:56
Line 37 use IO::Socket;	Line 37 use IO::Socket;
sub handler {	sub handler {
my $r = shift;	my $r = shift;
my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP);	my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP);
my $netaddr=inet_aton($reqhost);	my %iphost=&Apache::lonnet::get_iphost();
($reqhost) = gethostbyaddr($netaddr,AF_INET);	my $hostids=$iphost{$reqhost};
if (!$reqhost) {	if (!$hostids && $reqhost ne '127.0.0.1' ) {
$r->log_reason("Unable to do hostname $reqhost lookup for ".$r->get_remote_host(REMOTE_NOLOOKUP));	$r->log_reason("Unable to find a host for ".
	$r->get_remote_host(REMOTE_NOLOOKUP));
return FORBIDDEN;	return FORBIDDEN;
}	}
if ($reqhost eq 'localhost.localdomain') {	if ($reqhost eq '127.0.0.1') {
return OK;	return OK;
}	}
my $readline;	my $readline;
Line 57 sub handler {	Line 58 sub handler {
while ($readline=<$fh>) {	while ($readline=<$fh>) {
$readline=~s/\s*$//;	$readline=~s/\s*$//;
my ($id,$domain,$role,$name)=split(/:/,$readline);	my ($id,$domain,$role,$name)=split(/:/,$readline);
if ($name =~ /\Q$reqhost\E/i) {	foreach my $hostid (@{$hostids}) {
return OK;	if ($name =~ /^\Q$hostid\E$/i) {
	return OK;
	}
}	}
}	}