loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.113, 2007/11/06 02:42:40	version 1.114, 2008/03/08 02:45:14
Line 57 sub goodbye {	Line 57 sub goodbye {
###############################################	###############################################

sub get_posted_cgi {	sub get_posted_cgi {
my ($r) = @_;	my ($r,$fields) = @_;

my $buffer;	my $buffer;
if ($r->header_in('Content-length')) {	if ($r->header_in('Content-length')) {
Line 73 sub get_posted_cgi {	Line 73 sub get_posted_cgi {
$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;
$name =~ tr/+/ /;	$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	if (ref($fields) eq 'ARRAY') {
	next if (!grep(/^\Q$name\E$/,@{$fields}));
	}
&Apache::loncommon::add_to_env("form.$name",$value);	&Apache::loncommon::add_to_env("form.$name",$value);
}	}
} else {	} else {
Line 93 sub get_posted_cgi {	Line 96 sub get_posted_cgi {
} else {	} else {
$value=~s/\s+$//s;	$value=~s/\s+$//s;
}	}
	if (ref($fields) eq 'ARRAY') {
	next if (!grep(/^\Q$name\E$/,@{$fields}));
	}
&Apache::loncommon::add_to_env("form.$name",$value);	&Apache::loncommon::add_to_env("form.$name",$value);
}	}
if ($i<$#lines) {	if ($i<$#lines) {