loncom/auth/lonracc.pm - diff

Return to lonracc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.5, 2002/07/26 19:35:20	version 1.7, 2002/10/29 18:34:33
Line 52 sub subscribed {	Line 52 sub subscribed {

sub handler {	sub handler {
my $r = shift;	my $r = shift;
my $reqhost;	my $reqhost = $r->get_remote_host(REMOTE_DOUBLE_REV);
unless ($reqhost=$r->get_remote_host(REMOTE_DOUBLE_REV)) {	if (!$reqhost && $r->get_remote_host(REMOTE_NOLOOKUP) eq $r->get_server_name()) {
$r->log_reason("Spoof request");	$reqhost = $r->get_server_name();
	}
	unless ($reqhost) {
	$r->log_reason("Spoof request from ".$ENV{'REMOTE_ADDR'});
return FORBIDDEN;	return FORBIDDEN;
}	}
my $readline;	my $readline;