loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.44, 2003/04/16 15:59:15	version 1.45, 2003/05/06 21:45:25
Line 88 sub handler {	Line 88 sub handler {

my $buffer;	my $buffer;

$r->read($buffer,$r->header_in('Content-length'));	$r->read($buffer,$r->header_in('Content-length'),0);
unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) {	unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) {
my @pairs=split(/&/,$buffer);	my @pairs=split(/&/,$buffer);
my $pair;	my $pair;
Line 223 sub handler {	Line 223 sub handler {
\|\| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {	\|\| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {
&Apache::lonnet::logthis('Granting public access: '.$requrl);	&Apache::lonnet::logthis('Granting public access: '.$requrl);
my $buffer;	my $buffer;
$r->read($buffer,$r->header_in('Content-length'));	$r->read($buffer,$r->header_in('Content-length'),0);
&Apache::loncommon::get_unprocessed_cgi($buffer);	&Apache::loncommon::get_unprocessed_cgi($buffer);
$ENV{'user.name'}='public';	$ENV{'user.name'}='public';
$ENV{'user.domain'}='public';	$ENV{'user.domain'}='public';