added new attribute to Maypole::Config - request_options

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@570 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/Changes b/Changes
index 3addc38b6d10464db5f34c04654112295b65398b..7a8835716b39a8c650fcf0a869e169acb0e22ed9 100644 (file)
--- a/Changes
+++ b/Changes
@@ -29,6 +29,7 @@ For information about current developments and future releases, see:
    fix to redirect_request
    Fixed typo in _do_update_or_create (bug 26495)
    added new hook - preprocess_location
+   added new attribute to Maypole::Config - request_options
 
 2.111 Mon 30 April 2007
    - forked - see 2.111 changelog

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index dea64fffa161648d0cf4abb0c19b523c461e78f6..a79c6113f2f4a7932cb511929ed5c354adafc1de 100644 (file)
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -1,6 +1,6 @@
 package Apache::MVC;
 
-our $VERSION = '2.11';
+our $VERSION = '2.12';
 
 use strict;
 use warnings;
@@ -93,11 +93,12 @@ functionality. See L<Maypole> for these:
 
 sub get_request {
     my ($self, $r) = @_;
+    my $request_options = $self->config->request_options || {};
     my $ar;
     if ($MODPERL2) {
-       $ar = eval {require Apache2::Request} ? Apache2::Request->new($r) : $r;
+       $ar = eval {require Apache2::Request} ? Apache2::Request->new($r,%{$request_options}) : $r;
        }
-    else { $ar = Apache::Request->instance($r); }
+    else { $ar = Apache::Request->instance($r,%{$request_options}); }
     $self->ar($ar);
 }
 

diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm
index dda15fcd7a52df6c8dabd3616b4bb22223d1e77a..df75712ac261c52c1dac43228de2d88e4dc48207 100644 (file)
--- a/lib/CGI/Maypole.pm
+++ b/lib/CGI/Maypole.pm
@@ -7,7 +7,7 @@ use CGI::Simple;
 use Maypole::Headers;
 use Maypole::Constants;
 
-our $VERSION = '2.11';
+our $VERSION = '2.12';
 
 __PACKAGE__->mk_accessors( qw/cgi/ );
 
@@ -71,9 +71,11 @@ functionality. See L<Maypole> for these:
 
 =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

diff --git a/lib/Maypole/Config.pm b/lib/Maypole/Config.pm
index 3307f8f5b650547145370c48170ff7b42ea2a403..247398675015cdec1ac1aa1f66acec45f4f711f9 100644 (file)
--- a/lib/Maypole/Config.pm
+++ b/lib/Maypole/Config.pm
@@ -11,7 +11,7 @@ our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
 __PACKAGE__->mk_accessors(
      qw( view view_options uri_base template_root template_extension model
          loader display_tables ok_tables rows_per_page dsn user pass opts
-         application_name additional build_form_elements)
+         application_name additional build_form_elements request_options)
 );
 
 # Should only be modified by model.
@@ -124,6 +124,14 @@ Other options to the DBI connect call.
 
 Username to log into the database with.
 
+=head3 build_form_elements
+
+Flag specifying whether to build metadata for form elements in factory templates
+
+=head3 request_options
+
+Hashref of options passed when creating cgi or apache request
+
 =head2 Adding additional configuration data
 
 You can use the 'additional' attribute for stashing additional info, especially from additional_data method,