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

Reply via email to