loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.1, 1999/10/13 17:48:52	version 1.2, 1999/11/16 19:14:15
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 Gerd Kortemeyer	# 5/21/99,5/22,5/29,5/31,6/15,16/11 Gerd Kortemeyer

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

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
	use Apache::File;
use CGI::Cookie();	use CGI::Cookie();

sub handler {	sub handler {
Line 19 sub handler {	Line 20 sub handler {
$handle=~s/\W//g;	$handle=~s/\W//g;
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {	if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {
return OK;	my @profile;
	{
	my $idf=Apache::File->new("$lonidsdir/$handle.id");
	@profile=<$idf>;
	}
	my $envi;
	for ($envi=0;$envi<=$#profile;$envi++) {
	chomp($profile[$envi]);
	my ($envname,$envvalue)=split(/=/,$profile[$envi]);
	$r->subprocess_env("profile.$envname" => "$envvalue");
	}
	$r->subprocess_env("request.state" => "published");
	return OK;
} else {	} else {
$r->log_reason("Cookie $handle not valid", $r->filename)	$r->log_reason("Cookie $handle not valid", $r->filename)
};	};