loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.20, 2002/01/04 15:10:54	version 1.23, 2002/09/30 20:35:38
Line 69 sub constructaccess {	Line 69 sub constructaccess {
sub handler {	sub handler {
my $r = shift;	my $r = shift;
my $requrl=$r->uri;	my $requrl=$r->uri;
	$ENV{'request.editurl'}=$requrl;
my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));	my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
my $lonid=$cookies{'lonID'};	my $lonid=$cookies{'lonID'};
my $cookie;	my $cookie;
Line 115 sub handler {	Line 116 sub handler {
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$name =~ tr/+/ /;	$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$ENV{"form.$name"}=$value;	&Apache::loncommon::add_to_env("form.$name",$value);
}	}
} else {	} else {
my $contentsep=$1;	my $contentsep=$1;
Line 135 sub handler {	Line 136 sub handler {
} else {	} else {
$value=~s/\s+$//s;	$value=~s/\s+$//s;
}	}
$ENV{"form.$name"}=$value;	&Apache::loncommon::add_to_env("form.$name",$value);
}	}
if ($i<$#lines) {	if ($i<$#lines) {
$i++;	$i++;
Line 189 Apache::lonacc - Cookie Based Access Han	Line 190 Apache::lonacc - Cookie Based Access Han

=head1 SYNOPSIS	=head1 SYNOPSIS

Invoked (for various locations) by /etc/httpd/conf/srm.conf:	Invoked (for various locations) by /etc/httpd/conf/loncapa_apache.conf:

PerlAccessHandler Apache::loncacc	PerlAccessHandler Apache::loncacc