Mailing List Archive: multipart/form-data and CGI.pm newer than 3.38 ( other approach )

Hello again,
I am sorry for noising, but my first posting was a little hasty I think.
I think this approach is better as it uses the official interface and
will therefore be more compatible:

Index: Embperl_2.3.0.pm
===================================================================
RCS file: /var/cvsroot/webserver/portal/temp/Embperl_2.3.0.pm,v
retrieving revision 1.1
diff -r1.1 Embperl_2.3.0.pm
315d314
<
317d315
< my $params ;
321,323c319,323
< #$params = $cgi->param_fetch( $_ ) ;
< $params = $cgi->{$_} ;
< if ($#$params > 0)
---
> #$params = $cgi->param_fetch( $_ ) ;
> #since Version 3.38 CGI stores params and values in separate
"namespace"
> #http://rt.perl.org/rt3//Ticket/Display.html?id=24294
> my @values = $cgi->param($_);
> if ($#values > 0)
325c325
< $fdat->{ $_ } = join ("\t", @$params) ;
---
> $fdat->{ $_ } = join ( $self -> config -> mult_field_sep() ,
@values) ;
329c329
< $fdat->{ $_ } = $params -> [0] ;
---
> $fdat->{ $_ } = $values[0] ;

--
mit freundlichem GruÃŸ,

Frank Wesemann
Fotofinder GmbH USt-IdNr. DE812854514
Software Entwicklung Web: http://www.fotofinder.com/
Potsdamer Str. 96 Tel: +49 30 25 79 28 90
10785 Berlin Fax: +49 30 25 79 28 999

Sitz: Berlin
Amtsgericht Berlin Charlottenburg (HRB 73099)
GeschÃ¤ftsfÃ¼hrer: Ali Paczensky

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org

Just a note to say thanks a lot for this. I just spent a couple of
hours trying to work out what on earth was going on before googling
and finding this answer.

It's obviously a shame that Embperl no longer works properly on a
standard perl installation. Hopefully Gerald will get round to adding
this patch soon ... (please Gerald!)

Michael

On Thu, Dec 18, 2008 at 9:33 PM, Frank Wesemann
<f.wesemann@fotofinder.net> wrote:
> Hello again,
> I am sorry for noising, but my first posting was a little hasty I think.
> I think this approach is better as it uses the official interface and will
> therefore be more compatible:
>
>
> Index: Embperl_2.3.0.pm
> ===================================================================
> RCS file: /var/cvsroot/webserver/portal/temp/Embperl_2.3.0.pm,v
> retrieving revision 1.1
> diff -r1.1 Embperl_2.3.0.pm
> 315d314
> <
> 317d315
> < my $params ;
> 321,323c319,323
> < #$params = $cgi->param_fetch( $_ ) ;
> < $params = $cgi->{$_} ;
> < if ($#$params > 0)
> ---
>> #$params = $cgi->param_fetch( $_ ) ;
>> #since Version 3.38 CGI stores params and values in separate
>> "namespace"
>> #http://rt.perl.org/rt3//Ticket/Display.html?id=24294
>> my @values = $cgi->param($_);
>> if ($#values > 0)
> 325c325
> < $fdat->{ $_ } = join ("\t", @$params) ;
> ---
>> $fdat->{ $_ } = join ( $self -> config -> mult_field_sep() ,
>> @values) ;
> 329c329
> < $fdat->{ $_ } = $params -> [0] ;
> ---
>> $fdat->{ $_ } = $values[0] ;
>
>
> --
> mit freundlichem Gruß,
>
> Frank Wesemann
> Fotofinder GmbH USt-IdNr. DE812854514
> Software Entwicklung Web: http://www.fotofinder.com/
> Potsdamer Str. 96 Tel: +49 30 25 79 28 90
> 10785 Berlin Fax: +49 30 25 79 28 999
>
> Sitz: Berlin
> Amtsgericht Berlin Charlottenburg (HRB 73099)
> Geschäftsführer: Ali Paczensky
>
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> For additional commands, e-mail: embperl-help@perl.apache.org
>
>

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org