loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.6, 2002/08/08 13:45:21	version 1.7, 2002/10/21 19:15:10
Line 32 use strict;	Line 32 use strict;
use Apache::Constants qw(:common :remotehost);	use Apache::Constants qw(:common :remotehost);
use Apache::lonnet();	use Apache::lonnet();
use Apache::File();	use Apache::File();
	use Data::Dumper;

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);	$reqhost = $r->get_server_name();
return FORBIDDEN;	}
	unless ($reqhost) {
	$r->log_reason("Spoof request from ". $reqhost);
	return FORBIDDEN;
}	}
if ($reqhost eq 'localhost.localdomain') {	if ($reqhost eq 'localhost.localdomain') {
$r->register_cleanup(\&removefile);	$r->register_cleanup(\&removefile);