loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.15, 2000/12/26 19:50:25	version 1.16, 2001/01/06 16:12:24
Line 2	Line 2
# Cookie Based Access Handler	# Cookie Based Access Handler
# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11,	# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11,
# 01/06,01/13,05/31,06/01,09/06,09/25,09/28,10/30,11/6,	# 01/06,01/13,05/31,06/01,09/06,09/25,09/28,10/30,11/6,
# 12/25,12/26 Gerd Kortemeyer	# 12/25,12/26,06/01 Gerd Kortemeyer

package Apache::lonacc;	package Apache::lonacc;

Line 11 use Apache::Constants qw(:common :http :	Line 11 use Apache::Constants qw(:common :http :
use Apache::File;	use Apache::File;
use Apache::lonnet;	use Apache::lonnet;
use CGI::Cookie();	use CGI::Cookie();
	use Fcntl qw(:flock);

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 29 sub handler {	Line 30 sub handler {
my @profile;	my @profile;
{	{
my $idf=Apache::File->new("$lonidsdir/$handle.id");	my $idf=Apache::File->new("$lonidsdir/$handle.id");
	flock($idf,LOCK_SH);
@profile=<$idf>;	@profile=<$idf>;
	$idf->close();
}	}
my $envi;	my $envi;
for ($envi=0;$envi<=$#profile;$envi++) {	for ($envi=0;$envi<=$#profile;$envi++) {