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

[Michael Smith <sm...@gmail.com>]

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....@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