Hi,
I'm trying to use libapreq2 to read some parameters submitted via
POST, but I'm having trouble. Should I use $req->body($myparam) ? or
$req->param($myparam)?
My code looks like this:
$r->log->debug("Testing param");
my ($md5, $entered);
eval { $md5 = $req->param('cv'); } ;
if($@)
{
use Data::Dumper;
$r->log->error("ACK: no cv param: " . [EMAIL PROTECTED]>strerror() . "
-- " . Dumper($@));
return $class->handle_get($r, $Site, $req,
'The code entered was not
valid.<br>Please try again.');
}
$r->log->debug("For cv got... $md5");
The error log shows the following:
[Fri Sep 22 10:59:56 2006] [debug] /Users/dviner/Documents/amb/dev/
aboutmybaby/AMB/Handlers/GuestbookSign.pm(57): [client 127.0.0.1]
Testing param
[Fri Sep 22 10:59:56 2006] [debug] filter.c(269): [client 127.0.0.1]
prefetching 65536 bytes
Use of uninitialized value in concatenation (.) or string at /Users/
dviner/Documents/amb/dev/aboutmybaby/AMB/Handlers/GuestbookSign.pm
line 67.
[Fri Sep 22 10:59:56 2006] [debug] /Users/dviner/Documents/amb/dev/
aboutmybaby/AMB/Handlers/GuestbookSign.pm(67): [client 127.0.0.1] For
cv got...
The request I sent is as follows:
$ cat sign.params | lwp-request -m POST -SUsue "http://
lalala.aboutmybaby.localhost/guestbook/sign"
$ cat sign.params
gbentry_from=hithere&gbentry_body=foobar&cv=1111111&cg=abcdef
$
Here are the details of my installation:
[Fri Sep 22 10:59:55 2006] [notice] Apache/2.0.58 (Unix) PHP/5.1.4
DAV/2 mod_apreq2-20051231/2.6.0 mod_perl/2.0.2 Perl/v5.8.8 configured
-- resuming normal operations
Thanks for your help.
Dave Viner