Re: libapreq2 upload question

[prev] [thread] [next] [Date index for 2004/12/20]

Randy

> For ActivePerl builds 8xx (which mp2 requires on Win32), the
> repository should be
> http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?urn:/PPMServer58
> The :/PPMServer repository is for builds 6xx, which is why
> you didn't find mod_perl 2.

Ok, that should be corrected in 
http://aspn.activestate.com/ASPN/docs/ActivePerl/faq/ActivePerl-faq2.html#repositories
in "The PPM FAQ : ActivePerl 5.8"

Respect to the script, always running with apache off, it just ask to rewrite the .so and
dll (which i don't know why they are still there since i removed before instalation).
I say yes and i've supposed everything's gone right.


Joe

Firefox 0.92 and ie 6.0
The form is dinamically generated, i've =F9t the whole code ... but it's huge, i've erased
and i've test this static form:

<form ENCTYPE=3D'multipart/form-data' method=3D'post' action=3D'blogum_new_article'>
<input type=3D'text' name=3D'hola'/>
<input type=3D'file' name=3D'eps'/>
</form>

And this is the error.log

Apache::Upload::Table=3DHASH(0x11ee1c4) 0 at f:/tools/apache2/lib/perl/Blogum/Generic.pm
line 208.
Apache::Request::Table=3DHASH(0x1304a50) 2 at f:/tools/apache2/lib/perl/Blogum/Generic.pm
line 209.
hola =3D eps at f:/tools/apache2/lib/perl/Blogum/Generic.pm line 219.
eps =3D aaaUntitled-1.gif at f:/tools/apache2/lib/perl/Blogum/Generic.pm line 219.

No signal of file.



However (all this is with firefox) if i catch the query without libapreq ...

----------------------------
my $mm =3DApache::Request->new($r,POST_MAX=3D>50000); #50k max
my $uploads =3D$mm->upload();
my $table =3D$mm->param();
warn $uploads.' '.keys %$uploads;
warn $table.' '.keys %$table;
foreach (keys %$uploads) {
$uploads->{$_}->slurp(my $temp);
warn 'IMAGE: '.$_.' - '.$uploads->{$_}.' ? '.$uploads->{$_}->name.' '.
$uploads->{$_}->filename.' '.$uploads->{$_}->size.' '.$uploads->{$_}->type;
}
foreach (keys %$table){
$info->{query} .=3D $_.'=3D'.$table->{$_}.'&';
warn $_.' =3D '.$table->{$_};
}
$r->read(my $temp,$r->headers_in->{'Content-length'});
warn $temp;
----------------------------


This is the error.log

Apache::Upload::Table=3DHASH(0x1369c70) 0 at f:/tools/apache2/lib/perl/Blogum/Generic.pm
line 208.
Apache::Request::Table=3DHASH(0x1369cb8) 2 at f:/tools/apache2/lib/perl/Blogum/Generic.pm
line 209.
hola =3D hellooooo at f:/tools/apache2/lib/perl/Blogum/Generic.pm line 219.
eps =3D aaaUntitled-1.gif at f:/tools/apache2/lib/perl/Blogum/Generic.pm line 219.
-----------------------------265001916915724

Content-Disposition: form-data; name=3D"hola"



hellooooo

-----------------------------265001916915724

Content-Disposition: form-data; name=3D"eps"; filename=3D"aaaUntitled-1.gif"

Content-Type: image/gif



GIF89a
 
 =80  =FF=FF=FF=FF=FF=FF!=F9 =FF ,    
 
  D
 ;

-----------------------------265001916915724--




So the file is there!!


The same with explorer


Apache::Upload::Table=3DHASH(0x1181eb0) 0 at f:/tools/apache2/lib/perl/Blogum/Generic.pm
line 208.
Apache::Request::Table=3DHASH(0x1181f58) 2 at f:/tools/apache2/lib/perl/Blogum/Generic.pm
line 209.
hola =3D heeey at f:/tools/apache2/lib/perl/Blogum/Generic.pm line 219.
eps =3D F:\aaaUntitled-1.gif at f:/tools/apache2/lib/perl/Blogum/Generic.pm line 219.
-----------------------------7d430d44804d4

Content-Disposition: form-data; name=3D"hola"



heeey

-----------------------------7d430d44804d4

Content-Disposition: form-data; name=3D"eps"; filename=3D"F:\aaaUntitled-1.gif"

Content-Type: image/gif



GIF89a
 
 =80  =FF=FF=FF=FF=FF=FF!=F9 =FF ,    
 
  D
 ;

-----------------------------7d430d44804d4--


I was sure that this was different with explorer ... ... but that's what i've got now.

Thanks!!

---------------------------------------------------------
Esta Navidad, sé más original ¿Te atreves a enviar una postal con tu voz? http://greetingmania.ya.com
Ya.com ADSL Router Wi-Fi: Sólo 29,90 €/mes + IVA*. Router + Antivirus y firewall ¡Gratis! http://acceso.ya.com/adsl/256router

        -- 
        Report problems: 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