Re: undef Upload object
Geoffrey Young wrote: > > > Mike Melillo wrote: > >> I am trying to have a user upload an image and I am getting an undef >> $apr->upload object. > we have a working example that may be able to help you some: > > http://www.modperlcookbook.org/code/ch03/Cookbook/PrintUploads.pm also see the new addition contributed by Rich Bowen: http://perl.apache.org/release/docs/1.0/guide/snippets.html#File_Upload_with_Apache__Request __ Stas BekmanJAm_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
Re: undef Upload object
Mike Melillo wrote: > I am trying to have a user upload an image and I am getting an undef > $apr->upload object. > [snip] > sub upload { > > my ($r) = shift; > my $apr = Apache::Request->new($r); > my $status = $apr->parse; you might want to check the status of that upload here first return $status unless $status == OK; and look into $apr->notes("error-notes"); if it fails. > my $upload = $apr->upload; > print STDERR Dumper($upload); > my $size = $upload->size; > if ($size > 3) { you can handle that condition with the POST_MAX parameter in new(). other than that, nothing jumps out at me. we have a working example that may be able to help you some: http://www.modperlcookbook.org/code/ch03/Cookbook/PrintUploads.pm HTH --Geoff
undef Upload object
I am trying to have a user upload an image and I am getting an undef $apr->upload object. Here is the code: your picture (size limit: 30k) sub upload { my ($r) = shift; my $apr = Apache::Request->new($r); my $status = $apr->parse; my $upload = $apr->upload; print STDERR Dumper($upload); my $size = $upload->size; if ($size > 3) { #file is too big warn("File is too big\n"); return SERVER_ERROR; } my $type = $upload->type; if ($type ne 'image/jpeg') { # not a jpeg warn("Not a jpeg\n"); return SERVER_ERROR; } my $fh = $upload->fh; my $filename = $upload->filename; $apr->send_http_header( 'text/html' ); $apr->print("hello file\n"); return OK; } # end of upload The upload subroutine is still in the debugging stages hence the return SERVER_ERROR and warn'ings.The Date::Dumper prints $VAR1 = undef; Ideas?