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? ************ 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; warn Data::Dumper::Dumper(%args); #do stuff with $apr-upload such as store file } sub printForm { my $r = shift; $r->send_http_header('text/html'); $r->print("<html><body>\n"); $r->print("<h1>Upload sites</h1>"); # Output a simple form. $r->print(<<EOF); <form enctype="multipart/form-data" name="files" action="/PP/excelupload" method="POST"> Excel File <input type="file" name="file1"><br> <input type="submit" name="submit" value="Upload these files"> </form> </body></html> EOF return OK; } 1; ********** -- 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