loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.3, 1999/11/22 17:23:13	version 1.4, 2000/01/06 15:35:58
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 Gerd Kortemeyer	# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11,
	# 01/06 Gerd Kortemeyer

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

Line 29 sub handler {	Line 30 sub handler {
for ($envi=0;$envi<=$#profile;$envi++) {	for ($envi=0;$envi<=$#profile;$envi++) {
chomp($profile[$envi]);	chomp($profile[$envi]);
my ($envname,$envvalue)=split(/=/,$profile[$envi]);	my ($envname,$envvalue)=split(/=/,$profile[$envi]);
$r->subprocess_env("profile.$envname" => "$envvalue");	$r->subprocess_env("$envname" => "$envvalue");
}	}
$r->subprocess_env("user.environment" => "$lonidsdir/$handle.id");	$r->subprocess_env("user.environment" => "$lonidsdir/$handle.id",
$r->subprocess_env("request.state" => "published");	"request.state" => "published",
	"request.filename" => $r->filename);
return OK;	return OK;
} else {	} else {
$r->log_reason("Cookie $handle not valid", $r->filename)	$r->log_reason("Cookie $handle not valid", $r->filename)