use Maypole::Headers;
use Maypole::Constants;
-our $VERSION = '2.11';
+our $VERSION = '2.12';
__PACKAGE__->mk_accessors( qw/cgi/ );
=cut
-sub get_request
-{
- shift->cgi( CGI::Simple->new );
+sub get_request {
+ my $self = shift;
+ my $request_options = $self->config->request_options || {};
+ $CGI::Simple::POST_MAX = $request_options->{POST_MAX} if ($request_options->{POST_MAX});
+ $self->cgi( CGI::Simple->new );
}
=item parse_location
$r->headers_in->set($field_name => $cgi->http($http_header));
}
- $self->preprocess_location();
+ $r->preprocess_location();
my $path = $cgi->url( -absolute => 1, -path_info => 1 );
my $loc = $cgi->url( -absolute => 1 );