Clayton Cottingham wrote:
thanks for the reply

here is something strange. i cant figure out based on all this, under mod perl 1 Apache/1.3.29 on FreeBSD devserver.ppw 5.1-RELEASE

below is a small piece of my module the 'parsefile' subroutine *does not* print out 
%args, i dont understand why not
can someone explain?

yup, see below


************
sub handler {
    my $r = Apache->request;

#for upload my $apr = Apache::Request->new(
$r,
POST_MAX => 10 * 1024 * 1024, # in bytes, so 10M
DISABLE_UPLOADS => 0
);


#if upload object exists
    if ( $apr->upload ) {
        parseFile($r);
    }
    else {
        #print form for upload
        printForm($r);
    }

}

sub parseFile {
   my $r   = shift;
   my $apr = Apache::Request->new(
        $r,
        POST_MAX        => 10 * 1024 * 1024,    # in bytes, so 10M
        DISABLE_UPLOADS => 0
    ) ;
    my %args = $r->args;

of course, you create a new A::R object, you should use ->instance instead. Or even better pass $apr to parseFile, you don't need $r any longer, since $apr already $r and more.


__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com

--
Reporting bugs: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html



Reply via email to