loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.10, 2004/05/11 06:49:58	version 1.11, 2005/02/05 22:20:56
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_DOUBLE_REV);	my $reqhost = $r->get_remote_host(REMOTE_HOST);
if (!$reqhost && $r->get_remote_host(REMOTE_NOLOOKUP) eq $r->get_server_name()) {
$reqhost = $r->get_server_name();
}
unless ($reqhost) {
$r->log_reason("Spoof request from ". $reqhost);
return FORBIDDEN;
}
if ($reqhost eq 'localhost.localdomain') {	if ($reqhost eq 'localhost.localdomain') {
return OK;	return OK;
}	}
Line 56 sub handler {	Line 49 sub handler {
return FORBIDDEN;	return FORBIDDEN;
}	}
while ($readline=<$fh>) {	while ($readline=<$fh>) {
my ($id,$domain,$role,$name,$ip)=split(/:/,$readline);	$readline=~s/\s*$//;
if ($name =~ /$reqhost/i) {	my ($id,$domain,$role,$name)=split(/:/,$readline);
return OK;	if ($name =~ /\Q$reqhost\E/i) {
}	return OK;
	}
}	}

}	}