loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.4, 2002/08/01 22:36:11	version 1.5, 2002/08/02 14:45:04
Line 37 sub handler {	Line 37 sub handler {
my $r = shift;	my $r = shift;
my $reqhost;	my $reqhost;
unless ($reqhost=$r->get_remote_host(REMOTE_DOUBLE_REV)) {	unless ($reqhost=$r->get_remote_host(REMOTE_DOUBLE_REV)) {
$r->log_reason("Spoof request");	$r->log_reason("Spoof request ".$reqhost);
return FORBIDDEN;	return FORBIDDEN;
}	}
my $readline;	my $readline;
Line 50 sub handler {	Line 50 sub handler {
}	}
while ($readline=<$fh>) {	while ($readline=<$fh>) {
my ($id,$domain,$role,$name,$ip)=split(/:/,$readline);	my ($id,$domain,$role,$name,$ip)=split(/:/,$readline);
if ($name =~ /$reqhost/i) { return OK; }	if ($name =~ /$reqhost/i) {
	$r->register_cleanup(\&removefile);
	return OK;
	}
}	}

}	}
Line 59 sub handler {	Line 62 sub handler {
return FORBIDDEN;	return FORBIDDEN;
}	}

	sub removefile {
	my $r=shift;
	if ($r->status==HTTP_OK) {
	&Apache::lonnet::logthis('Unlinking '.$r->filename);
	} else {
	&Apache::lonnet::logthis("Failed to transfer ".$r->filename);
	}
	}
1;	1;
__END__	__END__