Hi guys,

I'm trying to write CGI::Application app which handle a file upload (among other things), and I'm stuck because it
doesn't work like CGI.pm, while it probably should.

"Plain ugly CGI"-fashion uploads (w/o CGI::App) work fine for me:

my $query = new CGI;
if (my $fname = $query->param('poster')) {
     my $fh = $query->upload('poster');
     my $content_type = $query->uploadInfo($fh)->{'Content-Type'};
     if ($content_type eq 'image/jpeg' and $fname =~ /.jpe?g$/) {
etc

But when I tried to make similar things with CGI::App, I failed:

($self is a current CGI::App object here)
if (my $file = $self->query()->param('uploaded_file')) {
     my $fh = $self->query()->upload('uploaded_file');
     my $up_info = $self->query()->uploadInfo($fh);
     my $type = $self->query()->uploadInfo($file)->{'Content-Type'};
     my $file_content;
     local $/;
     $file_content = <$file>;
     $self->errormessage(Data::Dumper->Dump([$file, $fh, $up_info, $file_content]));

Dumper produces this:

$VAR1 = bless( \*{'Fh::fh00001sidebar-240.jpg'}, 'Fh' );
$VAR2 = undef;
$VAR3 = undef;
$VAR4 = undef;

I've tried $file->handle(), but it's undefined too.
What's wrong with CGI in CGI::App?

I'm definitely using multipart/form-data, and I see it sending in LiveHTTPHeaders, so that's not an issue.

--
Serguei Trouchelle

_______________________________________________
Perl-Win32-Web mailing list
Perl-Win32-Web@list...
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs