loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.147, 2001/08/09 19:28:47	version 1.148, 2001/08/12 01:18:37
Line 122	Line 122
# 5/30 H. K. Ng	# 5/30 H. K. Ng
# 6/1 Gerd Kortemeyer	# 6/1 Gerd Kortemeyer
# July Guy Albertelli	# July Guy Albertelli
# 8/4,8/7,8/8,8/9 Gerd Kortemeyer	# 8/4,8/7,8/8,8/9,8/11 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 1108 sub allowed {	Line 1108 sub allowed {
}	}
}	}

if (($ENV{'HTTP_REFERER'}) && ($checkreferer)) {	if ($checkreferer) {
my $refuri=$ENV{'HTTP_REFERER'};	my $refuri=$ENV{'httpref.'.$uri};
$refuri=~s/^http\:\/\/$ENV{'request.host'}//i;
$refuri=&declutter($refuri);	unless ($refuri) {
	map {
	if ($_=~/^httpref\..\/) {
	my $pattern=$_;
	$pattern=~s/\*/\[\^\/\]\+/g;
	$pattern=~s/\//\\\//g;
	if ($uri=~/$pattern/) {
	$refuri=$ENV{$_};
	}
	}
	} keys %ENV;
	}
	if ($refuri) {
my @uriparts=split(/\//,$refuri);	my @uriparts=split(/\//,$refuri);
my $filename=$uriparts[$#uriparts];	my $filename=$uriparts[$#uriparts];
my $pathname=$refuri;	my $pathname=$refuri;
Line 1129 sub allowed {	Line 1141 sub allowed {
}	}
}	}
}	}
	}
}	}
}	}