loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.13, 2000/12/26 19:50:25	version 1.14, 2001/01/06 16:12:24
Line 2	Line 2
# Cookie Based Access Handler for Construction Area	# Cookie Based Access Handler for Construction Area
# (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer)	# (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer)
# 6/15,16/11,22/11,	# 6/15,16/11,22/11,
# 01/06,01/11,6/1,9/25,9/28,11/22,12/25,12/26 Gerd Kortemeyer	# 01/06,01/11,6/1,9/25,9/28,11/22,12/25,12/26,06/01 Gerd Kortemeyer

package Apache::loncacc;	package Apache::loncacc;

Line 10 use strict;	Line 10 use strict;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::File;	use Apache::File;
use CGI::Cookie();	use CGI::Cookie();
	use Fcntl qw(:flock);

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 36 sub handler {	Line 37 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++) {