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.9, 2003/05/27 18:07:22
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;
Line 65 sub handler {	Line 68 sub handler {
$r->log_reason("Could not find host tab file");	$r->log_reason("Could not find host tab file");
return FORBIDDEN;	return FORBIDDEN;
}	}
	my $return;
	my @ids=();
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) {	if ($name =~ /$reqhost/i) {
Line 74 sub handler {	Line 79 sub handler {
($filename=~/\.meta$/)) {	($filename=~/\.meta$/)) {
return OK;	return OK;
} else {	} else {
$r->log_reason("$id not subscribed", $r->filename);	$return=FORBIDDEN;
return FORBIDDEN;	push(@ids,$id);
}	}
}	}
}	}
	if ($return == FORBIDDEN) {
	$r->log_reason(join(':',@ids)." not subscribed", $r->filename);
	}
}	}
$r->log_reason("Invalid request for file transfer from $reqhost",	$r->log_reason("Invalid request for file transfer from $reqhost",
$r->filename);	$r->filename);