loncom/auth/lonracc.pm - diff

Return to lonracc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.7, 2002/10/29 18:34:33	version 1.8, 2003/05/23 07:13:27
Line 69 sub handler {	Line 69 sub handler {
return FORBIDDEN;	return FORBIDDEN;
}	}
while ($readline=<$fh>) {	while ($readline=<$fh>) {
	my $return;
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;
Line 77 sub handler {	Line 78 sub handler {
($filename=~/\.meta$/)) {	($filename=~/\.meta$/)) {
return OK;	return OK;
} else {	} else {
$r->log_reason("$id not subscribed", $r->filename);	$return=FORBIDDEN;
return FORBIDDEN;
}	}
}	}
}	}
	if ($return == FORBIDDEN) {
	$r->log_reason("$id 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);