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

Reply via email to