perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Frank Wesemann <f.wesem...@fotofinder.net>
Subject multipart/form-data and CGI.pm newer than 3.38 ( other approach )
Date Thu, 18 Dec 2008 21:33:58 GMT
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


Mime
View raw message