I tracked the error down to a different area than I thought.
It happens when I call $apr->param as follows:
sub utilize {
my $self = shift;
my $apr = APR::Request::Apache2->handle( $self->{req} ) || return;
return unless( int @{[ $apr->param ]} > 0 );
warn "test";
my $data;
foreach my $name ( $apr->param ) {
$self->{param_cnt}->{$name} = int @{[ $apr->param( $name ) ]};
my $cnt = $self->{param_cnt}->{$name};
if ( $cnt == 1 ) {
$data->{$name} = uri_unescape( $apr->param( $name ) );
} elsif ( $cnt > 1 ) {
$data->{$name} = [ $apr->param( $name ) ];
}
}
$self->{data} = $data;
return 1;
}
The problem I have is I don't know I want the max_body set high until
I check to
see if the upload param is set, i.e. I check for upload variable
then if set call:
my $req = Apache2::Request->new( $r, POST_MAX => "500000000",
MAX_BODY => "500000000" );
I must be going about this the wrong way. Any suggestions what the
"right way" is?
Thanks,
Boysenberry
boysenberrys.com | habitatlife.com | selfgnosis.com