loncom/auth/lonracc.pm - diff

Return to lonracc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.9, 2003/05/27 18:07:22	version 1.11, 2004/03/31 17:42:21
Line 74 sub handler {	Line 74 sub handler {
my ($id,$domain,$role,$name,$ip)=split(/:/,$readline);	my ($id,$domain,$role,$name,$ip)=split(/:/,$readline);
if ($name =~ /$reqhost/i) {	if ($name =~ /$reqhost/i) {
my $filename=$r->filename;	my $filename=$r->filename;
	my $uri =$r->uri;
if ((-e "$filename.$id") \|\|	if ((-e "$filename.$id") \|\|
&subscribed($filename,$id) \|\|	&subscribed($filename,$id) \|\|
($filename=~/\.meta$/)) {	($filename=~/\.meta$/) \|\|
	($uri=~m\|^/raw/uploaded\|)) {
return OK;	return OK;
} else {	} else {
$return=FORBIDDEN;	$return=FORBIDDEN;
Line 86 sub handler {	Line 88 sub handler {
}	}
if ($return == FORBIDDEN) {	if ($return == FORBIDDEN) {
$r->log_reason(join(':',@ids)." not subscribed", $r->filename);	$r->log_reason(join(':',@ids)." not subscribed", $r->filename);
	return FORBIDDEN;
}	}
}	}
$r->log_reason("Invalid request for file transfer from $reqhost",	$r->log_reason("Invalid request for file transfer from $reqhost",