loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.5, 2000/01/14 21:12:40	version 1.7, 2000/07/01 17:57:01
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 Gerd Kortemeyer	# 01/06,01/11,6/1 Gerd Kortemeyer

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

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

sub handler {	sub handler {
Line 52 sub handler {	Line 53 sub handler {
my $pair; my $name; my $value;	my $pair; my $name; my $value;
foreach $pair (@pairs) {	foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);	($name,$value) = split(/=/,$pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$r->subprocess_env("form.$name" => $value);	$r->subprocess_env("form.$name" => $value);
}	}
return OK;	return OK;
Line 59 sub handler {	Line 62 sub handler {
$r->log_reason("Cookie $handle not valid", $r->filename)	$r->log_reason("Cookie $handle not valid", $r->filename)
};	};
}	}
$cookie=CGI::Cookie->new(-name => 'lonURL',
-value => $requrl,	# ----------------------------------------------- Store where they wanted to go
-path => '/');
$r->err_headers_out->add('Set-Cookie' => $cookie);	$ENV{'request.firsturl'}=$requrl;
return FORBIDDEN;	return FORBIDDEN;
}	}