loncom/auth/lonracc.pm - diff

Return to lonracc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.1.1.1, 1999/10/13 17:48:52	version 1.2, 2000/06/30 17:09:51
Line 2	Line 2
# Access Handler for File Transfers	# Access Handler for File Transfers
# (lonacc: Cookie Based Access Handler	# (lonacc: Cookie Based Access Handler
# 5/21/99,5/22,5/29,5/31,6/15 Gerd Kortemeyer)	# 5/21/99,5/22,5/29,5/31,6/15 Gerd Kortemeyer)
# 6/16,6/18,7/3 Gerd Kortemeyer	# 6/16,6/18,7/3,
	# 6/30/00 Gerd Kortemeyer

package Apache::lonracc;	package Apache::lonracc;

Line 29 sub handler {	Line 30 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;
if (-e "$filename.$id") {	if ((-e "$filename.$id") \|\| ($filename=~/\.meta$/)) {
return OK;	return OK;
} else {	} else {
$r->log_reason("$id not subscribed", $r->filename);	$r->log_reason("$id not subscribed", $r->filename);