loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.4, 2000/01/06 15:35:58	version 1.5, 2000/01/14 21:12:40
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# 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 Gerd Kortemeyer	# 01/06,01/13 Gerd Kortemeyer

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

Line 35 sub handler {	Line 35 sub handler {
$r->subprocess_env("user.environment" => "$lonidsdir/$handle.id",	$r->subprocess_env("user.environment" => "$lonidsdir/$handle.id",
"request.state" => "published",	"request.state" => "published",
"request.filename" => $r->filename);	"request.filename" => $r->filename);
	my $buffer;
	$r->read($buffer,$r->header_in('Content-length'));
	my @pairs=split(/&/,$buffer);
	my $pair; my $name; my $value;
	foreach $pair (@pairs) {
	($name,$value) = split(/=/,$pair);
	$r->subprocess_env("form.$name" => $value);
	}
return OK;	return OK;
} else {	} else {
$r->log_reason("Cookie $handle not valid", $r->filename)	$r->log_reason("Cookie $handle not valid", $r->filename)
};	};
}	}
$cookie=CGI::Cookie->new(-name => 'lonURL',	$cookie=CGI::Cookie->new(-name => 'lonURL',