loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.7, 2000/07/01 17:57:01	version 1.8, 2000/09/15 15:04:17
Line 7	Line 7
package Apache::loncacc;	package Apache::loncacc;

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

Line 48 sub handler {	Line 48 sub handler {
"request.state" => "construct",	"request.state" => "construct",
"request.filename" => $r->filename);	"request.filename" => $r->filename);
my $buffer;	my $buffer;

$r->read($buffer,$r->header_in('Content-length'));	$r->read($buffer,$r->header_in('Content-length'));
my @pairs=split(/&/,$buffer);	my @pairs=split(/&/,$buffer);
my $pair; my $name; my $value;	my $pair; my $name; my $value;
Line 57 sub handler {	Line 58 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;
$r->subprocess_env("form.$name" => $value);	$r->subprocess_env("form.$name" => $value);
}	}

	$r->method_number(M_GET);
	$r->method('GET');
	$r->headers_in->unset('Content-length');

return OK;	return OK;
} else {	} else {
$r->log_reason("Cookie $handle not valid", $r->filename)	$r->log_reason("Cookie $handle not valid", $r->filename)