Re: CGI::Simple 0.077

[prev] [thread] [next] [Date index for 2005/03/16]

--=-8TXDs7pJSeAy2t9MYXVu
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable

On Tue, 2005-03-15 at 23:21 -0500, Perrin Harkins wrote:=20
> On Wed, 2005-03-16 at 08:47 +0530, Joshua N Pritikin wrote:
> > CGI::Simple doesn't work with mod_perl 1.999.20:
> >=20
> >  $data =3D $self->{'.mod_perl'} ? Apache->request->args :
> >           $ENV{'QUERY_STRING'} || $ENV{'REDIRECT_QUERY_STRING'} || '';
> >=20
> > Apache->request->args returns an Apache::RequestRec instead of a native
> > perl data structure.
>=20
> Really?  It should still give you the query string.
>=20
> http://perl.apache.org/docs/2.0/api/Apache/RequestRec.html#C_args_

Oh!  And it does.  The problem is elsewhere.

I'm trying to get parameters from multipart/form-data.  Here is what the
CGI::Simple object looks like:

$VAR1 =3D bless( {=20
                 '.parameters' =3D> [
                                    'Apache::RequestRec'
                                  ],
                 '.crlf' =3D> '
',
                 '.mod_perl' =3D> 2,
                 '.globals' =3D> {
                                 'DEBUG' =3D> 0,
                                 'NO_UNDEF_PARAMS' =3D> 0,
                                 'NO_NULL' =3D> 1,
                                 'FATAL' =3D> -1,
                                 'USE_PARAM_SEMICOLONS' =3D> 1,
                                 'DISABLE_UPLOADS' =3D> 1,
                                 'USE_CGI_PM_DEFAULTS' =3D> 0,
                                 'NPH' =3D> 0,
                                 'POST_MAX' =3D> 8192,
                                 'HEADERS_ONCE' =3D> 0
                               },
                 'Apache::RequestRec' =3D> [
                                           'SCALAR(0x877fedc)'
                                         ],
                 '.fieldnames' =3D> {
                                    'Apache::RequestRec' =3D> 1
                                  },
                 '.cookies' =3D> {
                                 'OHL_ID' =3D> bless( {
                                                      'value' =3D> [
                                                                   '25'
                                                                 ],
                                                      'name' =3D> 'OHL_ID',
                                                      'path' =3D> '/'
                                                    }, 'CGI::Simple::Cookie=
' )
                               },
                 '.header_printed' =3D> 1
               }, 'CGI::Simple' );

Somehow the Apache::RequestRec is not being unpacked.  There isn't any spec=
ial
casing for mod_perl in this code path so maybe a special case needs to be a=
dded?


--=-8TXDs7pJSeAy2t9MYXVu
Content-Type: application/pgp-signature; name=signature.asc
Content-Description: This is a digitally signed message part

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)

iD8DBQBCN8olqcqnlKSmC70RAjRDAKDQtVNDS9gSDkfRwcxWXWePpDNQ1QCgtVuQ
49vUIDqUmbBq75/4GM3tCgE=
=LY8w
-----END PGP SIGNATURE-----

--=-8TXDs7pJSeAy2t9MYXVu--